cvsuser 04/03/20 01:35:49
Modified: imcc/t/imcpasm sub.t
imcc/t/syn pcc.t
Log:
treat a plain invoke as call - fix tests
Revision Changes Path
1.9 +2 -0 parrot/imcc/t/imcpasm/sub.t
Index: sub.t
===================================================================
RCS file: /cvs/public/parrot/imcc/t/imcpasm/sub.t,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -w -r1.8 -r1.9
--- sub.t 1 Nov 2003 12:07:06 -0000 1.8
+++ sub.t 20 Mar 2004 09:35:45 -0000 1.9
@@ -15,6 +15,7 @@
.end
CODE
/^_main:
+ set P16, P1
new P16, \d+ # \.Sub
set_addr I16, _sub1
set P16, I16
@@ -37,6 +38,7 @@
.end
CODE
/^_main:
+ set P16, P1
new P16, \d+ # \.Sub
set_addr I16, _f
set P16, I16
1.37 +1 -1 parrot/imcc/t/syn/pcc.t
Index: pcc.t
===================================================================
RCS file: /cvs/public/parrot/imcc/t/syn/pcc.t,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -w -r1.36 -r1.37
--- pcc.t 10 Mar 2004 15:48:50 -0000 1.36
+++ pcc.t 20 Mar 2004 09:35:48 -0000 1.37
@@ -129,7 +129,7 @@
if count <= 1 goto fin
product = product * count
dec count
- invoke
+ product = _fact(product, count)
fin:
.pcc_begin_return
.return product
