cvsuser 03/11/23 22:05:08
Modified: imcc/t/imcpasm optc.t pcc.t
Log:
Fix tests.
Revision Changes Path
1.8 +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.7
retrieving revision 1.8
diff -u -w -r1.7 -r1.8
--- optc.t 19 Nov 2003 07:33:35 -0000 1.7
+++ optc.t 24 Nov 2003 06:05:08 -0000 1.8
@@ -31,7 +31,7 @@
new P5, \d+ # \.PerlUndef
set P5, 42
newsub P0, \d+, _sub
-_#pcc_sub_call_\d:
[EMAIL PROTECTED]:
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:
[EMAIL PROTECTED]:
set I0, 1
null I1
set I2, 1
@@ -88,7 +88,7 @@
end
_sub:
add P5, P5, 1
-_#pcc_sub_ret_\d+:
[EMAIL PROTECTED]:
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+:
[EMAIL PROTECTED]:
set I0, 1
null I1
set I2, 1
@@ -146,7 +146,7 @@
end
_sub:
add P5, P5, 1
-_#pcc_sub_ret_\d+:
[EMAIL PROTECTED]:
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:
[EMAIL PROTECTED]:
set I0, 1
null I1
set I2, 1
@@ -198,7 +198,7 @@
end
_sub:
add P5, P5, 1
-_#pcc_sub_ret_\d+:
[EMAIL PROTECTED]:
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:
[EMAIL PROTECTED]:
set P5, P16
set I0, 1
null I1
@@ -253,7 +253,7 @@
end
_sub:
add P5, P5, 1
-_#pcc_sub_ret_\d+:
[EMAIL PROTECTED]:
set I0, 1
null I1
null I2
@@ -293,7 +293,7 @@
/_main:
set P16, P1
newsub P0, \d+, _sub1
-_#pcc_sub_call_\d+:
[EMAIL PROTECTED]:
set I0, 1
null I1
null I2
@@ -306,14 +306,14 @@
_sub1:
set P17, P1
newsub P17, \d+, _sub2
-_#pcc_sub_call_\d+:
[EMAIL PROTECTED]:
set P5, P16
set I16, P17
jump I16
ret:
-_#pcc_sub_ret_\d+:
[EMAIL PROTECTED]:
_sub2:
-_#pcc_sub_ret_\d+:
[EMAIL PROTECTED]:
set I0, 1
null I1
null I2
1.18 +17 -17 parrot/imcc/t/imcpasm/pcc.t
Index: pcc.t
===================================================================
RCS file: /cvs/public/parrot/imcc/t/imcpasm/pcc.t,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -w -r1.17 -r1.18
--- pcc.t 19 Nov 2003 07:33:35 -0000 1.17
+++ pcc.t 24 Nov 2003 06:05:08 -0000 1.18
@@ -25,7 +25,7 @@
/_main:
set P16, P1
newsub P16, \d+, _sub
-_#pcc_sub_call_\d:
[EMAIL PROTECTED]:
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:
[EMAIL PROTECTED]:
set I5, 10
set I6, 20
set P0, P17
@@ -90,7 +90,7 @@
end
_sub:
add I16, I5, I6
-_#pcc_sub_ret_\d+:
[EMAIL PROTECTED]:
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:
[EMAIL PROTECTED]:
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:
[EMAIL PROTECTED]:
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:
[EMAIL PROTECTED]:
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:
[EMAIL PROTECTED]:
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:
[EMAIL PROTECTED]:
new P3,.*?
set P3, 1
push P3, 10
@@ -283,9 +283,9 @@
end
_sub:
set I16, 1
- bsr _#check_params
+ bsr @check_params
set I16, -100
- bsr _#check_param_type
+ bsr @check_param_type
shift I16, P3
print I16
end/
@@ -311,7 +311,7 @@
/_main:
set P16, P1
newsub P16, \d+, _sub
-_#pcc_sub_call_\d:
[EMAIL PROTECTED]:
set I5, 10
set P0, P16
set I0, 1
@@ -326,9 +326,9 @@
_sub:
if I0, (\S+)
set I16, 1
- bsr _#check_params
+ bsr @check_params
set I16, -100
- bsr _#check_param_type
+ bsr @check_param_type
shift I5, P3
branch (\S*)
\1:
@@ -357,7 +357,7 @@
/_main:
set P16, P1
newsub P16, \d+, _sub
-_#pcc_sub_call_\d:
[EMAIL PROTECTED]:
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:
[EMAIL PROTECTED]:
set P0, P16
set I0, 1
set I1, 0
@@ -415,7 +415,7 @@
restoretop
end
_sub:
-_#pcc_sub_ret_\d+:
[EMAIL PROTECTED]:
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+:
[EMAIL PROTECTED]:
set P5, P17
set I0, 1
set I1, 0
