cvsuser 03/02/03 03:19:20
Modified: . core.ops
lib/Parrot/OpTrans Compiled.pm
Log:
invoke
Revision Changes Path
1.252 +1 -1 parrot/core.ops
Index: core.ops
===================================================================
RCS file: /cvs/public/parrot/core.ops,v
retrieving revision 1.251
retrieving revision 1.252
diff -u -w -r1.251 -r1.252
--- core.ops 31 Jan 2003 16:41:02 -0000 1.251
+++ core.ops 3 Feb 2003 11:19:14 -0000 1.252
@@ -4544,7 +4544,7 @@
opcode_t *dest;
PMC * p = interpreter->ctx.pmc_reg.registers[0];
- dest = (opcode_t *)p->vtable->invoke(interpreter, p, expr NEXT());
+ dest = (opcode_t *)p->vtable->invoke(interpreter, p, CUR_OPCODE + 1);
goto ADDRESS(dest);
}
1.9 +2 -1 parrot/lib/Parrot/OpTrans/Compiled.pm
Index: Compiled.pm
===================================================================
RCS file: /cvs/public/parrot/lib/Parrot/OpTrans/Compiled.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -w -r1.8 -r1.9
--- Compiled.pm 21 Jan 2003 10:11:01 -0000 1.8
+++ Compiled.pm 3 Feb 2003 11:19:20 -0000 1.9
@@ -1,7 +1,7 @@
#
# CGoto.pm
#
-# $Id: Compiled.pm,v 1.8 2003/01/21 10:11:01 leo Exp $
+# $Id: Compiled.pm,v 1.9 2003/02/03 11:19:20 leo Exp $
#
use strict;
@@ -17,6 +17,7 @@
{
return <<END;
#define CUR_OPCODE cur_opcode
+#define REL_PC (cur_opcode - start_code)
#define IREG(i) interpreter->ctx.int_reg.registers[i]
#define NREG(i) interpreter->ctx.num_reg.registers[i]
#define PREG(i) interpreter->ctx.pmc_reg.registers[i]
