Changeset 169 for trunk/thune/gc.c

Timestamp:

06/06/06 17:32:03 (3 years ago)

Author:

krobillard

Message:

Thune - Added pairpool.

Files:

• trunk/thune/gc.c (modified) (4 diffs)

trunk/thune/gc.c

@@ -22 +22 @@
 #include "urlan.h"
 #include "internal.h"
+//#include "pairpool.h"
 
 
@@ -302 +303 @@
                 break;
 
+#ifdef PAIRPOOL_H
+            case UT_SLIST:
+            {
+                UCell* pair = uc_pair(it);
+                ur_pairPoolGCMark( it );
+            }
+                break;
+#endif
             case UT_PATH:
             case UT_SETPATH:
@@ -500 +509 @@
     GC_BITSET( bsIntArr, ur_env->intArr,   SWEEP_START_INTA );
 #endif
+
+#ifdef PAIRPOOL_H
+    ur_pairPoolGCClear();
+#endif
+
 
     // Mark all complex values used.
@@ -583 +597 @@
 
 
+#ifdef PAIRPOOL_H
+    ur_pairPoolGCSweep();
+#endif
+
     _sweepArray( &bsBlk, &ur_env->blocks );
     _sweepArray( &bsStr, &ur_env->bin );