cvs commit: parrot interpreter.c

[Simon Glover]

cvsuser     02/12/14 15:44:49

  Modified:    .        interpreter.c
  Log:
  Free all of the stacks, rather than the same one three times
  
  Revision  Changes    Path
  1.123     +2 -2      parrot/interpreter.c
  
  Index: interpreter.c
  ===================================================================
  RCS file: /cvs/public/parrot/interpreter.c,v
  retrieving revision 1.122
  retrieving revision 1.123
  diff -u -w -r1.122 -r1.123
  --- interpreter.c     13 Dec 2002 07:42:50 -0000      1.122
  +++ interpreter.c     14 Dec 2002 23:44:49 -0000      1.123
  @@ -1,7 +1,7 @@
   /* interpreter.c
    *  Copyright: (When this is determined...it will go here)
    *  CVS Info
  - *     $Id: interpreter.c,v 1.122 2002/12/13 07:42:50 sfink Exp $
  + *     $Id: interpreter.c,v 1.123 2002/12/14 23:44:49 scog Exp $
    *  Overview:
    *     The interpreter api handles running the operations
    *  Data Structure and Algorithms:
  @@ -591,7 +591,7 @@
           chunks[1] = interpreter->ctx.user_stack;
           chunks[2] = interpreter->ctx.control_stack;
           for (i = 0; i< 3; i++) {
  -            Stack_Chunk_t *top = chunks[0];
  +            Stack_Chunk_t *top = chunks[i];
               while (top->next)
                   top = top->next;
               while(top) {