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),
|
