cvsuser 03/12/27 02:34:10
Modified: ops ops.num
t/op calling.t
Log:
add foldup to ops.num; get rid of magic consts in test
Revision Changes Path
1.17 +1 -1 parrot/ops/ops.num
Index: ops.num
===================================================================
RCS file: /cvs/public/parrot/ops/ops.num,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -w -r1.16 -r1.17
--- ops.num 25 Dec 2003 21:48:58 -0000 1.16
+++ ops.num 27 Dec 2003 10:34:08 -0000 1.17
@@ -1342,4 +1342,4 @@
ne_addr_p_p_ic 1315
isnull_p_ic 1316
deref_p_p 1317
-
+foldup_p 1318
1.2 +58 -59 parrot/t/op/calling.t
Index: calling.t
===================================================================
RCS file: /cvs/public/parrot/t/op/calling.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -r1.1 -r1.2
--- calling.t 27 Dec 2003 07:13:23 -0000 1.1
+++ calling.t 27 Dec 2003 10:34:10 -0000 1.2
@@ -5,25 +5,24 @@
# Test calling convention operations
output_is(<<'CODE', <<OUTPUT, "foldup");
-set P16,P1
-new P19,36
-new P18,36
-new P17,36
-new P16,36
-new P21,36
-new P20,36
-new P22,36
-new P24,36
-new P28,36
-new P29,36
-new P30,36
-new P27,36
-new P26,36
-new P25,36
-new P23,36
+ new P19, .PerlString
+ new P18, .PerlString
+ new P17, .PerlString
+ new P16, .PerlString
+ new P21, .PerlString
+ new P20, .PerlString
+ new P22, .PerlString
+ new P24, .PerlString
+ new P28, .PerlString
+ new P29, .PerlString
+ new P30, .PerlString
+ new P27, .PerlString
+ new P26, .PerlString
+ new P25, .PerlString
+ new P23, .PerlString
set P20,"Foobar!"
set P23,"Baxman!"
-newsub P0,45,74
+ newsub P0, .Sub, _foo
set P5,P19
set P6,P18
set P7,P17
@@ -35,13 +34,12 @@
set P13,P28
set P14,P29
set P15,P30
-new P3,42
+ new P3, .SArray
set P3,15
push P3,P27
push P3,P26
push P3,P25
push P3,P23
-set P0,P0
set I0,1
set I1,4
set I2,11
@@ -50,6 +48,7 @@
invokecc
restoretop
end
+_foo:
foldup P17
set P16,P17[5]
print P16
@@ -63,7 +62,7 @@
set I3,0
set I4,0
invoke P1
-end
+
CODE
Foobar!
Baxman!
