Changeset 31 for trunk/orca/context.c

Timestamp:

02/08/06 01:35:49 (3 years ago)

Author:

krobillard

Message:

Overflow of the quick hold stack is now caught.

Files:

• trunk/orca/context.c (modified) (6 diffs)

trunk/orca/context.c

@@ -245 +245 @@
 {
     ctx->wblkN = orBlockN( orMakeBlock( size ) );
+
+    // Assuming caller checks orRefAvail.
     orRefPush( OT_BLOCK, ctx->wblkN );
     ctx->vblkN = orBlockN( orMakeBlock( size ) );
@@ -293 +295 @@
     int wcount;
 
+
+    if( ! orRefAvail( 4 ) )
+        return 0;
 
     wcount = 0;
@@ -424 +429 @@
 
 
+    if( ! orRefAvail( 3 ) )
+        return -1;
+
     orRefPush( OT_BLOCK, blkN );
 
@@ -740 +748 @@
 
 
+    orRefAvailErr( 2 )
     orRefPush( OT_BLOCK, a2->index );
 
@@ -810 +819 @@
     // Still, 'foreach is faster than 'forall (probably because using paths
     // is so slow).
+
+    orRefAvailErr( 4 )
 
     // Must hold body & a2 in case orMakeContext() or orCopyBlock() trigger
@@ -1036 +1047 @@
     OIndex bi   = (a1 + 2)->series.it;
     OValue saveA1;
+
+
+    orRefAvailErr( 2 )
 
     if( a1->type == OT_BLOCK )