Changeset 142 for trunk/orca/ovalue.c

Timestamp:

05/09/06 22:54:53 (3 years ago)

Author:

krobillard

Message:

Fixed GC issues created by the changes to function argument handling [140].
Also fixed mold and form so they hold their argument from the GC.

Files:

• trunk/orca/ovalue.c (modified) (4 diffs)

trunk/orca/ovalue.c

@@ -1561 +1561 @@
 OR_NATIVE( orEitherNative )
 {
-    OValue* blkArg = a1 + 2;;
+    OValue* blkArg = a1 + 2;
     if( a1->type != OT_NONE )
     {
@@ -2970 +2970 @@
         int vi;
 
-        orRefAvailErr( 3 )
-        orRefPush( OT_BLOCK, a1->index );
+        blkN = a1->index;
+
+        orRefAvailErr( 2 )
+        orRefPush( OT_BLOCK, blkN );
+
         rblk = orMakeBlock(0);
-
         nblkN = orBlockN(rblk);
-        blkN = a1->index;
-        blk = orBLOCK( a1 );
+
+        blk = orBlockPtr( blkN );
         used = blk->used;
         vi = a1->series.it;
 
-        orRefPush( OT_BLOCK, blkN );
         orRefPush( OT_BLOCK, nblkN );
 
@@ -3000 +3001 @@
         }
 
-        orRefPop( 3 );
+        orRefPop( 2 );
         orResultBLOCK( nblkN );
     }
@@ -4365 +4366 @@
     orRefPush( OT_BLOCK, ctx.vblkN );
 
+    // Initialize values for GC.
+    it   = vblk->values;
     next = vblk->values + total;
+    while( it != next )
+    {
+        orSetTF( it, OT_NONE );
+        ++it;
+    }
+
     orSetTF( next, OT_UNSET );
     next->RECURSE_COUNT = 0;