cvs commit: parrot/src utils.c

[Dan Sugalski]

cvsuser     04/01/22 08:45:08

  Modified:    src      utils.c
  Log:
  We follow calling conventions now...
  
  Revision  Changes    Path
  1.8       +3 -3      parrot/src/utils.c
  
  Index: utils.c
  ===================================================================
  RCS file: /cvs/public/parrot/src/utils.c,v
  retrieving revision 1.7
  retrieving revision 1.8
  diff -u -w -r1.7 -r1.8
  --- utils.c   2 Jan 2004 21:22:19 -0000       1.7
  +++ utils.c   22 Jan 2004 16:45:08 -0000      1.8
  @@ -1,7 +1,7 @@
   /*  utils.c
    *  Copyright: 2001-2003 The Perl Foundation.  All Rights Reserved.
    *  CVS Info
  - *     $Id: utils.c,v 1.7 2004/01/02 21:22:19 dan Exp $
  + *     $Id: utils.c,v 1.8 2004/01/22 16:45:08 dan Exp $
    *  Overview:
    *     Some utility functions
    *  Data Structure and Algorithms:
  @@ -76,7 +76,7 @@
   foldup(Parrot_Interp interpreter, INTVAL skip)
   {
       /* Should be I3 when we're done */
  -    INTVAL max_used_reg = REG_INT(2) + 5;
  +    INTVAL max_used_reg = REG_INT(3) + 5;
       INTVAL reg;
       INTVAL elems_in_array = 0;
       INTVAL current_offset = 0;
  @@ -94,7 +94,7 @@
           elems_in_array = VTABLE_get_integer(interpreter, overflow);
       }
       /* XXX This needs fixing when IMCC does calling conventions right */
  -    total_size = REG_INT(2) + elems_in_array - skip;
  +    total_size = REG_INT(3) + elems_in_array - skip;
   
       VTABLE_set_integer_native(interpreter, destination_pmc, total_size);