[Wisp-cvs] wisp/users/dig tran.py,1.53,1.54

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

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

Modified Files:
	tran.py 
Log Message:
minor cleanup

Index: tran.py
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/tran.py,v
retrieving revision 1.53
retrieving revision 1.54
diff -u -d -r1.53 -r1.54
--- tran.py	22 Apr 2003 15:26:18 -0000	1.53
+++ tran.py	22 Apr 2003 15:27:40 -0000	1.54
@@ -236,8 +236,6 @@
 def align (n): cursect.align(n)
 def minor (reg):
     Regstack.append(Integer_Literal(reg[-1]))
-def dup (x):
-    Regstack.append(x); Regstack.append(x)
 def plus (a, b):
     if not isinstance(a, Constant_Sum): a = Constant_Sum(a)
     if not isinstance(b, Constant_Sum): b = Constant_Sum(b)
@@ -365,7 +363,6 @@
     'align int':     ('builtin', align,       1),
     'any':           ('simple',  Class_Marker('any')),
     'const':         ('simple',  Class_Marker('const')),
-    'dup any':       ('builtin', dup,         1),
     'include':       ('include',),
     'int':           ('simple',  Class_Marker('int')),
     'label':         ('builtin', label,       0 | MA_PREFIX),
@@ -420,6 +417,9 @@
 
 drop any
     Regstack.pop()
+
+dup any
+    Regstack.append(Regstack[-1])
 
 ref|name
     Regstack.append(Symbol_Literal('&' + name))