[Wisp-cvs] wisp/users/dig tran.py,1.39,1.40

[<di...@us...>]

Update of /cvsroot/wisp/wisp/users/dig
In directory sc8-pr-cvs1:/tmp/cvs-serv20276

Modified Files:
	tran.py 
Log Message:
added the $-t, word

Index: tran.py
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/tran.py,v
retrieving revision 1.39
retrieving revision 1.40
diff -u -d -r1.39 -r1.40
--- tran.py	22 Apr 2003 12:46:58 -0000	1.39
+++ tran.py	22 Apr 2003 13:17:37 -0000	1.40
@@ -242,6 +242,10 @@
     if isinstance(n, Integer_Literal): cursect.emit_tetra(long(n) % 0x100000000L)
     elif isinstance(n, Symbol_Literal): cursect.emit_tetra_sum([str(n)])
     else: raise 'Literal expected', n
+def dollar_minus_tetra_comma (n):
+    if isinstance(n, Symbol_Literal):
+        cursect.emit_tetra_sum([str(n)], relative = 1)
+    else: raise 'Symbol expected', n
 def label (name):
     cursect.place_symbol('&' + name)
 def dot_bss ():
@@ -409,6 +413,7 @@
 MA_PREFIX = 010
 Meaning = {
     '$':             ('simple',  Dollar),
+    '$-t, sym':      ('builtin', dollar_minus_tetra_comma, 1),
     '+ const const': ('builtin', plus,        2),
     '- const const': ('builtin', minus,       2),
     '.bss':          ('builtin', dot_bss,     0),