cvs commit: parrot interpreter.c

[dan]

cvsuser     02/04/14 08:11:58

  Modified:    .        interpreter.c
  Log:
  Turn off GC/DOD until the interpreter's properly constructed.
  
  Courtesy of Mike Lambert <[EMAIL PROTECTED]>
  
  Revision  Changes    Path
  1.83      +6 -3      parrot/interpreter.c
  
  Index: interpreter.c
  ===================================================================
  RCS file: /home/perlcvs/parrot/interpreter.c,v
  retrieving revision 1.82
  retrieving revision 1.83
  diff -u -w -r1.82 -r1.83
  --- interpreter.c     2 Apr 2002 06:24:14 -0000       1.82
  +++ interpreter.c     14 Apr 2002 15:11:58 -0000      1.83
  @@ -1,7 +1,7 @@
   /* interpreter.c
    *  Copyright: (When this is determined...it will go here)
    *  CVS Info
  - *     $Id: interpreter.c,v 1.82 2002/04/02 06:24:14 josh Exp $
  + *     $Id: interpreter.c,v 1.83 2002/04/14 15:11:58 dan Exp $
    *  Overview:
    *     The interpreter api handles running the operations
    *  Data Structure and Algorithms:
  @@ -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);