# New Ticket Created by Peter Gibbs
# Please include the string: [perl #17067]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=17067 >
Mike's changes to integrate the external and selfpoolptr flags
have resulted in the on_free_list flag remaining set when a
buffer header is reallocated.
This breaks life, so I have had to fix it to be able to compare
timings between cvs and grey. Patch appears below.
--
Peter Gibbs
EmKel Systems
Index: headers.c
===================================================================
RCS file: /cvs/public/parrot/headers.c,v
retrieving revision 1.10
diff -u -r1.10 headers.c
--- headers.c 6 Sep 2002 08:23:07 -0000 1.10
+++ headers.c 7 Sep 2002 09:06:03 -0000
@@ -100,6 +100,8 @@
/* Don't let it point to garbage memory */
buffer->bufstart = NULL;
+ /* Clear the flagpole (especially BUFFER_on_free_list_FLAG) */
+ buffer->flags = 0;
#if GC_DEBUG
buffer->version++;
#endif
