[svn:parrot] r18241 - trunk/src/pmc

[allison]

Author: allison
Date: Mon Apr 16 14:48:55 2007
New Revision: 18241

Modified:
   trunk/src/pmc/resizablebooleanarray.pmc

Log:
ResizableBooleanArray's freeze was also calculating size incorrectly.


Modified: trunk/src/pmc/resizablebooleanarray.pmc
==============================================================================
--- trunk/src/pmc/resizablebooleanarray.pmc     (original)
+++ trunk/src/pmc/resizablebooleanarray.pmc     Mon Apr 16 14:48:55 2007
@@ -304,7 +304,7 @@
 
         IMAGE_IO * const io = info->image_io;
         STRING *s;
-        const INTVAL size = (PMC_int_val(SELF) / MIN_ALLOC + 1) * MIN_ALLOC;
+        const INTVAL size = (PMC_int_val(SELF) / MIN_ALLOC + 1) * MIN_ALLOC / 
BITS_PER_CHAR;
 
         io->vtable->push_integer(INTERP, io, PMC_int_val2(SELF));
         io->vtable->push_integer(INTERP, io, PMC_int_val(SELF));