[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