cvsuser 05/01/04 03:24:54
Modified: ops ops.num var.ops
t/pmc resizablestringarray.t
Log:
pop_pad_p implemented
Revision Changes Path
1.54 +1 -0 parrot/ops/ops.num
Index: ops.num
===================================================================
RCS file: /cvs/public/parrot/ops/ops.num,v
retrieving revision 1.53
retrieving revision 1.54
diff -u -r1.53 -r1.54
--- ops.num 16 Dec 2004 10:37:14 -0000 1.53
+++ ops.num 4 Jan 2005 11:24:52 -0000 1.54
@@ -1364,3 +1364,4 @@
pushmark_i 1334
pushmark_ic 1335
new_p_sc 1336
+pop_pad_p 1337
1.25 +6 -0 parrot/ops/var.ops
Index: var.ops
===================================================================
RCS file: /cvs/public/parrot/ops/var.ops,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -r1.24 -r1.25
--- var.ops 3 Jan 2005 02:05:37 -0000 1.24
+++ var.ops 4 Jan 2005 11:24:52 -0000 1.25
@@ -91,6 +91,12 @@
goto NEXT();
}
+op pop_pad(out PMC) {
+ stack_pop(interpreter, &interpreter->ctx.pad_stack,
+ &$1, STACK_ENTRY_PMC);
+ goto NEXT();
+}
+
########################################
=item B<peek_pad>(out PMC)
1.9 +3 -3 parrot/t/pmc/resizablestringarray.t
Index: resizablestringarray.t
===================================================================
RCS file: /cvs/public/parrot/t/pmc/resizablestringarray.t,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- resizablestringarray.t 3 Jan 2005 22:13:52 -0000 1.8
+++ resizablestringarray.t 4 Jan 2005 11:24:54 -0000 1.9
@@ -1,6 +1,6 @@
#! perl -w
# Copyright: 2001-2003 The Perl Foundation. All Rights Reserved.
-# $Id: resizablestringarray.t,v 1.8 2005/01/03 22:13:52 scog Exp $
+# $Id: resizablestringarray.t,v 1.9 2005/01/04 11:24:54 leo Exp $
=head1 NAME
@@ -347,8 +347,8 @@
L1: set S0, I0
set P0[I0], S0
inc I0
- lt I0, 100000, L1
-
+ lt I0, 1000, L1
+
L2: dec I0
set S1, I0
pop S0, P0
