cvsuser 03/11/18 23:33:43
Modified: imcc/t/imcpasm optc.t pcc.t
imcc/t/syn pcc.t
Log:
Fix tests for new label rules.
Identifiers can now have an embedded # but they cannot
start with one. Too ambiguous, and IMCC could not even
compile PASM that it generated from parrot -o foo.pasm foo.imc
Revision Changes Path
1.7 +13 -13 parrot/imcc/t/imcpasm/optc.t
Index: optc.t
===================================================================
RCS file: /cvs/public/parrot/imcc/t/imcpasm/optc.t,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -w -r1.6 -r1.7
--- optc.t 16 Nov 2003 04:36:09 -0000 1.6
+++ optc.t 19 Nov 2003 07:33:35 -0000 1.7
@@ -31,7 +31,7 @@
new P5, \d+ # \.PerlUndef
set P5, 42
newsub P0, \d+, _sub
-#pcc_sub_call_\d:
+_#pcc_sub_call_\d:
set I0, 1
null I1
set I2, 1
@@ -75,7 +75,7 @@
new P5, \d+ # \.PerlUndef
set P5, 42
newsub P0, \d+, _sub
-#pcc_sub_call_\d:
+_#pcc_sub_call_\d:
set I0, 1
null I1
set I2, 1
@@ -88,7 +88,7 @@
end
_sub:
add P5, P5, 1
-#pcc_sub_ret_\d+:
+_#pcc_sub_ret_\d+:
set I0, 1
null I1
null I2
@@ -132,7 +132,7 @@
new P16, \d+ # \.PerlUndef
set P16, 10
newsub P0, \d+, _sub
-#pcc_sub_call_\d+:
+_#pcc_sub_call_\d+:
set I0, 1
null I1
set I2, 1
@@ -146,7 +146,7 @@
end
_sub:
add P5, P5, 1
-#pcc_sub_ret_\d+:
+_#pcc_sub_ret_\d+:
set I0, 1
null I1
null I2
@@ -185,7 +185,7 @@
new P5, \d+ # \.PerlUndef
set P5, 42
newsub P0, \d+, _sub
-#pcc_sub_call_\d:
+_#pcc_sub_call_\d:
set I0, 1
null I1
set I2, 1
@@ -198,7 +198,7 @@
end
_sub:
add P5, P5, 1
-#pcc_sub_ret_\d+:
+_#pcc_sub_ret_\d+:
set I0, 1
null I1
null I2
@@ -238,7 +238,7 @@
new P16, \d+ # \.PerlUndef
set P16, 42
newsub P0, \d+, _sub
-#pcc_sub_call_\d:
+_#pcc_sub_call_\d:
set P5, P16
set I0, 1
null I1
@@ -253,7 +253,7 @@
end
_sub:
add P5, P5, 1
-#pcc_sub_ret_\d+:
+_#pcc_sub_ret_\d+:
set I0, 1
null I1
null I2
@@ -293,7 +293,7 @@
/_main:
set P16, P1
newsub P0, \d+, _sub1
-#pcc_sub_call_\d+:
+_#pcc_sub_call_\d+:
set I0, 1
null I1
null I2
@@ -306,14 +306,14 @@
_sub1:
set P17, P1
newsub P17, \d+, _sub2
-#pcc_sub_call_\d+:
+_#pcc_sub_call_\d+:
set P5, P16
set I16, P17
jump I16
ret:
-#pcc_sub_ret_\d+:
+_#pcc_sub_ret_\d+:
_sub2:
-#pcc_sub_ret_\d+:
+_#pcc_sub_ret_\d+:
set I0, 1
null I1
null I2
1.17 +13 -13 parrot/imcc/t/imcpasm/pcc.t
Index: pcc.t
===================================================================
RCS file: /cvs/public/parrot/imcc/t/imcpasm/pcc.t,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -w -r1.16 -r1.17
--- pcc.t 16 Nov 2003 04:36:09 -0000 1.16
+++ pcc.t 19 Nov 2003 07:33:35 -0000 1.17
@@ -25,7 +25,7 @@
/_main:
set P16, P1
newsub P16, \d+, _sub
-#pcc_sub_call_\d:
+_#pcc_sub_call_\d:
set I5, 10
set P0, P16
set I0, 1
@@ -72,7 +72,7 @@
set P16, P1
newsub P17, \d+, _sub
newsub P16, \d+, ret
-#pcc_sub_call_\d:
+_#pcc_sub_call_\d:
set I5, 10
set I6, 20
set P0, P17
@@ -90,7 +90,7 @@
end
_sub:
add I16, I5, I6
-#pcc_sub_ret_\d+:
+_#pcc_sub_ret_\d+:
set I5, I16
set I0, 1
set I1, 1
@@ -121,7 +121,7 @@
_main:
set P16, P1
print "ok 1\n"
-#pcc_sub_call_5:
+_#pcc_sub_call_5:
set I5, 10
set N5, 20.0
set I0, 1
@@ -161,7 +161,7 @@
set P16, P1
set I(\d+), 10
set I(\d+), 20
-#pcc_sub_call_\d:
+_#pcc_sub_call_\d:
set I5, I\1
set I6, I\2
set I0, 1
@@ -195,7 +195,7 @@
/_main:
set P16, P1
newsub P16, \d+, _sub
-#pcc_sub_call_\d:
+_#pcc_sub_call_\d:
new P3,.*?
set P3, 2
push P3, 10
@@ -231,7 +231,7 @@
/_main:
set P16, P1
newsub P(\d+), \d+, _sub
-#pcc_sub_call_\d:
+_#pcc_sub_call_\d:
set P5, P\d+
set P6, P\d+
set P0, P\1
@@ -267,7 +267,7 @@
/_main:
set P16, P1
newsub P16, \d+, _sub
-#pcc_sub_call_\d:
+_#pcc_sub_call_\d:
new P3,.*?
set P3, 1
push P3, 10
@@ -311,7 +311,7 @@
/_main:
set P16, P1
newsub P16, \d+, _sub
-#pcc_sub_call_\d:
+_#pcc_sub_call_\d:
set I5, 10
set P0, P16
set I0, 1
@@ -357,7 +357,7 @@
/_main:
set P16, P1
newsub P16, \d+, _sub
-#pcc_sub_call_\d:
+_#pcc_sub_call_\d:
set P5, P17
set P0, P16
set I0, 1
@@ -403,7 +403,7 @@
/_main:
set P16, P1
newsub P16, \d+, _sub
-#pcc_sub_call_\d:
+_#pcc_sub_call_\d:
set P0, P16
set I0, 1
set I1, 0
@@ -415,7 +415,7 @@
restoretop
end
_sub:
-#pcc_sub_ret_\d+:
+_#pcc_sub_ret_\d+:
set P5, P16
set I0, 1
set I1, 0
@@ -423,7 +423,7 @@
set I3, 1
set I4, 0
invoke P1
-#pcc_sub_ret_\d+:
+_#pcc_sub_ret_\d+:
set P5, P17
set I0, 1
set I1, 0
1.25 +2 -2 parrot/imcc/t/syn/pcc.t
Index: pcc.t
===================================================================
RCS file: /cvs/public/parrot/imcc/t/syn/pcc.t,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -w -r1.24 -r1.25
