[svn:parrot] r40866 - in branches/context_pmc3/src: . call

[bacek at svn.parrot.org]

Author: bacek
Date: Sun Aug 30 11:15:22 2009
New Revision: 40866
URL: https://trac.parrot.org/parrot/changeset/40866

Log:
Use Parrot_pcc_set_constants function.

Modified:
   branches/context_pmc3/src/call/context.c
   branches/context_pmc3/src/embed.c
   branches/context_pmc3/src/extend.c

Modified: branches/context_pmc3/src/call/context.c
==============================================================================
--- branches/context_pmc3/src/call/context.c	Sun Aug 30 11:14:59 2009	(r40865)
+++ branches/context_pmc3/src/call/context.c	Sun Aug 30 11:15:22 2009	(r40866)
@@ -45,7 +45,7 @@
 Parrot_pcc_set_constants(PARROT_INTERP, ARGIN(PMC *ctx), ARGIN(struct PackFile_Constant **constants))
 {
     ASSERT_ARGS(Parrot_pcc_set_constants)
-    Parrot_Context const * c = Parrot_pcc_get_context(interp, ctx);
+    Parrot_Context * c = Parrot_pcc_get_context(interp, ctx);
     c->constants = constants;
 }
 

Modified: branches/context_pmc3/src/embed.c
==============================================================================
--- branches/context_pmc3/src/embed.c	Sun Aug 30 11:14:59 2009	(r40865)
+++ branches/context_pmc3/src/embed.c	Sun Aug 30 11:15:22 2009	(r40866)
@@ -978,7 +978,7 @@
         main_sub = set_current_sub(interp);
 
     Parrot_pcc_set_sub(interp, CONTEXT(interp), NULL);
-    CURRENT_CONTEXT_FIELD(interp, constants)   = interp->code->const_table->constants;
+    Parrot_pcc_set_constants(interp, interp->ctx, interp->code->const_table->constants);
 
     Parrot_runops_fromc_args(interp, main_sub, "vP", userargv);
 }
@@ -1247,7 +1247,7 @@
     run_native = func;
 
     if (interp->code && interp->code->const_table)
-        CURRENT_CONTEXT_FIELD(interp, constants) = interp->code->const_table->constants;
+        Parrot_pcc_set_constants(interp, interp->ctx, interp->code->const_table->constants);
 
     runops(interp, interp->resume_offset);
 }

Modified: branches/context_pmc3/src/extend.c
==============================================================================
--- branches/context_pmc3/src/extend.c	Sun Aug 30 11:14:59 2009	(r40865)
+++ branches/context_pmc3/src/extend.c	Sun Aug 30 11:15:22 2009	(r40866)
@@ -1046,7 +1046,7 @@
 
     va_start(ap, signature);
     PMC_get_sub(interp, sub_pmc, sub);
-    CURRENT_CONTEXT_FIELD(interp, constants) = sub->seg->const_table->constants;
+    Parrot_pcc_set_constants(interp, interp->ctx, sub->seg->const_table->constants);
     result = Parrot_runops_fromc_arglist(interp, sub_pmc, signature, ap);
     va_end(ap);
 
@@ -1079,7 +1079,7 @@
 
     va_start(ap, signature);
     PMC_get_sub(interp, sub_pmc, sub);
-    CURRENT_CONTEXT_FIELD(interp, constants) = sub->seg->const_table->constants;
+    Parrot_pcc_set_constants(interp, interp->ctx, sub->seg->const_table->constants);
     result = Parrot_runops_fromc_arglist_reti(interp, sub_pmc, signature, ap);
     va_end(ap);
 
@@ -1112,7 +1112,7 @@
 
     va_start(ap, signature);
     PMC_get_sub(interp, sub_pmc, sub);
-    CURRENT_CONTEXT_FIELD(interp, constants) = sub->seg->const_table->constants;
+    Parrot_pcc_set_constants(interp, interp->ctx, sub->seg->const_table->constants);
     result = Parrot_runops_fromc_arglist_retf(interp, sub_pmc, signature, ap);
     va_end(ap);