Changeset 5638


Ignore:
Timestamp:
Dec 29, 2006, 12:32:05 AM (18 years ago)
Author:
Gary Byers
Message:

Access lisp_globals/nrs_symbols a page higher.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/ccl/lisp-kernel/lisp_globals.h

    r4545 r5638  
    7474#ifdef PPC
    7575#ifdef PPC64
    76 #define lisp_global(g) (((LispObj *) 0x2000)[(g)])
    77 #define nrs_symbol(s) (((lispsymbol *) 0x2000)[(s)])
     76#define lisp_global(g) (((LispObj *) 0x3000)[(g)])
     77#define nrs_symbol(s) (((lispsymbol *) 0x3000)[(s)])
    7878#else
    7979#define lisp_global(g) (((LispObj *) (nil_value-fulltag_nil))[(g)])
Note: See TracChangeset for help on using the changeset viewer.