Changeset 554 for abuse/trunk/src/lisp/lisp_gc.cppTweet

Timestamp:

Apr 29, 2011, 1:39:32 AM (11 years ago)

Author:

Sam Hocevar

Message:

lisp: if the Lisp permanent space grows out of memory, grow the space
during GCs instead of dying.

File:

• abuse/trunk/src/lisp/lisp_gc.cpp (modified) (3 diffs)

abuse/trunk/src/lisp/lisp_gc.cpp

@@ -233 +233 @@
 }
 
-void collect_space(int which_space) // should be tmp or permanent
+void collect_space(int which_space, int grow) // should be tmp or permanent
 {
   int old_space = current_space;
@@ -240 +240 @@
 
   space_size[GC_SPACE] = space_size[which_space];
+  if (grow)
+  {
+    space_size[GC_SPACE] += space_size[which_space] >> 1;
+    space_size[GC_SPACE] -= (space_size[GC_SPACE] & 7);
+  }
   uint8_t *new_space = (uint8_t *)malloc(space_size[GC_SPACE]);
   current_space = GC_SPACE;
@@ -255 +260 @@
 
   space[which_space] = new_space;
+  space_size[which_space] = space_size[GC_SPACE];
   free_space[which_space] = new_space
                           + (free_space[GC_SPACE] - space[GC_SPACE]);