[svn:parrot] r18892 - trunk/src/gc

[petdance]

Author: petdance
Date: Sat Jun  9 13:39:41 2007
New Revision: 18892

Modified:
   trunk/src/gc/register.c
   trunk/src/gc/resources.c

Log:
added a missing const qualifier on init_regs

Modified: trunk/src/gc/register.c
==============================================================================
--- trunk/src/gc/register.c     (original)
+++ trunk/src/gc/register.c     Sat Jun  9 13:39:41 2007
@@ -178,7 +178,7 @@
 }
 
 static void
-clear_regs(Interp *interp, parrot_context_t *ctx)
+clear_regs(Interp *interp /*NN*/, parrot_context_t *ctx /*NN*/)
 {
     int i;
 
@@ -217,8 +217,8 @@
 }
 
 static void
-init_context(Interp *interp, parrot_context_t *ctx /*NN*/,
-        parrot_context_t *old /*NULLOK*/)
+init_context(Interp *interp /*NN*/, parrot_context_t *ctx /*NN*/,
+        const parrot_context_t *old /*NULLOK*/)
 {
     ctx->ref_count = 0;                 /* TODO 1 - Exceptions !!! */
     ctx->current_results = NULL;
@@ -228,6 +228,7 @@
     ctx->current_cont = NULL;
     ctx->current_object = NULL; /* XXX who clears it?  */
     ctx->current_HLL = 0;
+
     if (old) {
         /* some items should better be COW copied */
         ctx->constants = old->constants;

Modified: trunk/src/gc/resources.c
==============================================================================
--- trunk/src/gc/resources.c    (original)
+++ trunk/src/gc/resources.c    Sat Jun  9 13:39:41 2007
@@ -183,7 +183,6 @@
 buffer_location(Interp *interp, const PObj *b)
 {
     int i;
-    const char *s = "???";
     static char reg[10];
 
     parrot_context_t* const ctx = CONTEXT(interp->ctx);
@@ -196,7 +195,7 @@
         }
     }
 
-    return s;
+    return "???";
 }
 
 static void