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

[email protected] Mon, 26 Jan 2009 22:06:39 -0800 (PST)
Newsgroups perl.cvs.parrot
Message-ID <[email protected]>
Author: petdance
Date: Mon Jan 26 22:06:38 2009
New Revision: 36043

Modified:
   trunk/src/gc/mark_sweep.c

Log:
one teeny const

Modified: trunk/src/gc/mark_sweep.c
==============================================================================
--- trunk/src/gc/mark_sweep.c	(original)
+++ trunk/src/gc/mark_sweep.c	Mon Jan 26 22:06:38 2009
@@ -723,7 +723,7 @@
 gc_ms_add_free_pmc_ext(SHIM_INTERP, ARGMOD(Small_Object_Pool *pool), ARGIN(void *to_add))
 {
     ASSERT_ARGS(gc_ms_add_free_pmc_ext)
-    PMC_EXT *object        = (PMC_EXT *)to_add;
+    PMC_EXT * const object = (PMC_EXT *)to_add;
     object->_metadata      = NULL;
 
     /* yes, this cast is a hack for now, but a pointer is a pointer */