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

cotto at svn.parrot.org cotto at svn.parrot.org
Tue Mar 24 01:41:52 UTC 2009


Author: cotto
Date: Tue Mar 24 01:41:52 2009
New Revision: 37660
URL: https://trac.parrot.org/parrot/changeset/37660

Log:
[PMC] unbreak the build and fix a warning

Modified:
   trunk/src/pmc/hash.pmc
   trunk/src/pmc/lexinfo.pmc

Modified: trunk/src/pmc/hash.pmc
==============================================================================
--- trunk/src/pmc/hash.pmc	Tue Mar 24 01:36:15 2009	(r37659)
+++ trunk/src/pmc/hash.pmc	Tue Mar 24 01:41:52 2009	(r37660)
@@ -97,6 +97,7 @@
                 EXCEPTION_UNEXPECTED_NULL, "Hash: Cannot use NULL STRING key");
         else
             return keystr;
+    }
 
 }
 

Modified: trunk/src/pmc/lexinfo.pmc
==============================================================================
--- trunk/src/pmc/lexinfo.pmc	Tue Mar 24 01:36:15 2009	(r37659)
+++ trunk/src/pmc/lexinfo.pmc	Tue Mar 24 01:41:52 2009	(r37660)
@@ -62,7 +62,9 @@
     }
 
     VTABLE void init_pmc(PMC *sub) {
-        Hash *hash;
+        Hash                      *hash;
+        Parrot_LexInfo_attributes *attrs =
+            mem_allocate_zeroed_typed(Parrot_LexInfo_attributes);
         PARROT_ASSERT(PObj_constant_TEST(SELF));
         PMC_pmc_val(SELF) = sub;
 
@@ -72,8 +74,6 @@
             (hash_comp_fn)Parrot_str_not_equal,     /* STRING compare */
             (hash_hash_key_fn)Parrot_str_to_hashval); /*        hash    */
 
-        Parrot_LexInfo_attributes *attrs =
-            mem_allocate_zeroed_typed(Parrot_LexInfo_attributes);
         PMC_data(SELF) = attrs;
         SELF.set_pointer(hash);
         PObj_active_destroy_SET(SELF);


More information about the parrot-commits mailing list