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/X86/x86-symbol.lisp

    r13067 r13745  
    164164    @done
    165165    (single-value-return)))
     166
     167;;; Ensure that the current thread's thread-local-binding vector
     168;;; contains room for an entry with index INDEX.
     169;;; Return the fixnum-tagged tlb vector.
     170(defx86lapfunction %ensure-tlb-index ((idx arg_z))
     171  (cmp (:rcontext x8632::tcr.tlb-limit) (% idx))
     172  (jb @ok)
     173  (push (% arg_z))                      ; exception handler will pop this
     174  (ud2a)  (:byte 1)                     ; tlb_too_small()
     175  @ok
     176  (mov (:rcontext x8632::tcr.tlb-pointer) (% arg_z))
     177  (single-value-return))
     178
    166179) ; #+x8664-target
     180
     181
     182
     183
Note: See TracChangeset for help on using the changeset viewer.