Author: leo
Date: Sun Nov 6 03:31:18 2005
New Revision: 9806
Modified:
trunk/classes/eval.pmc
trunk/t/p6rules/metachars.t
Log:
work around double free in eval.thaw; todo 1 metachars.t
Modified: trunk/classes/eval.pmc
==============================================================================
--- trunk/classes/eval.pmc (original)
+++ trunk/classes/eval.pmc Sun Nov 6 03:31:18 2005
@@ -304,7 +304,12 @@ Final code fixup after thawing.
}
}
pf->directory.num_segments = 0;
- PackFile_destroy(INTERP, pf);
+ /*
+ * XXX this isn't ok - it seems that the packfile
+ * gets attached to interpreter->code and is
+ * destroyed again during interpreter destruction
+ */
+ /* PackFile_destroy(INTERP, pf); */
}
void thawfinish(visit_info *info) {
Modified: trunk/t/p6rules/metachars.t
==============================================================================
--- trunk/t/p6rules/metachars.t (original)
+++ trunk/t/p6rules/metachars.t Sun Nov 6 03:31:18 2005
@@ -129,7 +129,7 @@ p6rule_is ("Gabc", '\Gabc', 'retired me
## \1 -- backreferences deprecated
-p6rule_is ("1abc", '\1abc', 'retired metachars (\1)');
+p6rule_is ("1abc", '\1abc', 'retired metachars (\1)', todo => 'implement me');
## setup for unicode whitespace tests
