Changeset 558 for abuse/trunk/src/lisp/lisp.cppTweet

Timestamp:

Apr 30, 2011, 12:24:47 AM (11 years ago)

Author:

Sam Hocevar

Message:

lisp: some refactoring and code removal in the Lisp GC.

File:

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

abuse/trunk/src/lisp/lisp.cpp

@@ -190 +190 @@
     {
         if (which_space == PERM_SPACE || which_space == TMP_SPACE)
-            collect_space(which_space, 0);
+            LispGC::CollectSpace(which_space, 0);
 
         if (size > get_free_size(which_space))
-            collect_space(which_space, 1);
+            LispGC::CollectSpace(which_space, 1);
 
         if (size > get_free_size(which_space))
@@ -2823 +2823 @@
     }
     case SYS_FUNC_GC:
-        collect_space(current_space, 0);
+        LispGC::CollectSpace(current_space, 0);
         break;
     case SYS_FUNC_SCHAR:
@@ -3143 +3143 @@
 
 /*  l_user_stack.push(ret);
-  collect_space(PERM_SPACE);
+  LispGC::CollectSpace(PERM_SPACE);
   ret=l_user_stack.pop(1);  */