(insert-step-instrumenting (callable-tn)
;; Conditionally insert a conditional trap:
(when step-instrumenting
- ;; Get the symbol-value of SB!IMPL::*STEPPING*
- (inst lw stepping null-tn
- (- (+ symbol-value-slot
- (truncate (static-symbol-offset 'sb!impl::*stepping*)
- n-word-bytes))
- other-pointer-lowtag))
+ (load-symbol-value stepping sb!impl::*stepping*)
;; If it's not NIL, trap.
(inst beq stepping null-tn step-done-label)
(inst nop)
(:policy :fast-safe)
(:vop-var vop)
(:generator 3
- ;; Get the symbol-value of SB!IMPL::*STEPPING*
- (inst lw stepping null-tn
- (- (+ symbol-value-slot
- (truncate (static-symbol-offset 'sb!impl::*stepping*)
- n-word-bytes))
- other-pointer-lowtag))
+ (load-symbol-value stepping sb!impl::*stepping*)
;; If it's not NIL, trap.
(inst beq stepping null-tn DONE)
(inst nop)