(:generator 1
(inst break pending-interrupt-trap)))
+#!+sb-thread
(defknown current-thread-offset-sap ((unsigned-byte 32))
system-area-pointer (flushable))
+#!+sb-thread
(define-vop (current-thread-offset-sap)
(:results (sap :scs (sap-reg)))
(:result-types system-area-pointer)
(:translate current-thread-offset-sap)
- (:args (n :scs (unsigned-reg) #!+sb-thread :target #!+sb-thread sap))
- #!-sb-thread (:temporary (:sc unsigned-reg :target sap) temp)
+ (:args (n :scs (unsigned-reg) :target sap))
(:arg-types unsigned-num)
(:policy :fast-safe)
- #!+sb-thread
(:generator 2
(inst fs-segment-prefix)
- (inst mov sap (make-ea :dword :disp 0 :index n :scale 4)))
- #!-sb-thread
- (:generator 2
- (inst mov temp (make-fixup (extern-alien-name "all_threads") :foreign))
- (inst mov sap (make-ea :dword :base temp :index n :scale 4))))
+ (inst mov sap (make-ea :dword :disp 0 :index n :scale 4))))
(define-vop (halt)
(:generator 1