[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