cvs commit: parrot interpreter.c

[Dan Sugalski]

cvsuser     03/06/18 11:56:41

  Modified:    .        interpreter.c
  Log:
  Don't need base and top of the register stacks. Top only is good enough
  
  Revision  Changes    Path
  1.159     +13 -17    parrot/interpreter.c
  
  Index: interpreter.c
  ===================================================================
  RCS file: /cvs/public/parrot/interpreter.c,v
  retrieving revision 1.158
  retrieving revision 1.159
  diff -u -w -r1.158 -r1.159
  --- interpreter.c     14 Jun 2003 17:48:31 -0000      1.158
  +++ interpreter.c     18 Jun 2003 18:56:41 -0000      1.159
  @@ -1,7 +1,7 @@
   /* interpreter.c
    *  Copyright: (When this is determined...it will go here)
    *  CVS Info
  - *     $Id: interpreter.c,v 1.158 2003/06/14 17:48:31 dan Exp $
  + *     $Id: interpreter.c,v 1.159 2003/06/18 18:56:41 dan Exp $
    *  Overview:
    *     The interpreter api handles running the operations
    *  Data Structure and Algorithms:
  @@ -517,31 +517,27 @@
       PARROT_WARNINGS_off(interpreter, PARROT_WARNINGS_ALL_FLAG);
   
       /* Set up the initial register chunks */
  -    interpreter->ctx.int_reg_base =
  +    interpreter->ctx.int_reg_top =
           mem_sys_allocate_zeroed(sizeof(struct IRegChunk));
  -    interpreter->ctx.num_reg_base =
  +    interpreter->ctx.num_reg_top =
           mem_sys_allocate_zeroed(sizeof(struct NRegChunk));
  -    interpreter->ctx.string_reg_base =
  +    interpreter->ctx.string_reg_top =
           mem_sys_allocate_zeroed(sizeof(struct SRegChunk));
  -    interpreter->ctx.pmc_reg_base =
  +    interpreter->ctx.pmc_reg_top =
           mem_sys_allocate_zeroed(sizeof(struct PRegChunk));
  -    interpreter->ctx.int_reg_top = interpreter->ctx.int_reg_base;
  -    interpreter->ctx.num_reg_top = interpreter->ctx.num_reg_base;
  -    interpreter->ctx.string_reg_top = interpreter->ctx.string_reg_base;
  -    interpreter->ctx.pmc_reg_top = interpreter->ctx.pmc_reg_base;
   
       /* the SET_NULL macros are only for systems where a NULL pointer
        * isn't represented by zeroes, so don't use these for resetting
        * non-null pointers
        */
  -    SET_NULL(interpreter->ctx.int_reg_base->next);
  -    SET_NULL(interpreter->ctx.int_reg_base->prev);
  -    SET_NULL(interpreter->ctx.num_reg_base->next);
  -    SET_NULL(interpreter->ctx.num_reg_base->prev);
  -    SET_NULL(interpreter->ctx.string_reg_base->next);
  -    SET_NULL(interpreter->ctx.string_reg_base->prev);
  -    SET_NULL(interpreter->ctx.pmc_reg_base->next);
  -    SET_NULL(interpreter->ctx.pmc_reg_base->prev);
  +    SET_NULL(interpreter->ctx.int_reg_top->next);
  +    SET_NULL(interpreter->ctx.int_reg_top->prev);
  +    SET_NULL(interpreter->ctx.num_reg_top->next);
  +    SET_NULL(interpreter->ctx.num_reg_top->prev);
  +    SET_NULL(interpreter->ctx.string_reg_top->next);
  +    SET_NULL(interpreter->ctx.string_reg_top->prev);
  +    SET_NULL(interpreter->ctx.pmc_reg_top->next);
  +    SET_NULL(interpreter->ctx.pmc_reg_top->prev);
   
       Parrot_clear_s(interpreter);
       Parrot_clear_p(interpreter);