Changeset 217

Timestamp:

Jan 5, 2004, 6:09:41 PM (21 years ago)

Author:

Gary Byers

Message:

STATICALLY_LINKED global.

Location:

trunk/ccl/lisp-kernel

Files:

• constants.s (modified) (1 diff)
• lisp_globals.h (modified) (1 diff)

trunk/ccl/lisp-kernel/constants.s

@@ -385 +385 @@
          _node(BAD_current_ts)          /* current temp-stack area */
          _node(BAD_current_vs)          /* current value-stack area */
-         _node(BAD_current_cs)          /* current control-stack area */
+         _node(statically_linked)       /* non-zero if -static */
          _node(heap_end)                /* end of lisp heap */
          _node(heap_start)              /* start of lisp heap */

trunk/ccl/lisp-kernel/lisp_globals.h

@@ -45 +45 @@
 #define HEAP_START (-23)        /* start of lisp heap */
 #define HEAP_END (-24)          /* end of lisp heap */
-#define BAD_CURRENT_CS (-25)        /* area describing control-stack */
+#define STATICALLY_LINKED (-25)        /* non-zero if -static */
 #define BAD_CURRENT_VS (-26)        /* area describing value-stack */
 #define BAD_CURRENT_TS (-27)        /* area describing temp-stack */