[svn:parrot] rev 7921 - in trunk: classes io

[leo]

Author: leo
Date: Sun Apr 24 01:27:10 2005
New Revision: 7921

Modified:
   trunk/classes/array.pmc
   trunk/io/io.c
Log:
fix set_integer_same

Modified: trunk/classes/array.pmc
==============================================================================
--- trunk/classes/array.pmc     (original)
+++ trunk/classes/array.pmc     Sun Apr 24 01:27:10 2005
@@ -515,7 +515,7 @@
 */
 
     void set_integer_same (PMC* value) {
-        INTVAL size = DYNSELF.elements();
+        INTVAL size = VTABLE_elements(INTERP, value);
         list_set_length(INTERP, (List *) PMC_data(SELF) ,size);
     }
 

Modified: trunk/io/io.c
==============================================================================
--- trunk/io/io.c       (original)
+++ trunk/io/io.c       Sun Apr 24 01:27:10 2005
@@ -984,7 +984,7 @@
 {
     ParrotIOLayer *l = PMC_struct_val(pmc);
     ParrotIO *io = PMC_data0(pmc);
-    assert((int)l != 0xdeadbeef);
+    assert((unsigned int)l != 0xdeadbeefU);
     assert(io != 0);
     return PIO_write_down(interpreter, l, io, s);
 }