Ignore:
Timestamp:
Feb 22, 2004, 1:27:13 AM (15 years ago)
Author:
gb
Message:

PPC64 changes (some of them rather suspect ...). 32-bit kernel may be a
little funky ...

File:
1 edited

Legend:

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

    r217 r557  
    7777#define SUBPRIMS_TARGET_N (-257) /* absolute address of subprim 255 jump target */
    7878
    79 
     79#ifdef PPC64
     80#define lisp_global(g) (((LispObj *) 0x2000)[(g)])
     81#define nrs_symbol(s) (((lispsymbol *) 0x2000)[(s)])
     82#else
    8083#define lisp_global(g) (((LispObj *) (nil_value-fulltag_nil))[(g)])
    8184#define nrs_symbol(s) (((lispsymbol *) (nil_value+(8-fulltag_nil)+8))[(s)])
     85#endif
    8286
    8387#define nrs_T                           (nrs_symbol(0))         /* t */
Note: See TracChangeset for help on using the changeset viewer.