cvs commit: parrot/classes resizablebooleanarray.pmc

[Leopold Toetsch]

cvsuser     05/03/27 10:20:04

  Modified:    classes  resizablebooleanarray.pmc
  Log:
  C99ism
  
  Revision  Changes    Path
  1.7       +10 -10    parrot/classes/resizablebooleanarray.pmc
  
  Index: resizablebooleanarray.pmc
  ===================================================================
  RCS file: /cvs/public/parrot/classes/resizablebooleanarray.pmc,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -r1.6 -r1.7
  --- resizablebooleanarray.pmc 27 Mar 2005 12:35:21 -0000      1.6
  +++ resizablebooleanarray.pmc 27 Mar 2005 18:20:04 -0000      1.7
  @@ -1,6 +1,6 @@
   /*
   Copyright: 2001-2005 The Perl Foundation.  All Rights Reserved.
  -$Id: resizablebooleanarray.pmc,v 1.6 2005/03/27 12:35:21 bernhard Exp $
  +$Id: resizablebooleanarray.pmc,v 1.7 2005/03/27 18:20:04 leo Exp $
   
   =head1 NAME
   
  @@ -8,7 +8,7 @@
   
   =head1 DESCRIPTION
   
  -The C<ResizableBooleanArray PMC> implements an array of resizable size, 
  +The C<ResizableBooleanArray PMC> implements an array of resizable size,
   which stores booleans.
   It uses the C<Boolean PMC> for all conversions.
   The C<ResizableBooleanArray PMC> extends the C<FixedBooleanArray PMC>.
  @@ -27,7 +27,7 @@
   #define BITS_PER_CHAR 8
   
   pmclass ResizableBooleanArray extends FixedBooleanArray need_ext does array {
  -    
  +
   
   /*
   
  @@ -51,12 +51,12 @@
       INTVAL get_integer_keyed_int (INTVAL key) {
           Parrot_UInt1 *sd;
           if (key < 0)
  -            internal_exception(OUT_OF_BOUNDS, 
  +            internal_exception(OUT_OF_BOUNDS,
                   "ResizableBooleanArray: index out of bounds!");
           if(key >= PMC_int_val(SELF))
               DYNSELF.set_integer_native(key+1);
   
  -        return SUPER(key); 
  +        return SUPER(key);
       }
   
   /*
  @@ -71,7 +71,7 @@
   
       void set_integer_keyed_int (INTVAL key, INTVAL value) {
           if (key < 0)
  -            internal_exception(OUT_OF_BOUNDS, 
  +            internal_exception(OUT_OF_BOUNDS,
                   "ResizableBooleanArray: index out of bounds!");
           if(key >= PMC_int_val(SELF))
               DYNSELF.set_integer_native(key+1);
  @@ -92,7 +92,7 @@
       void set_integer_native (INTVAL size) {
           Parrot_UInt1 *sd;
           if (size < 0)
  -            internal_exception(OUT_OF_BOUNDS, 
  +            internal_exception(OUT_OF_BOUNDS,
                       "ResizableBooleanArray: Can't resize!");
   
           if ( ! PMC_data(SELF) ) {
  @@ -100,11 +100,11 @@
           } else if ( size > PMC_int_val2(SELF) ) {
               INTVAL old_size = PMC_int_val2(SELF);
               PMC_int_val2(SELF) = size < 2*old_size ? 2*old_size : 
(size/BITS_PER_CHAR+1)*BITS_PER_CHAR;
  -            Parrot_UInt1 *sd = PMC_data(SELF);
  +            sd = PMC_data(SELF);
               PMC_data(SELF) = mem_sys_realloc(sd, 
PMC_int_val2(SELF)/BITS_PER_CHAR);
  -            PMC_int_val(SELF) = size; 
  +            PMC_int_val(SELF) = size;
           } else {
  -            PMC_int_val(SELF) = size; 
  +            PMC_int_val(SELF) = size;
               return;
           }