Changeset 13752


Ignore:
Timestamp:
May 31, 2010, 12:54:14 AM (10 years ago)
Author:
gb
Message:

Look at x8664 tcr fields in x8664 version of %ENSURE-TLB-INDEX.
Fixes ticket:691.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/X86/x86-symbol.lisp

    r13745 r13752  
    169169;;; Return the fixnum-tagged tlb vector.
    170170(defx86lapfunction %ensure-tlb-index ((idx arg_z))
    171   (cmp (:rcontext x8632::tcr.tlb-limit) (% idx))
     171  (cmp (:rcontext x8664::tcr.tlb-limit) (% idx))
    172172  (jb @ok)
    173173  (push (% arg_z))                      ; exception handler will pop this
    174174  (ud2a)  (:byte 1)                     ; tlb_too_small()
    175175  @ok
    176   (mov (:rcontext x8632::tcr.tlb-pointer) (% arg_z))
     176  (mov (:rcontext x8664::tcr.tlb-pointer) (% arg_z))
    177177  (single-value-return))
    178178
Note: See TracChangeset for help on using the changeset viewer.