Update of /cvsroot/wisp/wisp/users/dig
In directory sc8-pr-cvs1:/tmp/cvs-serv6113
Modified Files:
tran.py
Log Message:
minor cleanup
Index: tran.py
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/tran.py,v
retrieving revision 1.48
retrieving revision 1.49
diff -u -d -r1.48 -r1.49
--- tran.py 22 Apr 2003 15:02:12 -0000 1.48
+++ tran.py 22 Apr 2003 15:05:35 -0000 1.49
@@ -236,7 +236,6 @@
def ref (name):
Regstack.append(Symbol_Literal('&' + name))
def align (n): cursect.align(n)
-def reserve (n): cursect.skip(n)
def minor (reg):
Regstack.append(Integer_Literal(reg[-1]))
def dup (x):
@@ -397,7 +396,6 @@
'minor reg': ('builtin', minor, 1),
'ref': ('builtin', ref, 0 | MA_PREFIX),
'reg': ('simple', Generic_Register),
- 'reserve int': ('builtin', reserve, 1),
'sum': ('simple', Class_Marker('sum')),
'sym': ('simple', Class_Marker('sym')),
}
@@ -442,6 +440,9 @@
drop any
Regstack.pop()
+
+reserve int
+ cursect.skip(Regstack.pop())
swap any any
y = Regstack.pop(); x = Regstack.pop()
|
