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/X8632/x8632-symbol.lisp

    r13067 r13745  
    141141    @done
    142142    (single-value-return 3)))
     143
     144;;; Ensure that the current thread's thread-local-binding vector
     145;;; contains room for an entry with index INDEX.
     146;;; Return the fixnum-tagged tlb vector.
     147(defx8632lapfunction %ensure-tlb-index ((idx arg_z))
     148  (cmp (:rcontext x8632::tcr.tlb-limit) (% idx))
     149  (jb @ok)
     150  (push (% arg_z))                      ; exception handler will pop this
     151  (ud2a)  (:byte 1)                     ; tlb_too_small()
     152  @ok
     153  (mov (:rcontext x8632::tcr.tlb-pointer) (% arg_z))
     154  (single-value-return))
     155
     156 
Note: See TracChangeset for help on using the changeset viewer.