X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Falloc.c;h=0a88829833eb4f9709ef6ea3350a816edc85c76d;hb=6973177fbe23d007655345c1fe2e0d6a5e397aa5;hp=ae9fc67e1e92cbc6af5a07876efd32d1b1b70ed2;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/runtime/alloc.c b/src/runtime/alloc.c
index ae9fc67..0a88829 100644
--- a/src/runtime/alloc.c
+++ b/src/runtime/alloc.c
@@ -13,10 +13,6 @@
  * files for more information.
  */
 
-/*
- * $Header$
- */
-
 #include "runtime.h"
 #include "sbcl.h"
 #include "alloc.h"
@@ -31,9 +27,8 @@
 #define SET_GC_TRIGGER(new_value) \
     (SetSymbolValue(INTERNAL_GC_TRIGGER,(lispobj)(new_value)))
 #else
-#define GET_FREE_POINTER() current_dynamic_space_free_pointer
-#define SET_FREE_POINTER(new_value) \
-    (current_dynamic_space_free_pointer = (new_value))
+#define GET_FREE_POINTER() dynamic_space_free_pointer
+#define SET_FREE_POINTER(new_value) (dynamic_space_free_pointer = (new_value))
 #define GET_GC_TRIGGER() current_auto_gc_trigger
 #define SET_GC_TRIGGER(new_value) \
     clear_auto_gc_trigger(); set_auto_gc_trigger(new_value);
@@ -56,7 +51,7 @@ static lispobj *alloc(int bytes)
 
     if (GET_GC_TRIGGER() && GET_FREE_POINTER() > GET_GC_TRIGGER()) {
 	SET_GC_TRIGGER((char *)GET_FREE_POINTER()
-		       - (char *)current_dynamic_space);
+		       - (char *)DYNAMIC_SPACE_START);
     }
 
     return result;