[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