cvs commit: parrot interpreter.c

[thgibbs]

cvsuser     01/09/17 10:58:47

  Modified:    .        interpreter.c
  Log:
  Cleared interpreter flags on creation.
  
  Revision  Changes    Path
  1.14      +4 -1      parrot/interpreter.c
  
  Index: interpreter.c
  ===================================================================
  RCS file: /home/perlcvs/parrot/interpreter.c,v
  retrieving revision 1.13
  retrieving revision 1.14
  diff -u -w -r1.13 -r1.14
  --- interpreter.c     2001/09/17 17:38:14     1.13
  +++ interpreter.c     2001/09/17 17:58:47     1.14
  @@ -1,7 +1,7 @@
   /* interpreter.c
    *  Copyright: (When this is determined...it will go here)
    *  CVS Info
  - *     $Id: interpreter.c,v 1.13 2001/09/17 17:38:14 gregor Exp $
  + *     $Id: interpreter.c,v 1.14 2001/09/17 17:58:47 thgibbs Exp $
    *  Overview:
    *     The interpreter api handles running the operations
    *  Data Structure and Algorithms:
  @@ -156,6 +156,9 @@
       interpreter = mem_sys_allocate(sizeof(struct Parrot_Interp));
       /* Set up the memory allocation system */
       mem_setup_allocator(interpreter);
  +
  +    /* Blank out the interpreter's flags */
  +    interpreter->flags = 0;
       
       /* Set up the initial register chunks */
       interpreter->int_reg_base = mem_allocate_aligned(sizeof(struct IRegChunk));