cvs commit: parrot intlist.c

[leo]

cvsuser     02/11/08 02:14:51

  Modified:    .        intlist.c
  Log:
  wrong data type
  
  Revision  Changes    Path
  1.10      +8 -8      parrot/intlist.c
  
  Index: intlist.c
  ===================================================================
  RCS file: /cvs/public/parrot/intlist.c,v
  retrieving revision 1.9
  retrieving revision 1.10
  diff -u -w -r1.9 -r1.10
  --- intlist.c 2 Nov 2002 15:33:27 -0000       1.9
  +++ intlist.c 8 Nov 2002 10:14:50 -0000       1.10
  @@ -1,7 +1,7 @@
   /* intlists.c
    *  Copyright: (When this is determined...it will go here)
    *  CVS Info
  - *     $Id: intlist.c,v 1.9 2002/11/02 15:33:27 josh Exp $
  + *     $Id: intlist.c,v 1.10 2002/11/08 10:14:50 leo Exp $
    *  Overview:
    *     Regex stack handling routines for Parrot
    *
  @@ -117,7 +117,7 @@
   IntList *
   intlist_new(Interp *i)
   {
  -    return (IntList *)list_new(i, enum_type_int);
  +    return (IntList *)list_new(i, enum_type_INTVAL);
   }
   
   INTVAL
  @@ -130,19 +130,19 @@
   void
   intlist_assign(Interp *i, IntList *l, INTVAL idx, INTVAL val)
   {
  -    list_assign(i, (List *)l, idx, INTVAL2PTR(void *, val), enum_type_int);
  +    list_assign(i, (List *)l, idx, INTVAL2PTR(void *, val), enum_type_INTVAL);
   }
   
   void
   intlist_push(Interp *i, IntList *l, INTVAL val)
   {
  -    list_push(i, (List *)l, INTVAL2PTR(void *, val), enum_type_int);
  +    list_push(i, (List *)l, INTVAL2PTR(void *, val), enum_type_INTVAL);
   }
   
   void
   intlist_unshift(Interp *i, IntList **l, INTVAL val)
   {
  -    list_unshift(i, (List *)*l, INTVAL2PTR(void *, val), enum_type_int);
  +    list_unshift(i, (List *)*l, INTVAL2PTR(void *, val), enum_type_INTVAL);
   }
   
   /* popping /shifting into a sparse hole returns 0 */
  @@ -150,7 +150,7 @@
   INTVAL
   intlist_pop(Interp *i, IntList *l)
   {
  -    void *ret = list_pop(i, (List *)l, enum_type_int);
  +    void *ret = list_pop(i, (List *)l, enum_type_INTVAL);
       INTVAL retval = ret == (void *)-1 ? 0 : *(INTVAL *)ret;
       return retval;
   }
  @@ -158,7 +158,7 @@
   INTVAL
   intlist_shift(Interp *i, IntList **l)
   {
  -    void *ret = list_shift(i, (List *)*l, enum_type_int);
  +    void *ret = list_shift(i, (List *)*l, enum_type_INTVAL);
       INTVAL retval = ret == (void *)-1 ? 0 : *(INTVAL *)ret;
       return retval;
   }
  @@ -166,7 +166,7 @@
   INTVAL
   intlist_get(Interp *i, IntList *l, INTVAL idx)
   {
  -    void *ret = list_get(i, (List *)l, idx, enum_type_int);
  +    void *ret = list_get(i, (List *)l, idx, enum_type_INTVAL);
       INTVAL retval = ret == (void *)-1 ? 0 : *(INTVAL *)ret;
       return retval;
   }