Update of /cvsroot/wisp/wisp/users/dig
In directory sc8-pr-cvs1:/tmp/cvs-serv29104
Modified Files:
tran.py
Log Message:
added the |const| class marker
Index: tran.py
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/tran.py,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -d -r1.25 -r1.26
--- tran.py 17 Apr 2003 11:16:09 -0000 1.25
+++ tran.py 17 Apr 2003 11:37:14 -0000 1.26
@@ -255,9 +255,14 @@
elif isinstance(object, Integer_Literal):
yield 'int'
yield 'lit'
+ yield 'const'
elif isinstance(object, Symbol_Literal):
yield 'sym'
yield 'lit'
+ yield 'const'
+ elif isinstance(object, Constant_Sum):
+ yield 'sum'
+ yield 'const'
elif isinstance(object, Register):
while object <> None:
yield Registers[object]
@@ -364,6 +369,7 @@
'align int': ('builtin', align, 1),
'any': ('simple', ClassMarker('any')),
'b, lit': ('builtin', b_comma, 1),
+ 'const': ('simple', ClassMarker('const')),
'drop any': ('builtin', drop, 1),
'dup any': ('builtin', dup, 1),
'include': ('include',),
@@ -375,8 +381,8 @@
'reg': ('simple', Generic_Register),
'reserve int': ('builtin', reserve, 1),
'sum': ('simple', ClassMarker('sum')),
- 'sym': ('simple', ClassMarker('sym')),
'swap any any': ('builtin', swap, 2),
+ 'sym': ('simple', ClassMarker('sym')),
't, lit': ('builtin', t_comma, 1),
'w, lit': ('builtin', w_comma, 1),
}
|
