[svn:parrot] r40890 - branches/context_pmc3/lib/Parrot/OpTrans

[bacek at svn.parrot.org]

Author: bacek
Date: Mon Aug 31 09:45:24 2009
New Revision: 40890
URL: https://trac.parrot.org/parrot/changeset/40890

Log:
Fix CGoto core creation.

Modified:
   branches/context_pmc3/lib/Parrot/OpTrans/CGoto.pm

Modified: branches/context_pmc3/lib/Parrot/OpTrans/CGoto.pm
==============================================================================
--- branches/context_pmc3/lib/Parrot/OpTrans/CGoto.pm	Mon Aug 31 09:45:00 2009	(r40889)
+++ branches/context_pmc3/lib/Parrot/OpTrans/CGoto.pm	Mon Aug 31 09:45:24 2009	(r40890)
@@ -73,7 +73,7 @@
 #define NREG(i) REG_NUM(interp, cur_opcode[i])
 #define PREG(i) REG_PMC(interp, cur_opcode[i])
 #define SREG(i) REG_STR(interp, cur_opcode[i])
-#define CONST(i) Parrot_pcc_constants(interp, interp->ctx)[i]
+#define CONST(i) Parrot_pcc_constants(interp, interp->ctx)[cur_opcode[i]]
 END
 }