cvsuser 04/03/22 06:32:33
Modified: imcc/t/syn pcc.t
Log:
check I3 too; typo fix
Revision Changes Path
1.39 +33 -3 parrot/imcc/t/syn/pcc.t
Index: pcc.t
===================================================================
RCS file: /cvs/public/parrot/imcc/t/syn/pcc.t,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -w -r1.38 -r1.39
--- pcc.t 22 Mar 2004 13:09:32 -0000 1.38
+++ pcc.t 22 Mar 2004 14:32:33 -0000 1.39
@@ -1,6 +1,6 @@
#!perl
use strict;
-use TestCompiler tests => 34;
+use TestCompiler tests => 35;
##############################
# Parrot Calling Conventions
@@ -1296,8 +1296,8 @@
output_is(<<'CODE', <<'OUT', "P3 isnt NULL - 12 args");
.sub _main
- P3 = new .PerlArray
- # call with 11 parameters
+ null P3
+ # call with 12 parameters
_foo($P1, $P2, $P3, $P4, $P5, $P6, $P7, $P8, $P9, $P10, $P11, $P12)
end
.end
@@ -1308,6 +1308,8 @@
$I0 = P3
print $I0
print "\n"
+ print I3
+ print "\n"
goto return
p3_is_null:
print "P3 is NULL\n"
@@ -1316,5 +1318,33 @@
CODE
P3 is not NULL
1
+11
+OUT
+
+output_is(<<'CODE', <<'OUT', "P3 isnt NULL - 13 args");
+.sub _main
+ null P3
+ # call with 13 parameters
+ _foo($P1, $P2, $P3, $P4, $P5, $P6, $P7, $P8, $P9, $P10, $P11, $P12, $P13)
+ end
+.end
+
+.sub _foo
+ isnull P3, p3_is_null
+ print "P3 is not NULL\n"
+ $I0 = P3
+ print $I0
+ print "\n"
+ print I3
+ print "\n"
+ goto return
+p3_is_null:
+ print "P3 is NULL\n"
+return:
+.end
+CODE
+P3 is not NULL
+2
+11
OUT
