cvs commit: parrot interpreter.c

[dan]

cvsuser     01/10/12 11:09:30

  Modified:    .        interpreter.c
  Log:
  Properly sets up generic stack now
  
  Revision  Changes    Path
  1.26      +7 -2      parrot/interpreter.c
  
  Index: interpreter.c
  ===================================================================
  RCS file: /home/perlcvs/parrot/interpreter.c,v
  retrieving revision 1.25
  retrieving revision 1.26
  diff -u -w -r1.25 -r1.26
  --- interpreter.c     2001/10/07 15:27:42     1.25
  +++ interpreter.c     2001/10/12 18:09:30     1.26
  @@ -1,7 +1,7 @@
   /* interpreter.c
    *  Copyright: (When this is determined...it will go here)
    *  CVS Info
  - *     $Id: interpreter.c,v 1.25 2001/10/07 15:27:42 gregor Exp $
  + *     $Id: interpreter.c,v 1.26 2001/10/12 18:09:30 dan Exp $
    *  Overview:
    *     The interpreter api handles running the operations
    *  Data Structure and Algorithms:
  @@ -301,7 +301,12 @@
       Parrot_clear_p(interpreter);
       
       /* Need a default stack */
  -    interpreter->stack_base = mem_allocate_new_stack();
  +    interpreter->stack_base = mem_allocate_aligned(sizeof(struct StackChunk));
  +    interpreter->stack_top = &interpreter->stack_base->entry[0];
  +    interpreter->stack_base->used = 1;
  +    interpreter->stack_base->free = STACK_CHUNK_DEPTH - 1;
  +    interpreter->stack_base->next = NULL;
  +    interpreter->stack_base->prev = NULL;
       
       /* Need an empty stash */
       interpreter->perl_stash = mem_allocate_new_stash();