develooper Front page | perl.cvs.parrot | Postings from January 2009

[svn:parrot] r35520 - trunk/src

From:
cotto
Date:
January 14, 2009 01:12
Subject:
[svn:parrot] r35520 - trunk/src
Message ID:
20090114091150.64050CB9AE@x12.develooper.com
Author: cotto
Date: Wed Jan 14 01:11:49 2009
New Revision: 35520

Modified:
   trunk/src/oo.c

Log:
[oo] replace a couple PMC_x_val macros with VTABLE functions


Modified: trunk/src/oo.c
==============================================================================
--- trunk/src/oo.c	(original)
+++ trunk/src/oo.c	Wed Jan 14 01:11:49 2009
@@ -595,7 +595,7 @@
             PMC    *classname_hash = interp->class_hash;
             /* set entry in name->type hash */
             PMC    *item      = pmc_new(interp, enum_class_Integer);
-            PMC_int_val(item) = type;
+            VTABLE_set_integer_native(interp, item, type);
 
             VTABLE_set_pmc_keyed(interp, classname_hash, name, item);
         }
@@ -971,7 +971,7 @@
     if (PObj_is_class_TEST(_class)) {
         SLOTTYPE * const class_array = PMC_data_typed(_class, SLOTTYPE *);
         PMC *const class_name_pmc = get_attrib_num(class_array, PCD_CLASS_NAME);
-        class_name = PMC_str_val(class_name_pmc);
+        class_name = VTABLE_get_string(interp, class_name_pmc);
     }
     else
         class_name = _class->vtable->whoami;



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About