Changeset 14148


Ignore:
Timestamp:
Aug 5, 2010, 5:21:32 PM (9 years ago)
Author:
gb
Message:

%ENSURE-TLB-INDEX for ARM.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/ARM/arm-symbol.lisp

    r14119 r14148  
    147147    (mov arg_z (:lsr accum (:$ (- 5 arm::fixnumshift))))
    148148    (bx lr)))
     149
     150;;; Ensure that the current thread's thread-local-binding vector
     151;;; contains room for an entry with index INDEX.
     152;;; Return the fixnum-tagged tlb vector.
     153(defarmlapfunction %ensure-tlb-index ((idx arg_z))
     154  (ldr arg_y (:@ rcontext (:$ arm::tcr.tlb-limit)))
     155  (cmp arg_y idx)
     156  (uuo-tlb-too-small (:? ls) idx)
     157  (ldr arg_z (:@ rcontext (:$ arm::tcr.tlb-pointer)))
     158  (bx lr))
Note: See TracChangeset for help on using the changeset viewer.