cvs commit: parrot interpreter.c

[dan]

cvsuser     02/01/24 15:26:12

  Modified:    .        interpreter.c
  Log:
  Best make sure unused elements are NULL
  
  Revision  Changes    Path
  1.64      +2 -1      parrot/interpreter.c
  
  Index: interpreter.c
  ===================================================================
  RCS file: /home/perlcvs/parrot/interpreter.c,v
  retrieving revision 1.63
  retrieving revision 1.64
  diff -u -w -r1.63 -r1.64
  --- interpreter.c     24 Jan 2002 23:24:24 -0000      1.63
  +++ interpreter.c     24 Jan 2002 23:26:12 -0000      1.64
  @@ -1,7 +1,7 @@
   /* interpreter.c
    *  Copyright: (When this is determined...it will go here)
    *  CVS Info
  - *     $Id: interpreter.c,v 1.63 2002/01/24 23:24:24 dan Exp $
  + *     $Id: interpreter.c,v 1.64 2002/01/24 23:26:12 dan Exp $
    *  Overview:
    *     The interpreter api handles running the operations
    *  Data Structure and Algorithms:
  @@ -456,6 +456,7 @@
       interpreter->perl_stash = mem_sys_allocate(sizeof(struct Stash));
       interpreter->perl_stash->stash_hash = 
                pmc_new(interpreter, enum_class_PerlHash);
  +    interpreter->perl_stash->parent_stash = NULL;
       
       /* Initialize interpreter's flags */
       interpreter->flags = flags;