Changeset 12128


Ignore:
Timestamp:
May 26, 2009, 5:32:53 PM (10 years ago)
Author:
gb
Message:

KERNEL-PATH kernel global.

Location:
trunk/source/lisp-kernel
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lisp-kernel/lisp_globals.h

    r11506 r12128  
    4848#define STACK_SIZE (-26)        /* from the command line */
    4949#define OBJC_2_BEGIN_CATCH (-27)  /* address of ObjC 2.0 objc_begin_catch() */
    50 #define BAD_FUNCALL (-28)       /* funcall pseudo-target on x86 */
     50#define KERNEL_PATH (-28)       /* real executable name */
    5151#define ALL_AREAS (-29)         /* doubly-linked list of stack & heap areas */
    5252#define LEXPR_RETURN (-30)      /* magic &lexpr cleanup code */
  • trunk/source/lisp-kernel/ppc-constants.s

    r4315 r12128  
    208208         _node(all_areas)               /* doubly-linked list of all memory areas */
    209209         _node(BAD_cs_overflow_limit)   /* limit for control-stack overflow check */
    210          _node(BAD_current_ts)          /* current temp-stack area */
     210         _node(kernel_name)             /* real executable name */
    211211         _node(BAD_current_vs)          /* current value-stack area */
    212212         _node(statically_linked)       /* non-zero if -static */
  • trunk/source/lisp-kernel/x86-constants.s

    r10103 r12128  
    8989         _node(lexpr_return)            /* magic &lexpr return code.   */
    9090         _node(all_areas)               /* doubly-linked list of all memory areas   */
    91          _node(bad_funcall)             /* pseudo-funcall target for cmove  */
     91         _node(kernel_path)             /* real executable name */
    9292         _node(objc2_begin_catch)       /* objc_begin_catch   */
    9393         _node(BAD_current_vs)          /* current value-stack area   */
Note: See TracChangeset for help on using the changeset viewer.