[svn:parrot] r43005 - branches/context_unify3/src/call

bacek at svn.parrot.org bacek at svn.parrot.org
Fri Dec 11 21:34:23 UTC 2009


Author: bacek
Date: Fri Dec 11 21:34:22 2009
New Revision: 43005
URL: https://trac.parrot.org/parrot/changeset/43005

Log:
Update context.c to use CallContext instead ot Context.

Modified:
   branches/context_unify3/src/call/context.c

Modified: branches/context_unify3/src/call/context.c
==============================================================================
--- branches/context_unify3/src/call/context.c	Fri Dec 11 21:34:02 2009	(r43004)
+++ branches/context_unify3/src/call/context.c	Fri Dec 11 21:34:22 2009	(r43005)
@@ -454,7 +454,7 @@
 allocate_registers(PARROT_INTERP, ARGIN(PMC *pmcctx), ARGIN(const INTVAL *number_regs_used))
 {
     ASSERT_ARGS(allocate_registers)
-    Parrot_Context_attributes *ctx = PARROT_CONTEXT(pmcctx);
+    Parrot_CallContext_attributes *ctx = PARROT_CALLCONTEXT(pmcctx);
 
     const size_t size_i = sizeof (INTVAL)   * number_regs_used[REGNO_INT];
     const size_t size_n = sizeof (FLOATVAL) * number_regs_used[REGNO_NUM];
@@ -517,7 +517,7 @@
 Parrot_pcc_free_registers(PARROT_INTERP, ARGIN(PMC *pmcctx))
 {
     ASSERT_ARGS(Parrot_pcc_free_registers)
-    Parrot_Context_attributes * const ctx = PARROT_CONTEXT(pmcctx);
+    Parrot_CallContext_attributes * const ctx = PARROT_CALLCONTEXT(pmcctx);
     size_t reg_size;
 
     if (!ctx)
@@ -543,6 +543,8 @@
 the init flag to indicate whether you want to initialize the new context
 (setting its default values and clearing its registers).
 
+TODO: Remove this function!
+
 =cut
 
 */
@@ -554,7 +556,7 @@
     ARGIN_NULLOK(PMC *old))
 {
     ASSERT_ARGS(Parrot_alloc_context)
-    PMC            *pmcctx = pmc_new(interp, enum_class_Context);
+    PMC            *pmcctx = pmc_new(interp, enum_class_CallContext);
 
     allocate_registers(interp, pmcctx, number_regs_used);
     init_context(interp, pmcctx, old);


More information about the parrot-commits mailing list