Ignore:
Timestamp:
Jul 9, 2010, 11:46:08 PM (9 years ago)
Author:
gb
Message:

The point of the checkpoint in the last commit: change nil_value on ARM
from #x10000005 to #x04000001. That obviously means that we invert
arm::fulltag-cons and arm::fulltag-nil, and change a few things (the link-
inverting marker, the LISTP compiler-macro) that were more sensitive to
that than they probably should have been.

OTOH, we get ~192M more address space to play with.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/arm/lisp-kernel/lisp_globals.h

    r13785 r13948  
    8383#define G2_THRESHOLD (-507)
    8484#else
     85#ifdef ARM
     86#define LISP_HEAP_THRESHOLD (-1021)
     87#define EGC_ENABLED (-1020)
     88#define G0_THRESHOLD (-1019)
     89#define G1_THRESHOLD (-1018)
     90#define G2_THRESHOLD (-1017)
     91#else
    8592#define LISP_HEAP_THRESHOLD (-1023)
    8693#define EGC_ENABLED (-1022)
     
    8895#define G1_THRESHOLD (-1020)
    8996#define G2_THRESHOLD (-1019)
     97#endif
    9098#endif
    9199
     
    111119
    112120#ifdef ARM
    113 #define lisp_global(g) (((LispObj *) (0x10000000))[(g)])
    114 #define nrs_symbol(s) (((lispsymbol *) (0x10000010))[(s)])
     121#define lisp_global(g) (((LispObj *) (nil_value-fulltag_nil-dnode_size))[(g)])
     122#define nrs_symbol(s) (((lispsymbol *) (nil_value-fulltag_nil+dnode_size))[(s)])
    115123#endif
    116124
Note: See TracChangeset for help on using the changeset viewer.