[svn:parrot] r48312 - branches/gc_massacre/src/call

[mikehh at svn.parrot.org]

Author: mikehh
Date: Wed Aug  4 10:37:50 2010
New Revision: 48312
URL: https://trac.parrot.org/parrot/changeset/48312

Log:
[gc_massacre] add 3  missing const - still other problems

Modified:
   branches/gc_massacre/src/call/context_accessors.c

Modified: branches/gc_massacre/src/call/context_accessors.c
==============================================================================
--- branches/gc_massacre/src/call/context_accessors.c	Wed Aug  4 08:48:59 2010	(r48311)
+++ branches/gc_massacre/src/call/context_accessors.c	Wed Aug  4 10:37:50 2010	(r48312)
@@ -165,7 +165,7 @@
 Parrot_pcc_get_caller_ctx_func(SHIM_INTERP, ARGIN(PMC *ctx))
 {
     ASSERT_ARGS(Parrot_pcc_get_caller_ctx_func)
-    const Parrot_Context *c = CONTEXT_STRUCT(ctx);
+    const Parrot_Context * const c = CONTEXT_STRUCT(ctx);
     PARROT_ASSERT(ctx->vtable->base_type == enum_class_CallContext);
     return c->caller_ctx;
 }
@@ -201,7 +201,7 @@
 Parrot_pcc_get_outer_ctx_func(SHIM_INTERP, ARGIN(PMC *ctx))
 {
     ASSERT_ARGS(Parrot_pcc_get_outer_ctx_func)
-    const Parrot_Context *c = CONTEXT_STRUCT(ctx);
+    const Parrot_Context * const c = CONTEXT_STRUCT(ctx);
     PARROT_ASSERT(ctx->vtable->base_type == enum_class_CallContext);
     return c->outer_ctx;
 }
@@ -235,7 +235,7 @@
 Parrot_pcc_get_lex_pad_func(SHIM_INTERP, ARGIN(PMC *ctx))
 {
     ASSERT_ARGS(Parrot_pcc_get_lex_pad_func)
-    const Parrot_Context *c = CONTEXT_STRUCT(ctx);
+    const Parrot_Context * const c = CONTEXT_STRUCT(ctx);
     PARROT_ASSERT(ctx->vtable->base_type == enum_class_CallContext);
     return c->lex_pad;
 }