[svn:parrot] r43545 - branches/orderedhash_revamp/src/pmc

bacek at svn.parrot.org bacek at svn.parrot.org
Sat Jan 23 01:53:34 UTC 2010


Author: bacek
Date: Sat Jan 23 01:53:33 2010
New Revision: 43545
URL: https://trac.parrot.org/parrot/changeset/43545

Log:
Fix OrderedHash thaw/freez

Modified:
   branches/orderedhash_revamp/src/pmc/orderedhash.pmc

Modified: branches/orderedhash_revamp/src/pmc/orderedhash.pmc
==============================================================================
--- branches/orderedhash_revamp/src/pmc/orderedhash.pmc	Sat Jan 23 01:53:14 2010	(r43544)
+++ branches/orderedhash_revamp/src/pmc/orderedhash.pmc	Sat Jan 23 01:53:33 2010	(r43545)
@@ -742,16 +742,14 @@
 */
 
     VTABLE void visit(visit_info *info) {
-        PMC **hash = &(PARROT_ORDEREDHASH(SELF)->hash);
-        info->thaw_ptr = hash;
-        (info->visit_pmc_now)(INTERP, *hash, info);
+        VISIT_PMC_ATTR(INTERP, info, SELF, OrderedHash, hash);
         SUPER(info);
     }
 
     VTABLE void thawfinish(visit_info *info) {
-        Parrot_OrderedHash_attributes *attrs =
-                PARROT_ORDEREDHASH(SELF);
+        Parrot_OrderedHash_attributes *attrs = PARROT_ORDEREDHASH(SELF);
         find_bounds(INTERP, attrs->hash, &attrs->first, &attrs->last);
+        SUPER(info);
     }
 }
 


More information about the parrot-commits mailing list