Ignore:
Timestamp:
Oct 14, 2008, 6:30:00 PM (13 years ago)
Author:
gz
Message:

Merge/bootstrap assorted low level stuff from trunk - kernel, syscall stuff, lowmem-bias, formatting tweaks, a few bug fixes included

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lisp-kernel/lisp_globals.h

    r10522 r11089  
    7474#ifdef PPC
    7575#ifdef PPC64
    76 #define lisp_global(g) (((LispObj *) 0x3000)[(g)])
    77 #define nrs_symbol(s) (((lispsymbol *) 0x3000)[(s)])
     76#define lisp_global(g) (((LispObj *) (0x3000+(LOWMEM_BIAS)))[(g)])
     77#define nrs_symbol(s) (((lispsymbol *) (0x3000+(LOWMEM_BIAS)))[(s)])
    7878#else
    7979#define lisp_global(g) (((LispObj *) (nil_value-fulltag_nil))[(g)])
     
    8383
    8484#ifdef X8664
    85 #define lisp_global(g) (((LispObj *) 0x13000)[(g)])
    86 #define nrs_symbol(s) (((lispsymbol *) 0x13020)[(s)])
     85#define lisp_global(g) (((LispObj *) (0x13000+(LOWMEM_BIAS)))[(g)])
     86#define nrs_symbol(s) (((lispsymbol *) (0x13020+(LOWMEM_BIAS)))[(s)])
    8787#endif
    8888
    8989#ifdef X8632
    90 #define lisp_global(g) (((LispObj *) 0x13000)[(g)])
    91 #define nrs_symbol(s) (((lispsymbol *) 0x13008)[(s)])
     90#define lisp_global(g) (((LispObj *) (0x13000+(LOWMEM_BIAS)))[(g)])
     91#define nrs_symbol(s) (((lispsymbol *) (0x13008+(LOWMEM_BIAS)))[(s)])
    9292#endif
    9393
Note: See TracChangeset for help on using the changeset viewer.