Update of /cvsroot/wisp/wisp/users/dig
In directory sc8-pr-cvs1:/tmp/cvs-serv4657
Modified Files:
tran.py
Log Message:
minor cleanup
Index: tran.py
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/tran.py,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -d -r1.47 -r1.48
--- tran.py 22 Apr 2003 14:51:25 -0000 1.47
+++ tran.py 22 Apr 2003 15:02:12 -0000 1.48
@@ -239,8 +239,6 @@
def reserve (n): cursect.skip(n)
def minor (reg):
Regstack.append(Integer_Literal(reg[-1]))
-def swap (x, y):
- Regstack.append(y); Regstack.append(x)
def dup (x):
Regstack.append(x); Regstack.append(x)
def colon_macro (name):
@@ -401,7 +399,6 @@
'reg': ('simple', Generic_Register),
'reserve int': ('builtin', reserve, 1),
'sum': ('simple', Class_Marker('sum')),
- 'swap any any': ('builtin', swap, 2),
'sym': ('simple', Class_Marker('sym')),
}
@@ -440,11 +437,15 @@
.text
cursect = Text
+//
+ Regstack = []
+
drop any
Regstack.pop()
-//
- Regstack = []
+swap any any
+ y = Regstack.pop(); x = Regstack.pop()
+ Regstack.append(y); Regstack.append(x)
'''
for b in BUILTINS.split('\n\n'):
|
