Changeset 13745 for trunk/source/level-1


Ignore:
Timestamp:
May 30, 2010, 8:34:50 AM (9 years ago)
Author:
gb
Message:

nfcomp.lisp: in the pkg/no *FASDUMP-EPUSH*/ASCII case in FASL-DUMP-SYMBOL,

use $fasl-nvpkg-intern (not the -special variant) when no symbol-binding
index is involved. (Getting this wrong has caused >10000 symbols that
aren't referenced in special-binding constructs to have symbol-binding
indices, making the per-thread special bindings table unnecessarily large
and exposing problems with %FOREIGN-THREAD-INITIALIZE.

ppc-symbol.lisp, x8632-symbol.lisp, x86-symbol.lisp: define %ENSURE-TLB-INDEX,

which uses a platform-specific conditional trap to ensure that the current
thread's tlb is large enough.

l1-lisp-threads.lisp: use %ENSURE-TLB-INDEX in %FOREIGN-THREAD-INITIALIZE,

to ensure that TLB indices used in that function are in bounds.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-lisp-threads.lisp

    r13081 r13745  
    10651065             (let* ((idx (symbol-binding-index sym))
    10661066                    (byte-idx (ash idx target::fixnum-shift))
    1067                     (binding-vector (%fixnum-ref (%current-tcr) target::tcr.tlb-pointer))
     1067                    (binding-vector (%ensure-tlb-index idx))
    10681068                    (old-value (%fixnum-ref  binding-vector byte-idx)))
    10691069             (setf (%fixnum-ref binding-vector byte-idx) new-value
Note: See TracChangeset for help on using the changeset viewer.