[Openmcl-cvs-notifications] r14148 - /trunk/source/level-0/ARM/arm-symbol.lisp

[gb at clozure.com]

Author: gb
Date: Thu Aug  5 12:21:32 2010
New Revision: 14148

Log:
%ENSURE-TLB-INDEX for ARM.

Modified:
    trunk/source/level-0/ARM/arm-symbol.lisp

Modified: trunk/source/level-0/ARM/arm-symbol.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-0/ARM/arm-symbol.lisp (original)
+++ trunk/source/level-0/ARM/arm-symbol.lisp Thu Aug  5 12:21:32 2010
@@ -146,3 +146,13 @@
     (mov accum (:lsl accum (:$ 5)))
     (mov arg_z (:lsr accum (:$ (- 5 arm::fixnumshift))))
     (bx lr)))
+
+;;; Ensure that the current thread's thread-local-binding vector
+;;; contains room for an entry with index INDEX.
+;;; Return the fixnum-tagged tlb vector.
+(defarmlapfunction %ensure-tlb-index ((idx arg_z))
+  (ldr arg_y (:@ rcontext (:$ arm::tcr.tlb-limit)))
+  (cmp arg_y idx)
+  (uuo-tlb-too-small (:? ls) idx)
+  (ldr arg_z (:@ rcontext (:$ arm::tcr.tlb-pointer)))
+  (bx lr))