[svn:parrot] r46114 - in branches/pbc_frozen_strings1/src: . pmc

plobsing at svn.parrot.org plobsing at svn.parrot.org
Wed Apr 28 18:16:56 UTC 2010


Author: plobsing
Date: Wed Apr 28 18:16:56 2010
New Revision: 46114
URL: https://trac.parrot.org/parrot/changeset/46114

Log:
fix codetest

Modified:
   branches/pbc_frozen_strings1/src/pmc/imageio.pmc
   branches/pbc_frozen_strings1/src/pmc_freeze.c

Modified: branches/pbc_frozen_strings1/src/pmc/imageio.pmc
==============================================================================
--- branches/pbc_frozen_strings1/src/pmc/imageio.pmc	Wed Apr 28 17:54:53 2010	(r46113)
+++ branches/pbc_frozen_strings1/src/pmc/imageio.pmc	Wed Apr 28 18:16:56 2010	(r46114)
@@ -322,14 +322,14 @@
         Hash * const hash = (Hash *)VTABLE_get_pointer(interp, PARROT_IMAGEIO(info)->seen);
 
         PARROT_ASSERT(pmc);
-        
+
         /* workaround to keep ParrotInterpreter PBC hack working */
         if (pmc->vtable->base_type == enum_class_ParrotInterpreter)
             PObj_flag_CLEAR(private1, info);
 
         VTABLE_push_integer(interp, info,
                 PObj_is_object_TEST(pmc) ? (INTVAL) enum_class_Object : pmc->vtable->base_type);
-                
+
         parrot_hash_put(interp, hash, pmc, (void *)id);
         VTABLE_push_pmc(interp, PARROT_IMAGEIO(info)->todo, pmc);
         VTABLE_freeze(interp, pmc, info);
@@ -634,7 +634,8 @@
         if (PObj_flag_TEST(private1, SELF)) {
             PackFile_ConstTable *table = PARROT_IMAGEIO(SELF)->pf_ct;
             opcode_t *pos              = GET_VISIT_CURSOR(SELF);
-            INTVAL i                   = PF_fetch_integer(PARROT_IMAGEIO(SELF)->pf, (const opcode_t **)&pos);
+            INTVAL i                   = PF_fetch_integer(PARROT_IMAGEIO(SELF)->pf,
+                                                (const opcode_t **)&pos);
             SET_VISIT_CURSOR(SELF, (char *)pos);
             BYTECODE_SHIFT_OK(SELF);
             return table->constants[i]->u.string;

Modified: branches/pbc_frozen_strings1/src/pmc_freeze.c
==============================================================================
--- branches/pbc_frozen_strings1/src/pmc_freeze.c	Wed Apr 28 17:54:53 2010	(r46113)
+++ branches/pbc_frozen_strings1/src/pmc_freeze.c	Wed Apr 28 18:16:56 2010	(r46114)
@@ -157,6 +157,7 @@
 PMC *
 Parrot_freeze_strings(PARROT_INTERP, PMC *pmc)
 {
+    ASSERT_ARGS(Parrot_freeze_strings)
     PMC *visitor = Parrot_pmc_new(interp, enum_class_ImageIOStrings);
     VTABLE_set_pmc(interp, visitor, pmc);
     return VTABLE_get_pmc(interp, visitor);
@@ -225,6 +226,8 @@
 =item C<PMC* Parrot_thaw_pbc(PARROT_INTERP, STRING *image, PackFile_ConstTable
 *pf)>
 
+Thaw a pmc frozen by Parrot_freeze_pbc.
+
 =cut
 
 */
@@ -235,7 +238,7 @@
 PMC*
 Parrot_thaw_pbc(PARROT_INTERP, ARGIN(STRING *image), ARGIN(PackFile_ConstTable *pf))
 {
-    ASSERT_ARGS(Parrot_thaw)
+    ASSERT_ARGS(Parrot_thaw_pbc)
     PMC *info, *pf_pmc, *result;
 
     pf_pmc = Parrot_pmc_new(interp, enum_class_UnManagedStruct);


More information about the parrot-commits mailing list