[svn:parrot] r49398 - branches/generational_gc/compilers/opsc/src/Ops/Trans

bacek at svn.parrot.org bacek at svn.parrot.org
Fri Oct 1 06:58:30 UTC 2010


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

Log:
Update ops2c to generate proper core_ops.c

Modified:
   branches/generational_gc/compilers/opsc/src/Ops/Trans/C.pm

Modified: branches/generational_gc/compilers/opsc/src/Ops/Trans/C.pm
==============================================================================
--- branches/generational_gc/compilers/opsc/src/Ops/Trans/C.pm	Fri Oct  1 06:58:20 2010	(r49397)
+++ branches/generational_gc/compilers/opsc/src/Ops/Trans/C.pm	Fri Oct  1 06:58:30 2010	(r49398)
@@ -112,8 +112,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]]


More information about the parrot-commits mailing list