[svn:parrot] r18745 - trunk/src/pmc

[petdance]

Author: petdance
Date: Fri Jun  1 18:17:52 2007
New Revision: 18745

Modified:
   trunk/src/pmc/lexinfo.pmc

Log:
Removed unused var k_type

Modified: trunk/src/pmc/lexinfo.pmc
==============================================================================
--- trunk/src/pmc/lexinfo.pmc   (original)
+++ trunk/src/pmc/lexinfo.pmc   Fri Jun  1 18:17:52 2007
@@ -25,7 +25,7 @@
 static size_t
 key_hash_STRING(Interp *interp, void *value, size_t seed)
 {
-    STRING *s = (STRING *)value;
+    STRING * const s = (STRING *)value;
 
     if (s->hashval)
         return s->hashval;
@@ -127,11 +127,10 @@
     }
 
     void thaw(visit_info *info) {
-        IMAGE_IO *io = info->image_io;
+        IMAGE_IO * const io = info->image_io;
 
         if (info->extra_flags == EXTRA_IS_NULL) {
             const INTVAL elems = io->vtable->shift_integer(INTERP, io);
-            const INTVAL k_type = io->vtable->shift_integer(INTERP, io);
             const INTVAL v_type = io->vtable->shift_integer(INTERP, io);
             Hash *hash;