+/* parsing for LDB monitor */
+
/*
* This software is part of the SBCL system. See the README file for
* more information.
* 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"
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;
}
return result;
}
+
+#endif /* defined(LISP_FEATURE_SB_LDB) */