Changeset 143

Timestamp:

05/11/06 14:10:25 (3 years ago)

Author:

krobillard

Message:

GC keeps function context blocks again.

Files:

• trunk/orca/gc.c (modified) (1 diff)

trunk/orca/gc.c

@@ -254 +254 @@
                     orSetBit( bsBlk.byteArray, idx );
 
-                // Must check contents of argument block even if below
-                // sweepStart.
-                idx = it->func.context;
-                if( idx > 0 )
+                idx = it->func.context - orEnv->freeBlocks.sweepStart;
+                if( idx >= 0 )
                 {
+                    orSetBit( bsBlk.byteArray, idx );
+                }
+                else if( it->func.context )
+                {
+                    // Must check contents of argument block even if below
+                    // sweepStart.
                     // During recursion this will waste some time
                     // rechecking stack values.
-                    checkBlock( orBLOCKS + idx );
+                    checkBlock( orBLOCKS + it->func.context );
                 }
                 break;