projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.32.29: Add build flag :sb-xref-for-internals.
[sbcl.git]
/
src
/
compiler
/
mips
/
call.lisp
diff --git
a/src/compiler/mips/call.lisp
b/src/compiler/mips/call.lisp
index
97057d8
..
38f1528
100644
(file)
--- a/
src/compiler/mips/call.lisp
+++ b/
src/compiler/mips/call.lisp
@@
-783,12
+783,7
@@
default-value-8
(insert-step-instrumenting (callable-tn)
;; Conditionally insert a conditional trap:
(when step-instrumenting
(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)
;; If it's not NIL, trap.
(inst beq stepping null-tn step-done-label)
(inst nop)
@@
-1288,12
+1283,7
@@
default-value-8
(:policy :fast-safe)
(:vop-var vop)
(:generator 3
(: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)
;; If it's not NIL, trap.
(inst beq stepping null-tn DONE)
(inst nop)