Bryan C. Warnock wrote:
> Oh, in which case, I agree with you. ;-)
Oh, woops. :) For some reason I was assuming you were arguing against
my patch.
Anyways, below is a revised and simpler patch that implements the same
semantics as before, but using Dan's new DOD_block_level and
GC_block_level method for disabling the GC.
Dan, are you still opposed to a non-GC_DEBUG version of this patch, in
light of the discussion that ensued?
Mike Lambert
Index: interpreter.c
===================================================================
RCS file: /cvs/public/parrot/interpreter.c,v
retrieving revision 1.82
diff -u -r1.82 interpreter.c
--- interpreter.c 2 Apr 2002 06:24:14 -0000 1.82
+++ interpreter.c 14 Apr 2002 10:21:55 -0000
@@ -494,8 +494,8 @@
interpreter->total_Buffers = 0;
interpreter->memory_allocated = 0;
interpreter->memory_collected = 0;
- interpreter->DOD_block_level = 0;
- interpreter->GC_block_level = 0;
+ interpreter->DOD_block_level = 1;
+ interpreter->GC_block_level = 1;
/* Set up the memory allocation system */
mem_setup_allocator(interpreter);
@@ -557,6 +557,9 @@
interpreter->pmc_reg_base->next = NULL;
interpreter->pmc_reg_base->prev = NULL;
Parrot_clear_p(interpreter);
+
+ interpreter->DOD_block_level--;
+ interpreter->GC_block_level--;
/* Need a user stack */
interpreter->user_stack = new_stack(interpreter);
