Changeset 15197


Ignore:
Timestamp:
Feb 7, 2012, 7:36:33 AM (7 years ago)
Author:
gb
Message:

Rename one of the recently-renamed nil-relative symbols again.

Move all of the nrs definitions from lisp-kernel/*constants*.s
to a new file (lisp_globals.s) which should make this a little
easiser in the future. (see also compiler/*/*-arch.lisp).

Add lisp_globals.s as a dependency in (some) Makefiles; will
get the others in a minute.

(Builds on x8632/64; other archs not yet tested.)

Location:
trunk/source/lisp-kernel
Files:
1 added
9 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lisp-kernel/androidarm/Makefile

    r15012 r15197  
    1515
    1616LIBBASE = 0x04001000
    17 NDK = /usr/local/android-ndk-r6b
     17NDK = /usr/local/android-ndk-r7
    1818HOST = darwin-x86
    1919ANDROIDVERSION = android-9
     
    6969KERNELOBJ= $(COBJ) arm-asmutils.o  imports.o
    7070
    71 SPINC = lisp.s m4macros.m4 arm-constants.s arm-macros.s errors.s arm-uuo.s
     71SPINC = lisp.s m4macros.m4 arm-constants.s arm-macros.s errors.s arm-uuo.s \
     72        lisp_globals.s
    7273
    7374CHEADERS = area.h bits.h arm-constants.h lisp-errors.h gc.h lisp.h \
  • trunk/source/lisp-kernel/arm-constants.s

    r15196 r15197  
    392392_builtin_aset1 = 22     /* %aset1 */
    393393
    394 
    395 symbol_extra = symbol.size-fulltag_misc
    396        
    397         _struct(nrs,0)
    398          _struct_pad(dnode_size-fulltag_nil)
    399 
    400          _struct_pad(fulltag_misc)
    401          _struct_label(tsym)
    402          _struct_pad(symbol_extra)      /* t */
    403 
    404          _struct_pad(fulltag_misc)
    405          _struct_label(nilsym)
    406          _struct_pad(symbol_extra)      /* nil */
    407 
    408          _struct_pad(fulltag_misc)
    409          _struct_label(errdisp)
    410          _struct_pad(symbol_extra)      /* %err-disp */
    411 
    412          _struct_pad(fulltag_misc)
    413          _struct_label(cmain)
    414          _struct_pad(symbol_extra)      /* cmain */
    415 
    416          _struct_pad(fulltag_misc)
    417          _struct_label(eval)
    418          _struct_pad(symbol_extra)      /* eval */
    419  
    420          _struct_pad(fulltag_misc)
    421          _struct_label(appevalfn)
    422          _struct_pad(symbol_extra)      /* apply-evaluated-function */
    423 
    424          _struct_pad(fulltag_misc)
    425          _struct_label(error)
    426          _struct_pad(symbol_extra)      /* error */
    427 
    428          _struct_pad(fulltag_misc)
    429          _struct_label(defun)
    430          _struct_pad(symbol_extra)      /* %defun */
    431 
    432          _struct_pad(fulltag_misc)
    433          _struct_label(defvar)
    434          _struct_pad(symbol_extra)      /* %defvar */
    435 
    436          _struct_pad(fulltag_misc)
    437          _struct_label(defconstant)
    438          _struct_pad(symbol_extra)      /* %defconstant */
    439 
    440          _struct_pad(fulltag_misc)
    441          _struct_label(macrosym)
    442          _struct_pad(symbol_extra)      /* %macro */
    443 
    444          _struct_pad(fulltag_misc)
    445          _struct_label(kernelrestart)
    446          _struct_pad(symbol_extra)      /* %kernel-restart */
    447 
    448          _struct_pad(fulltag_misc)
    449          _struct_label(package)
    450          _struct_pad(symbol_extra)      /* *package* */
    451 
    452          _struct_pad(fulltag_misc)
    453          _struct_label(total_bytes_freed)               /* *total-bytes-freed* */
    454          _struct_pad(symbol_extra)
    455 
    456          _struct_pad(fulltag_misc)
    457          _struct_label(kallowotherkeys)
    458          _struct_pad(symbol_extra)      /* allow-other-keys */
    459 
    460          _struct_pad(fulltag_misc)
    461          _struct_label(toplcatch)
    462          _struct_pad(symbol_extra)      /* %toplevel-catch% */
    463 
    464          _struct_pad(fulltag_misc)
    465          _struct_label(toplfunc)
    466          _struct_pad(symbol_extra)      /* %toplevel-function% */
    467 
    468          _struct_pad(fulltag_misc)
    469          _struct_label(callbacks)
    470          _struct_pad(symbol_extra)      /* %pascal-functions% */
    471 
    472          _struct_pad(fulltag_misc)
    473          _struct_label(heap_init_function)
    474          _struct_pad(symbol_extra)      /* *heap-init-function* */
    475 
    476          _struct_pad(fulltag_misc)
    477          _struct_label(total_gc_microseconds)           /* *total-gc-microseconds* */
    478          _struct_pad(symbol_extra)
    479 
    480          _struct_pad(fulltag_misc)
    481          _struct_label(builtin_functions)               /* %builtin-functions% */
    482          _struct_pad(symbol_extra)               
    483 
    484          _struct_pad(fulltag_misc)
    485          _struct_label(udf)
    486          _struct_pad(symbol_extra)      /* %unbound-function% */
    487 
    488          _struct_pad(fulltag_misc)
    489          _struct_label(init_misc)
    490          _struct_pad(symbol_extra)      /* %init-misc */
    491 
    492          _struct_pad(fulltag_misc)
    493          _struct_label(macro_code)
    494          _struct_pad(symbol_extra)      /* %macro-code% */
    495 
    496          _struct_pad(fulltag_misc)
    497          _struct_label(closure_code)
    498          _struct_pad(symbol_extra)      /* %closure-code% */
    499 
    500          _struct_pad(fulltag_misc)
    501          _struct_label(new_gcable_ptr) /* %new-gcable-ptr */
    502          _struct_pad(symbol_extra)
    503        
    504          _struct_pad(fulltag_misc)
    505          _struct_label(gc_event_status_bits)
    506          _struct_pad(symbol_extra)      /* *gc-event-status-bits* */
    507 
    508          _struct_pad(fulltag_misc)
    509          _struct_label(post_gc_hook)
    510          _struct_pad(symbol_extra)      /* *post-gc-hook* */
    511 
    512          _struct_pad(fulltag_misc)
    513          _struct_label(handlers)
    514          _struct_pad(symbol_extra)      /* %handlers% */
    515 
    516 
    517          _struct_pad(fulltag_misc)
    518          _struct_label(all_packages)
    519          _struct_pad(symbol_extra)      /* %all-packages% */
    520 
    521          _struct_pad(fulltag_misc)
    522          _struct_label(keyword_package)
    523          _struct_pad(symbol_extra)      /* *keyword-package* */
    524 
    525          _struct_pad(fulltag_misc)
    526          _struct_label(os_init_function)
    527          _struct_pad(symbol_extra)      /* %os-init-function% */
    528 
    529          _struct_pad(fulltag_misc)
    530          _struct_label(foreign_thread_control)
    531          _struct_pad(symbol_extra)      /* %foreign-thread-control */
    532 
    533         _ends
    534 
     394nrs_origin = (dnode_size-fulltag_nil)
     395nrs_symbol_fulltag = fulltag_misc       
     396       
     397        include(lisp_globals.s)
     398       
    535399define(`def_header',`
    536400$1 = ($2<<num_subtag_bits)|$3')
  • trunk/source/lisp-kernel/darwinx8632/Makefile

    r15161 r15197  
    6060KERNELOBJ= imports.o $(COBJ) x86-asmutils32.o
    6161
    62 SPINC = lisp.s m4macros.m4 x86-constants.s x86-macros.s errors.s x86-uuo.s x86-constants32.s
     62SPINC = lisp.s m4macros.m4 x86-constants.s x86-macros.s errors.s x86-uuo.s x86-constants32.s lisp_globals.s
    6363
    6464CHEADERS = area.h bits.h x86-constants.h lisp-errors.h gc.h lisp.h \
  • trunk/source/lisp-kernel/darwinx8664/Makefile

    r15161 r15197  
    5555           -D_DARWIN_NO_64_BIT_INODE -DUSE_DTRACE
    5656CDEBUG = -g
    57 COPT = -O2
     57COPT = #-O2
    5858# Once in a while, -Wformat says something useful.  The odds are against that,
    5959# however.
     
    8080
    8181SPINC = lisp.s m4macros.m4 x86-constants.s x86-macros.s errors.s x86-uuo.s \
    82         x86-constants64.s
     82        x86-constants64.s lisp_globals.s
    8383
    8484CHEADERS = area.h bits.h x86-constants.h lisp-errors.h gc.h lisp.h \
     
    8888        $(PLATFORM_H) constants.h os-darwin.h
    8989
    90 # Subprims linked into the kernel ?
    91 # Yes:
    92 
    9390KSPOBJ= $(SPOBJ)
    9491all:    ../../dx86cl64
    9592
    9693
    97 # No:
    98 
    99 # KSPOBJ=
    10094
    10195OSEARLYLIBS = -lcrt1.o
  • trunk/source/lisp-kernel/lisp_globals.h

    r15196 r15197  
    144144#define nrs_TOPLFUNC                    (nrs_symbol(16))        /* %toplevel-function% */
    145145#define nrs_CALLBACKS                   (nrs_symbol(17))        /* %pascal-functions% */
    146 #define nrs_HEAP_INIT_FUNCTION          (nrs_symbol(18))        /* *heap-init-function* */
     146#define nrs_RESTORE_LISP_POINTERS       (nrs_symbol(18))        /* restore-lisp-pointers */
    147147#define nrs_TOTAL_GC_MICROSECONDS       (nrs_symbol(19))        /* *total-gc-microseconds* */
    148148#define nrs_BUILTIN_FUNCTIONS           (nrs_symbol(20))        /* %builtin-functions% */
  • trunk/source/lisp-kernel/ppc-constants32.s

    r15196 r15197  
    359359
    360360
    361 
    362 symbol_extra = symbol.size-fulltag_misc
    363        
    364         _struct(nrs,nil_value-fulltag_nil)
    365          _struct_pad(fulltag_nil)
    366          _field(nilptr,16-fulltag_nil)
    367 
    368          _struct_pad(fulltag_misc)
    369          _struct_label(tsym)
    370          _struct_pad(symbol_extra)      /* t */
    371 
    372          _struct_pad(fulltag_misc)
    373          _struct_label(nilsym)
    374          _struct_pad(symbol_extra)      /* nil */
    375 
    376          _struct_pad(fulltag_misc)
    377          _struct_label(errdisp)
    378          _struct_pad(symbol_extra)      /* %err-disp */
    379 
    380          _struct_pad(fulltag_misc)
    381          _struct_label(cmain)
    382          _struct_pad(symbol_extra)      /* cmain */
    383 
    384          _struct_pad(fulltag_misc)
    385          _struct_label(eval)
    386          _struct_pad(symbol_extra)      /* eval */
    387  
    388          _struct_pad(fulltag_misc)
    389          _struct_label(appevalfn)
    390          _struct_pad(symbol_extra)      /* apply-evaluated-function */
    391 
    392          _struct_pad(fulltag_misc)
    393          _struct_label(error)
    394          _struct_pad(symbol_extra)      /* error */
    395 
    396          _struct_pad(fulltag_misc)
    397          _struct_label(defun)
    398          _struct_pad(symbol_extra)      /* %defun */
    399 
    400          _struct_pad(fulltag_misc)
    401          _struct_label(defvar)
    402          _struct_pad(symbol_extra)      /* %defvar */
    403 
    404          _struct_pad(fulltag_misc)
    405          _struct_label(defconstant)
    406          _struct_pad(symbol_extra)      /* %defconstant */
    407 
    408          _struct_pad(fulltag_misc)
    409          _struct_label(macrosym)
    410          _struct_pad(symbol_extra)      /* %macro */
    411 
    412          _struct_pad(fulltag_misc)
    413          _struct_label(kernelrestart)
    414          _struct_pad(symbol_extra)      /* %kernel-restart */
    415 
    416          _struct_pad(fulltag_misc)
    417          _struct_label(package)
    418          _struct_pad(symbol_extra)      /* *package* */
    419 
    420          _struct_pad(fulltag_misc)
    421          _struct_label(total_bytes_freed)               /* *total-bytes-freed* */
    422          _struct_pad(symbol_extra)
    423 
    424          _struct_pad(fulltag_misc)
    425          _struct_label(kallowotherkeys)
    426          _struct_pad(symbol_extra)      /* allow-other-keys */
    427 
    428          _struct_pad(fulltag_misc)
    429          _struct_label(toplcatch)
    430          _struct_pad(symbol_extra)      /* %toplevel-catch% */
    431 
    432          _struct_pad(fulltag_misc)
    433          _struct_label(toplfunc)
    434          _struct_pad(symbol_extra)      /* %toplevel-function% */
    435 
    436          _struct_pad(fulltag_misc)
    437          _struct_label(callbacks)
    438          _struct_pad(symbol_extra)      /* %pascal-functions% */
    439 
    440          _struct_pad(fulltag_misc)
    441          _struct_label(heap_init_function)
    442          _struct_pad(symbol_extra)      /* *heap-init-function* */
    443 
    444          _struct_pad(fulltag_misc)
    445          _struct_label(total_gc_microseconds)           /* *total-gc-microseconds* */
    446          _struct_pad(symbol_extra)
    447 
    448          _struct_pad(fulltag_misc)
    449          _struct_label(builtin_functions)               /* %builtin-functions% */
    450          _struct_pad(symbol_extra)               
    451 
    452          _struct_pad(fulltag_misc)
    453          _struct_label(udf)
    454          _struct_pad(symbol_extra)      /* %unbound-function% */
    455 
    456          _struct_pad(fulltag_misc)
    457          _struct_label(init_misc)
    458          _struct_pad(symbol_extra)      /* %init-misc */
    459 
    460          _struct_pad(fulltag_misc)
    461          _struct_label(macro_code)
    462          _struct_pad(symbol_extra)      /* %macro-code% */
    463 
    464          _struct_pad(fulltag_misc)
    465          _struct_label(closure_code)
    466          _struct_pad(symbol_extra)      /* %closure-code% */
    467 
    468          _struct_pad(fulltag_misc)
    469          _struct_label(new_gcable_ptr) /* %new-gcable-ptr */
    470          _struct_pad(symbol_extra)
    471        
    472          _struct_pad(fulltag_misc)
    473          _struct_label(gc_event_status_bits)
    474          _struct_pad(symbol_extra)      /* *gc-event-status-bits* */
    475 
    476          _struct_pad(fulltag_misc)
    477          _struct_label(post_gc_hook)
    478          _struct_pad(symbol_extra)      /* *post-gc-hook* */
    479 
    480          _struct_pad(fulltag_misc)
    481          _struct_label(handlers)
    482          _struct_pad(symbol_extra)      /* %handlers% */
    483 
    484 
    485          _struct_pad(fulltag_misc)
    486          _struct_label(all_packages)
    487          _struct_pad(symbol_extra)      /* %all-packages% */
    488 
    489          _struct_pad(fulltag_misc)
    490          _struct_label(keyword_package)
    491          _struct_pad(symbol_extra)      /* *keyword-package* */
    492 
    493          _struct_pad(fulltag_misc)
    494          _struct_label(os_init_function)
    495          _struct_pad(symbol_extra)      /* %os-init-function% */
    496 
    497          _struct_pad(fulltag_misc)
    498          _struct_label(foreign_thread_control)
    499          _struct_pad(symbol_extra)      /* %foreign-thread-control */
    500 
    501         _ends
     361nrs_origin = (nil_value+(16-fulltag_nil))
     362nrs_symbol_fulltag = fulltag_misc       
     363
     364
     365        include(lisp_globals.s)
    502366
    503367define(`def_header',`
  • trunk/source/lisp-kernel/ppc-constants64.s

    r15196 r15197  
    331331/* is surprisingly hard. */
    332332
    333 symbol_extra = symbol.size-fulltag_misc
    334 
    335        
    336         _struct(nrs,(0x3000+(LOWMEM_BIAS)))
    337          _struct_pad(fulltag_misc)
    338          _struct_label(tsym)
    339          _struct_pad(symbol_extra)      /* t */
    340 
    341          _struct_pad(fulltag_misc)
    342          _struct_label(nil)
    343          _struct_pad(symbol_extra)      /* nil */
    344 
    345          _struct_pad(fulltag_misc)
    346          _struct_label(errdisp)
    347          _struct_pad(symbol_extra)      /* %err-disp */
    348 
    349          _struct_pad(fulltag_misc)
    350          _struct_label(cmain)
    351          _struct_pad(symbol_extra)      /* cmain */
    352 
    353          _struct_pad(fulltag_misc)
    354          _struct_label(eval)
    355          _struct_pad(symbol_extra)      /* eval */
    356  
    357          _struct_pad(fulltag_misc)
    358          _struct_label(appevalfn)
    359          _struct_pad(symbol_extra)      /* apply-evaluated-function */
    360 
    361          _struct_pad(fulltag_misc)
    362          _struct_label(error)
    363          _struct_pad(symbol_extra)      /* error */
    364 
    365          _struct_pad(fulltag_misc)
    366          _struct_label(defun)
    367          _struct_pad(symbol_extra)      /* %defun */
    368 
    369          _struct_pad(fulltag_misc)
    370          _struct_label(defvar)
    371          _struct_pad(symbol_extra)      /* %defvar */
    372 
    373          _struct_pad(fulltag_misc)
    374          _struct_label(defconstant)
    375          _struct_pad(symbol_extra)      /* %defconstant */
    376 
    377          _struct_pad(fulltag_misc)
    378          _struct_label(macrosym)
    379          _struct_pad(symbol_extra)      /* %macro */
    380 
    381          _struct_pad(fulltag_misc)
    382          _struct_label(kernelrestart)
    383          _struct_pad(symbol_extra)      /* %kernel-restart */
    384 
    385          _struct_pad(fulltag_misc)
    386          _struct_label(package)
    387          _struct_pad(symbol_extra)      /* *package* */
    388 
    389          _struct_pad(fulltag_misc)
    390          _struct_label(total_bytes_freed)               /* *total-bytes-freed* */
    391          _struct_pad(symbol_extra)
    392 
    393          _struct_pad(fulltag_misc)
    394          _struct_label(kallowotherkeys)
    395          _struct_pad(symbol_extra)      /* allow-other-keys */
    396 
    397          _struct_pad(fulltag_misc)
    398          _struct_label(toplcatch)
    399          _struct_pad(symbol_extra)      /* %toplevel-catch% */
    400 
    401          _struct_pad(fulltag_misc)
    402          _struct_label(toplfunc)
    403          _struct_pad(symbol_extra)      /* %toplevel-function% */
    404 
    405          _struct_pad(fulltag_misc)
    406          _struct_label(callbacks)
    407          _struct_pad(symbol_extra)      /* %pascal-functions% */
    408 
    409          _struct_pad(fulltag_misc)
    410          _struct_label(heap_init_function)
    411          _struct_pad(symbol_extra)      /* *heap-init-function* */
    412 
    413          _struct_pad(fulltag_misc)
    414          _struct_label(total_gc_microseconds)           /* *total-gc-microseconds* */
    415          _struct_pad(symbol_extra)
    416 
    417          _struct_pad(fulltag_misc)
    418          _struct_label(builtin_functions)               /* %builtin-functions% */
    419          _struct_pad(symbol_extra)               
    420 
    421          _struct_pad(fulltag_misc)
    422          _struct_label(udf)
    423          _struct_pad(symbol_extra)      /* %unbound-function% */
    424 
    425          _struct_pad(fulltag_misc)
    426          _struct_label(init_misc)
    427          _struct_pad(symbol_extra)      /* %init-misc */
    428 
    429          _struct_pad(fulltag_misc)
    430          _struct_label(macro_code)
    431          _struct_pad(symbol_extra)      /* %macro-code% */
    432 
    433          _struct_pad(fulltag_misc)
    434          _struct_label(closure_code)
    435          _struct_pad(symbol_extra)      /* %closure-code% */
    436 
    437          _struct_pad(fulltag_misc)
    438          _struct_label(new_gcable_ptr) /* %new-gcable-ptr */
    439          _struct_pad(symbol_extra)
    440        
    441          _struct_pad(fulltag_misc)
    442          _struct_label(gc_event_status_bits)
    443          _struct_pad(symbol_extra)      /* *gc-event-status-bits* */
    444 
    445          _struct_pad(fulltag_misc)
    446          _struct_label(post_gc_hook)
    447          _struct_pad(symbol_extra)      /* *post-gc-hook* */
    448 
    449          _struct_pad(fulltag_misc)
    450          _struct_label(handlers)
    451          _struct_pad(symbol_extra)      /* %handlers% */
    452 
    453 
    454          _struct_pad(fulltag_misc)
    455          _struct_label(all_packages)
    456          _struct_pad(symbol_extra)      /* %all-packages% */
    457 
    458          _struct_pad(fulltag_misc)
    459          _struct_label(keyword_package)
    460          _struct_pad(symbol_extra)      /* *keyword-package* */
    461 
    462          _struct_pad(fulltag_misc)
    463          _struct_label(os_init_function)
    464          _struct_pad(symbol_extra)      /* %os-init-function% */
    465 
    466          _struct_pad(fulltag_misc)
    467          _struct_label(foreign_thread_control)
    468          _struct_pad(symbol_extra)      /* %foreign-thread-control */
    469 
    470         _ends
     333
     334nrs_origin = (0x3000+(LOWMEM_BIAS))
     335nrs_symbol_fulltag = fulltag_symbol       
     336define(`nilsym',`nil')       
     337
     338        include(lisp_globals.s)
     339       
     340       
    471341
    472342define(`def_header',`
  • trunk/source/lisp-kernel/x86-constants32.s

    r15196 r15197  
    302302        _ends
    303303
    304 symbol_extra = symbol.size-fulltag_misc
    305 
    306         _struct(nrs,(0x13008+(LOWMEM_BIAS)))
    307          _struct_pad(fulltag_misc)
    308          _struct_label(tsym)
    309          _struct_pad(symbol_extra)      /* t */
    310 
    311          _struct_pad(fulltag_misc)
    312          _struct_label(nilsym)
    313          _struct_pad(symbol_extra)      /* nil */
    314 
    315          _struct_pad(fulltag_misc)
    316          _struct_label(errdisp)
    317          _struct_pad(symbol_extra)      /* %err-disp */
    318 
    319          _struct_pad(fulltag_misc)
    320          _struct_label(cmain)
    321          _struct_pad(symbol_extra)      /* cmain */
    322 
    323          _struct_pad(fulltag_misc)
    324          _struct_label(eval)
    325          _struct_pad(symbol_extra)      /* eval */
    326  
    327          _struct_pad(fulltag_misc)
    328          _struct_label(appevalfn)
    329          _struct_pad(symbol_extra)      /* apply-evaluated-function */
    330 
    331          _struct_pad(fulltag_misc)
    332          _struct_label(error)
    333          _struct_pad(symbol_extra)      /* error */
    334 
    335          _struct_pad(fulltag_misc)
    336          _struct_label(defun)
    337          _struct_pad(symbol_extra)      /* %defun */
    338 
    339          _struct_pad(fulltag_misc)
    340          _struct_label(defvar)
    341          _struct_pad(symbol_extra)      /* %defvar */
    342 
    343          _struct_pad(fulltag_misc)
    344          _struct_label(defconstant)
    345          _struct_pad(symbol_extra)      /* %defconstant */
    346 
    347          _struct_pad(fulltag_misc)
    348          _struct_label(macrosym)
    349          _struct_pad(symbol_extra)      /* %macro */
    350 
    351          _struct_pad(fulltag_misc)
    352          _struct_label(kernelrestart)
    353          _struct_pad(symbol_extra)      /* %kernel-restart */
    354 
    355          _struct_pad(fulltag_misc)
    356          _struct_label(package)
    357          _struct_pad(symbol_extra)      /* *package* */
    358 
    359          _struct_pad(fulltag_misc)
    360          _struct_label(total_bytes_freed)
    361          _struct_pad(symbol_extra)      /* *total-bytes-freed* */
    362 
    363          _struct_pad(fulltag_misc)
    364          _struct_label(kallowotherkeys)
    365          _struct_pad(symbol_extra)      /* allow-other-keys */
    366 
    367          _struct_pad(fulltag_misc)
    368          _struct_label(toplcatch)
    369          _struct_pad(symbol_extra)      /* %toplevel-catch% */
    370 
    371          _struct_pad(fulltag_misc)
    372          _struct_label(toplfunc)
    373          _struct_pad(symbol_extra)      /* %toplevel-function% */
    374 
    375          _struct_pad(fulltag_misc)
    376          _struct_label(callbacks)
    377          _struct_pad(symbol_extra)      /* %pascal-functions% */
    378 
    379          _struct_pad(fulltag_misc)
    380          _struct_label(heap_init_function)
    381          _struct_pad(symbol_extra)      /* *heap-init-function* */
    382 
    383          _struct_pad(fulltag_misc)
    384          _struct_label(total_gc_microseconds)
    385          _struct_pad(symbol_extra)      /* *total-gc-microseconds* */
    386 
    387          _struct_pad(fulltag_misc)
    388          _struct_label(builtin_functions)
    389          _struct_pad(symbol_extra)      /* %builtin-functions% */
     304nrs_origin = 0x13008+(LOWMEM_BIAS)
     305nrs_symbol_fulltag = fulltag_misc       
     306
    390307       
    391          _struct_pad(fulltag_misc)
    392          _struct_label(udf)
    393          _struct_pad(symbol_extra)      /* %unbound-function% */
    394 
    395          _struct_pad(fulltag_misc)
    396          _struct_label(init_misc)
    397          _struct_pad(symbol_extra)      /* %init-misc */
    398 
    399          _struct_pad(fulltag_misc)
    400          _struct_label(macro_code)
    401          _struct_pad(symbol_extra)      /* %macro-code% */
    402 
    403          _struct_pad(fulltag_misc)
    404          _struct_label(closure_code)
    405          _struct_pad(symbol_extra)      /* %closure-code% */
    406 
    407          _struct_pad(fulltag_misc)
    408          _struct_label(new_gcable_ptr)
    409          _struct_pad(symbol_extra)      /* %new-gcable-ptr */
    410        
    411          _struct_pad(fulltag_misc)
    412          _struct_label(gc_event_status_bits)
    413          _struct_pad(symbol_extra)      /* *gc-event-status-bits* */
    414 
    415          _struct_pad(fulltag_misc)
    416          _struct_label(post_gc_hook)
    417          _struct_pad(symbol_extra)      /* *post-gc-hook* */
    418 
    419          _struct_pad(fulltag_misc)
    420          _struct_label(handlers)
    421          _struct_pad(symbol_extra)      /* %handlers% */
    422 
    423          _struct_pad(fulltag_misc)
    424          _struct_label(all_packages)
    425          _struct_pad(symbol_extra)      /* %all-packages% */
    426 
    427          _struct_pad(fulltag_misc)
    428          _struct_label(keyword_package)
    429          _struct_pad(symbol_extra)      /* *keyword-package* */
    430 
    431          _struct_pad(fulltag_misc)
    432          _struct_label(os_init_function)
    433          _struct_pad(symbol_extra)      /* %os-init-function% */
    434 
    435          _struct_pad(fulltag_misc)
    436          _struct_label(foreign_thread_control)
    437          _struct_pad(symbol_extra)      /* %foreign-thread-control */
    438 
    439         _ends
     308        include(lisp_globals.s)
     309
    440310
    441311define(`def_header',`$1 = ($2<<num_subtag_bits)|$3')
  • trunk/source/lisp-kernel/x86-constants64.s

    r15196 r15197  
    645645               
    646646       
    647         _struct(c_frame,0)      /* PowerOpen ABI C stack frame   */
    648          _node(backlink)
    649          _node(crsave)
    650          _node(savelr)
    651          _field(unused, 16)
    652          _node(savetoc)
    653          _struct_label(params)
    654          _node(param0)
    655          _node(param1)
    656          _node(param2)
    657          _node(param3)
    658          _node(param4)
    659          _node(param5)
    660          _node(param6)
    661          _node(param7)
    662          _struct_label(minsiz)
    663         _ends
    664 
    665 
    666         _struct(eabi_c_frame,0)
    667          _word(backlink)
    668          _word(savelr)
    669          _word(param0)
    670          _word(param1)
    671          _word(param2)
    672          _word(param3)
    673          _word(param4)
    674          _word(param5)
    675          _word(param6)
    676          _word(param7)
    677          _struct_label(minsiz)
    678         _ends
    679 
    680         /* For entry to variable-argument-list functions   */
    681         /* (e.g., via callback)   */
    682         _struct(varargs_eabi_c_frame,0)
    683          _word(backlink)
    684          _word(savelr)
    685          _struct_label(va_list)
    686          _word(flags)           /* gpr count byte, fpr count byte, padding   */
    687          _word(overflow_arg_area)
    688          _word(reg_save_area)
    689          _field(padding,4)
    690          _struct_label(regsave)
    691          _field(gp_save,8*4)
    692          _field(fp_save,8*8)
    693          _word(old_backlink)
    694          _word(old_savelr)
    695          _struct_label(incoming_stack_args)
    696         _ends
     647
     648
     649
    697650               
    698651        _struct(lisp_frame,0)
     
    713666
    714667
    715 /* Nilreg-relative globals.  Talking the assembler into doing  */
    716 /* something reasonable here  */
    717 /* is surprisingly hard.   */
    718 
    719 symbol_extra = symbol.size-fulltag_symbol
    720 
    721        
    722         _struct(nrs,0x13020)
    723          _struct_pad(fulltag_symbol)
    724          _struct_label(tsym)
    725          _struct_pad(symbol_extra)      /* t    */
    726 
    727          _struct_pad(fulltag_symbol)
    728          _struct_label(nil)
    729          _struct_pad(symbol_extra)      /* nil    */
    730 
    731          _struct_pad(fulltag_symbol)
    732          _struct_label(errdisp)
    733          _struct_pad(symbol_extra)      /* %err-disp    */
    734 
    735          _struct_pad(fulltag_symbol)
    736          _struct_label(cmain)
    737          _struct_pad(symbol_extra)      /* cmain    */
    738 
    739          _struct_pad(fulltag_symbol)
    740          _struct_label(eval)
    741          _struct_pad(symbol_extra)      /* eval    */
    742  
    743          _struct_pad(fulltag_symbol)
    744          _struct_label(appevalfn)
    745          _struct_pad(symbol_extra)      /* apply-evaluated-function    */
    746 
    747          _struct_pad(fulltag_symbol)
    748          _struct_label(error)
    749          _struct_pad(symbol_extra)      /* error    */
    750 
    751          _struct_pad(fulltag_symbol)
    752          _struct_label(defun)
    753          _struct_pad(symbol_extra)      /* %defun    */
    754 
    755          _struct_pad(fulltag_symbol)
    756          _struct_label(defvar)
    757          _struct_pad(symbol_extra)      /* %defvar    */
    758 
    759          _struct_pad(fulltag_symbol)
    760          _struct_label(defconstant)
    761          _struct_pad(symbol_extra)      /* %defconstant    */
    762 
    763          _struct_pad(fulltag_symbol)
    764          _struct_label(macrosym)
    765          _struct_pad(symbol_extra)      /* %macro    */
    766 
    767          _struct_pad(fulltag_symbol)
    768          _struct_label(kernelrestart)
    769          _struct_pad(symbol_extra)      /* %kernel-restart    */
    770 
    771          _struct_pad(fulltag_symbol)
    772          _struct_label(package)
    773          _struct_pad(symbol_extra)      /* *package*    */
    774 
    775          _struct_pad(fulltag_symbol)
    776          _struct_label(total_bytes_freed)               /* *total-bytes-freed*   */
    777          _struct_pad(symbol_extra)
    778 
    779          _struct_pad(fulltag_symbol)
    780          _struct_label(kallowotherkeys)
    781          _struct_pad(symbol_extra)      /* allow-other-keys    */
    782 
    783          _struct_pad(fulltag_symbol)
    784          _struct_label(toplcatch)
    785          _struct_pad(symbol_extra)      /* %toplevel-catch%    */
    786 
    787          _struct_pad(fulltag_symbol)
    788          _struct_label(toplfunc)
    789          _struct_pad(symbol_extra)      /* %toplevel-function%    */
    790 
    791          _struct_pad(fulltag_symbol)
    792          _struct_label(callbacks)
    793          _struct_pad(symbol_extra)      /* %pascal-functions%    */
    794 
    795          _struct_pad(fulltag_symbol)
    796          _struct_label(heap_init_function)
    797          _struct_pad(symbol_extra)      /* *heap-init-function*    */
    798 
    799          _struct_pad(fulltag_symbol)
    800          _struct_label(total_gc_microseconds)           /* *total-gc-microseconds*   */
    801          _struct_pad(symbol_extra)
    802 
    803          _struct_pad(fulltag_symbol)
    804          _struct_label(builtin_functions)               /* %builtin-functions%   */
    805          _struct_pad(symbol_extra)               
    806 
    807          _struct_pad(fulltag_symbol)
    808          _struct_label(udf)
    809          _struct_pad(symbol_extra)      /* %unbound-function%    */
    810 
    811          _struct_pad(fulltag_symbol)
    812          _struct_label(init_misc)
    813          _struct_pad(symbol_extra)      /* %init-misc   */
    814 
    815          _struct_pad(fulltag_symbol)
    816          _struct_label(macro_code)
    817          _struct_pad(symbol_extra)      /* %macro-code%   */
    818 
    819          _struct_pad(fulltag_symbol)
    820          _struct_label(closure_code)
    821          _struct_pad(symbol_extra)      /* %closure-code%   */
    822 
    823          _struct_pad(fulltag_symbol)
    824          _struct_label(new_gcable_ptr) /* %new-gcable-ptr   */
    825          _struct_pad(symbol_extra)
    826        
    827          _struct_pad(fulltag_symbol)
    828          _struct_label(gc_event_status_bits)
    829          _struct_pad(symbol_extra)      /* *gc-event-status-bits*    */
    830 
    831          _struct_pad(fulltag_symbol)
    832          _struct_label(post_gc_hook)
    833          _struct_pad(symbol_extra)      /* *post-gc-hook*    */
    834 
    835          _struct_pad(fulltag_symbol)
    836          _struct_label(handlers)
    837          _struct_pad(symbol_extra)      /* %handlers%    */
    838 
    839 
    840          _struct_pad(fulltag_symbol)
    841          _struct_label(all_packages)
    842          _struct_pad(symbol_extra)      /* %all-packages%    */
    843 
    844          _struct_pad(fulltag_symbol)
    845          _struct_label(keyword_package)
    846          _struct_pad(symbol_extra)      /* *keyword-package*    */
    847 
    848          _struct_pad(fulltag_symbol)
    849          _struct_label(os_init_function)
    850          _struct_pad(symbol_extra)      /* %os-init-function%    */
    851 
    852          _struct_pad(fulltag_symbol)
    853          _struct_label(foreign_thread_control)
    854          _struct_pad(symbol_extra)      /* %foreign-thread-control    */
    855 
    856         _ends
     668
     669nrs_origin = 0x13020
     670nrs_symbol_fulltag = fulltag_symbol       
     671
     672       
     673        include(lisp_globals.s)
     674       
    857675
    858676define(`def_header',`
Note: See TracChangeset for help on using the changeset viewer.