Changeset 15196


Ignore:
Timestamp:
Feb 6, 2012, 6:24:23 PM (13 years ago)
Author:
Gary Byers
Message:

Rename a couple of (unused) nil-relative-symbols. No bootstrapping issues
(yet, modulo any typos), but there may be when we start to use them.

Location:
trunk/source
Files:
9 edited

Legend:

Unmodified
Added
Removed

  • trunk/source/compiler/ARM/arm-arch.lisp

    r15191 r15196  
    267267    ccl::%toplevel-function%
    268268    ccl::%pascal-functions%   
    269     ccl::*all-metered-functions*
     269    ccl::*heap-init-function*
    270270    ccl::*total-gc-microseconds*
    271271    ccl::%builtin-functions%
    … …  
    280280    ccl::%all-packages%
    281281    ccl::*keyword-package*
    282     ccl::%finalization-alist%
     282    ccl::%os-init-function%
    283283    ccl::%foreign-thread-control
    284284    ))

  • trunk/source/compiler/PPC/ppc-arch.lisp

    r13330 r15196  
    299299    ccl::%toplevel-function%
    300300    ccl::%pascal-functions%   
    301     ccl::*all-metered-functions*
     301    ccl::*heap-init-function*
    302302    ccl::*total-gc-microseconds*
    303303    ccl::%builtin-functions%
    … …  
    312312    ccl::%all-packages%
    313313    ccl::*keyword-package*
    314     ccl::%finalization-alist%
     314    ccl::%os-init-function%
    315315    ccl::%foreign-thread-control
    316316    ))

  • trunk/source/compiler/X86/x86-arch.lisp

    r13330 r15196  
    101101    ccl::%toplevel-function%
    102102    ccl::%pascal-functions%   
    103     ccl::*all-metered-functions*
     103    ccl::*heap-init-function*
    104104    ccl::*total-gc-microseconds*
    105105    ccl::%builtin-functions%
    … …  
    114114    ccl::%all-packages%
    115115    ccl::*keyword-package*
    116     ccl::%finalization-alist%
     116    ccl::%os-init-function%
    117117    ccl::%foreign-thread-control
    118118    ))

  • trunk/source/lisp-kernel/arm-constants.s

    r15111 r15196  
    471471
    472472         _struct_pad(fulltag_misc)
    473          _struct_label(allmeteredfuns)
    474          _struct_pad(symbol_extra)      /* *all-metered-functions* */
     473         _struct_label(heap_init_function)
     474         _struct_pad(symbol_extra)      /* *heap-init-function* */
    475475
    476476         _struct_pad(fulltag_misc)
    … …  
    524524
    525525         _struct_pad(fulltag_misc)
    526          _struct_label(finalization_alist)
    527          _struct_pad(symbol_extra)      /* %finalization-alist% */
     526         _struct_label(os_init_function)
     527         _struct_pad(symbol_extra)      /* %os-init-function% */
    528528
    529529         _struct_pad(fulltag_misc)

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

    r14119 r15196  
    144144#define nrs_TOPLFUNC                    (nrs_symbol(16))        /* %toplevel-function% */
    145145#define nrs_CALLBACKS                   (nrs_symbol(17))        /* %pascal-functions% */
    146 #define nrs_ALLMETEREDFUNS              (nrs_symbol(18))        /* *all-metered-functions* */
     146#define nrs_HEAP_INIT_FUNCTION          (nrs_symbol(18))        /* *heap-init-function* */
    147147#define nrs_TOTAL_GC_MICROSECONDS       (nrs_symbol(19))        /* *total-gc-microseconds* */
    148148#define nrs_BUILTIN_FUNCTIONS           (nrs_symbol(20))        /* %builtin-functions% */
    … …  
    157157#define nrs_ALL_PACKAGES                (nrs_symbol(29))        /* %all-packages% */
    158158#define nrs_KEYWORD_PACKAGE             (nrs_symbol(30))        /* *keyword-package* */
    159 #define nrs_FINALIZATION_ALIST          (nrs_symbol(31))        /* %finalization-alist% */
     159#define nrs_OS_INIT_FUNCTION            (nrs_symbol(31))        /* %os-init-function% */
    160160#define nrs_FOREIGN_THREAD_CONTROL      (nrs_symbol(32))        /* %foreign-thread-control */
    161161#define num_nilreg_symbols 33

  • trunk/source/lisp-kernel/ppc-constants32.s

    r13337 r15196  
    439439
    440440         _struct_pad(fulltag_misc)
    441          _struct_label(allmeteredfuns)
    442          _struct_pad(symbol_extra)      /* *all-metered-functions* */
     441         _struct_label(heap_init_function)
     442         _struct_pad(symbol_extra)      /* *heap-init-function* */
    443443
    444444         _struct_pad(fulltag_misc)
    … …  
    492492
    493493         _struct_pad(fulltag_misc)
    494          _struct_label(finalization_alist)
    495          _struct_pad(symbol_extra)      /* %finalization-alist% */
     494         _struct_label(os_init_function)
     495         _struct_pad(symbol_extra)      /* %os-init-function% */
    496496
    497497         _struct_pad(fulltag_misc)

  • trunk/source/lisp-kernel/ppc-constants64.s

    r13337 r15196  
    408408
    409409         _struct_pad(fulltag_misc)
    410          _struct_label(allmeteredfuns)
    411          _struct_pad(symbol_extra)      /* *all-metered-functions* */
     410         _struct_label(heap_init_function)
     411         _struct_pad(symbol_extra)      /* *heap-init-function* */
    412412
    413413         _struct_pad(fulltag_misc)
    … …  
    461461
    462462         _struct_pad(fulltag_misc)
    463          _struct_label(finalization_alist)
    464          _struct_pad(symbol_extra)      /* %finalization-alist% */
     463         _struct_label(os_init_function)
     464         _struct_pad(symbol_extra)      /* %os-init-function% */
    465465
    466466         _struct_pad(fulltag_misc)

  • trunk/source/lisp-kernel/x86-constants32.s

    r14619 r15196  
    378378
    379379         _struct_pad(fulltag_misc)
    380          _struct_label(allmeteredfuns)
    381          _struct_pad(symbol_extra)      /* *all-metered-functions* */
     380         _struct_label(heap_init_function)
     381         _struct_pad(symbol_extra)      /* *heap-init-function* */
    382382
    383383         _struct_pad(fulltag_misc)
    … …  
    430430
    431431         _struct_pad(fulltag_misc)
    432          _struct_label(finalization_alist)
    433          _struct_pad(symbol_extra)      /* %finalization-alist% */
     432         _struct_label(os_init_function)
     433         _struct_pad(symbol_extra)      /* %os-init-function% */
    434434
    435435         _struct_pad(fulltag_misc)

  • trunk/source/lisp-kernel/x86-constants64.s

    r13952 r15196  
    794794
    795795         _struct_pad(fulltag_symbol)
    796          _struct_label(allmeteredfuns)
    797          _struct_pad(symbol_extra)      /* *all-metered-functions*    */
     796         _struct_label(heap_init_function)
     797         _struct_pad(symbol_extra)      /* *heap-init-function*    */
    798798
    799799         _struct_pad(fulltag_symbol)
    … …  
    847847
    848848         _struct_pad(fulltag_symbol)
    849          _struct_label(finalization_alist)
    850          _struct_pad(symbol_extra)      /* %finalization-alist%    */
     849         _struct_label(os_init_function)
     850         _struct_pad(symbol_extra)      /* %os-init-function%    */
    851851
    852852         _struct_pad(fulltag_symbol)
Note: See TracChangeset for help on using the changeset viewer.