Update of /cvsroot/wisp/wisp/users/dig
In directory sc8-pr-cvs1:/tmp/cvs-serv4837
Modified Files:
tran.py
Log Message:
minor cleanup
Index: tran.py
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/tran.py,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -d -r1.43 -r1.44
--- tran.py 22 Apr 2003 13:54:16 -0000 1.43
+++ tran.py 22 Apr 2003 13:57:33 -0000 1.44
@@ -243,7 +243,6 @@
cursect = Text
def ref (name):
Regstack.append(Symbol_Literal('&' + name))
-def drop (x): pass
def align (n): cursect.align(n)
def reserve (n): cursect.skip(n)
def minor (reg):
@@ -407,7 +406,6 @@
'align int': ('builtin', align, 1),
'any': ('simple', Class_Marker('any')),
'const': ('simple', Class_Marker('const')),
- 'drop any': ('builtin', drop, 1),
'dup any': ('builtin', dup, 1),
'include': ('include',),
'int': ('simple', Class_Marker('int')),
@@ -441,6 +439,11 @@
def dollar_minus_tetra_comma_sym (n):
cursect.emit_tetra_sum([str(n)], relative = 1)
Meaning['$-t, sym'] = 'builtin', dollar_minus_tetra_comma_sym, 1
+
+# Stack
+Meaning['drop any'] = 'builtin', (lambda x: None), 1
+
+# End of builtins
current_recordee = None
current_register_family = 0
|
