X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fparse.c;h=01e438116c3383f1651c4b4ab9b5aafac741d6b9;hb=48f92d19cf12f3aff81a29a786970264a523bc7a;hp=99729cd1f83e77129a92f3d1ae2358c5476fdc7b;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git

diff --git a/src/runtime/parse.c b/src/runtime/parse.c
index 99729cd..01e4381 100644
--- a/src/runtime/parse.c
+++ b/src/runtime/parse.c
@@ -1,3 +1,5 @@
+/* parsing for LDB monitor */
+
 /*
  * This software is part of the SBCL system. See the README file for
  * more information.
@@ -9,16 +11,15 @@
  * files for more information.
  */
 
-/*
- * $Header$
- */
-
 #include <stdio.h>
 #include <ctype.h>
 #include <signal.h>
 
 #include "runtime.h"
 #include "sbcl.h"
+
+#if defined(LISP_FEATURE_SB_LDB)
+
 #include "globals.h"
 #include "vars.h"
 #include "parse.h"
@@ -240,23 +241,28 @@ static boolean lookup_symbol(char *name, lispobj *result)
     lispobj *headerptr;
 
     /* Search static space. */
-    headerptr = static_space;
-    count = ((lispobj *) SymbolValue(STATIC_SPACE_FREE_POINTER) -
-	     static_space);
+    headerptr = (lispobj *)STATIC_SPACE_START;
+    count =
+	(lispobj *)SymbolValue(STATIC_SPACE_FREE_POINTER) -
+	(lispobj *)STATIC_SPACE_START;
     if (search_for_symbol(name, &headerptr, &count)) {
-        *result = (lispobj)headerptr | type_OtherPointer;
+        *result = (lispobj)headerptr | OTHER_POINTER_LOWTAG;
         return 1;
     }
 
     /* Search dynamic space. */
-    headerptr = current_dynamic_space;
-#if !defined(ibmrt) && !defined(__i386__)
-    count = current_dynamic_space_free_pointer - current_dynamic_space;
+    headerptr = (lispobj *)DYNAMIC_SPACE_START;
+#if !defined(__i386__)
+    count =
+	dynamic_space_free_pointer -
+	(lispobj *)DYNAMIC_SPACE_START;
 #else
-    count = (lispobj *)SymbolValue(ALLOCATION_POINTER) - current_dynamic_space;
+    count =
+	(lispobj *)SymbolValue(ALLOCATION_POINTER) -
+	(lispobj *)DYNAMIC_SPACE_START;
 #endif
     if (search_for_symbol(name, &headerptr, &count)) {
-        *result = (lispobj)headerptr | type_OtherPointer;
+        *result = (lispobj)headerptr | OTHER_POINTER_LOWTAG;
         return 1;
     }
 
@@ -355,3 +361,5 @@ char **ptr;
 
     return result;
 }
+
+#endif /* defined(LISP_FEATURE_SB_LDB) */