Changeset 12128

Timestamp:

May 26, 2009, 5:32:53 PM (11 years ago)

Author:

gb

Message:

KERNEL-PATH kernel global.

Location:

trunk/source/lisp-kernel

Files:

• lisp_globals.h (modified) (1 diff)
• ppc-constants.s (modified) (1 diff)
• x86-constants.s (modified) (1 diff)

trunk/source/lisp-kernel/lisp_globals.h

@@ -48 +48 @@
 #define STACK_SIZE (-26)        /* from the command line */
 #define OBJC_2_BEGIN_CATCH (-27)  /* address of ObjC 2.0 objc_begin_catch() */
-#define BAD_FUNCALL (-28)       /* funcall pseudo-target on x86 */
+#define KERNEL_PATH (-28)       /* real executable name */
 #define ALL_AREAS (-29)         /* doubly-linked list of stack & heap areas */
 #define LEXPR_RETURN (-30)      /* magic &lexpr cleanup code */

trunk/source/lisp-kernel/ppc-constants.s

@@ -208 +208 @@
          _node(all_areas)               /* doubly-linked list of all memory areas */
          _node(BAD_cs_overflow_limit)   /* limit for control-stack overflow check */
-         _node(BAD_current_ts)          /* current temp-stack area */
+         _node(kernel_name)             /* real executable name */
          _node(BAD_current_vs)          /* current value-stack area */
          _node(statically_linked)       /* non-zero if -static */

trunk/source/lisp-kernel/x86-constants.s

@@ -89 +89 @@
          _node(lexpr_return)            /* magic &lexpr return code.   */
          _node(all_areas)               /* doubly-linked list of all memory areas   */
-         _node(bad_funcall)             /* pseudo-funcall target for cmove   */
+         _node(kernel_path)             /* real executable name */
          _node(objc2_begin_catch)       /* objc_begin_catch   */
          _node(BAD_current_vs)          /* current value-stack area   */