[svn:parrot] r21737 - branches/pdd15oo/src/pmc

[allison]

Author: allison
Date: Mon Oct  1 23:03:06 2007
New Revision: 21737

Modified:
   branches/pdd15oo/src/pmc/class.pmc

Log:
[pdd15oo] Register class types as keys (reverting one previous change).


Modified: branches/pdd15oo/src/pmc/class.pmc
==============================================================================
--- branches/pdd15oo/src/pmc/class.pmc  (original)
+++ branches/pdd15oo/src/pmc/class.pmc  Mon Oct  1 23:03:06 2007
@@ -205,8 +205,9 @@
         parrot_realloc_vtables(interp);
 
     /* set entry in name->type hash */
-    VTABLE_set_integer_keyed_str(interp, classname_hash,
-            VTABLE_get_string(interp, name), type);
+    item              = pmc_new(interp, enum_class_Integer);
+    PMC_int_val(item) = type;
+    VTABLE_set_pmc_keyed(interp, classname_hash, name, item);
 
     UNLOCK_INTERPRETER(interp);