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-0/PPC/ppc-symbol.lisp

    r13067 r13745  
    178178    (srri arg_z accum (- 5 target::fixnumshift))
    179179    (blr)))
     180
     181;;; Ensure that the current thread's thread-local-binding vector
     182;;; contains room for an entry with index INDEX.
     183;;; Return the fixnum-tagged tlb vector.
     184(defppclapfunction %ensure-tlb-index ((idx arg_z))
     185  (ldr arg_y target::tcr.tlb-limit target::rcontext)
     186  (trlle arg_y idx)
     187  (ldr arg_z target::tcr.tlb-pointer target::rcontext)
     188  (blr))
Note: See TracChangeset for help on using the changeset viewer.