Ignore:
Timestamp:
Feb 7, 2012, 7:36:33 AM (8 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.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • 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.