[svn:parrot] r49397 - branches/generational_gc/src/ops

[bacek at svn.parrot.org]

Author: bacek
Date: Fri Oct  1 06:58:20 2010
New Revision: 49397
URL: https://trac.parrot.org/parrot/changeset/49397

Log:
HACK: Update core_ops.c in-place to go throught CallContext accessors. Unfortunately I can't properly re-bootstrap ops just yet.

Modified:
   branches/generational_gc/src/ops/core_ops.c

Modified: branches/generational_gc/src/ops/core_ops.c
==============================================================================
--- branches/generational_gc/src/ops/core_ops.c	Fri Oct  1 06:58:11 2010	(r49396)
+++ branches/generational_gc/src/ops/core_ops.c	Fri Oct  1 06:58:20 2010	(r49397)
@@ -20,8 +20,8 @@
 #define CUR_OPCODE cur_opcode
 #define IREG(i) (CUR_CTX->bp.regs_i[cur_opcode[i]])
 #define NREG(i) (CUR_CTX->bp.regs_n[-1L - cur_opcode[i]])
-#define PREG(i) (CUR_CTX->bp_ps.regs_p[-1L - cur_opcode[i]])
-#define SREG(i) (CUR_CTX->bp_ps.regs_s[cur_opcode[i]])
+#define PREG(i) REG_PMC(interp, cur_opcode[i])
+#define SREG(i) REG_STR(interp, cur_opcode[i])
 #define ICONST(i) cur_opcode[i]
 #define NCONST(i) Parrot_pcc_get_num_constants(interp, interp->ctx)[cur_opcode[i]]
 #define SCONST(i) Parrot_pcc_get_str_constants(interp, interp->ctx)[cur_opcode[i]]