projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.23.62: Micro-optimization for MIPS' SYMBOL-HASH VOP.
[sbcl.git]
/
src
/
compiler
/
mips
/
call.lisp
diff --git
a/src/compiler/mips/call.lisp
b/src/compiler/mips/call.lisp
index
5e47120
..
97057d8
100644
(file)
--- a/
src/compiler/mips/call.lisp
+++ b/
src/compiler/mips/call.lisp
@@
-1171,7
+1171,7
@@
default-value-8
(move context context-arg)
(move count count-arg)
;; Check to see if there are any arguments.
(move context context-arg)
(move count count-arg)
;; Check to see if there are any arguments.
- (inst beq count zero-tn done)
+ (inst beq count done)
(move result null-tn t)
;; We need to do this atomically.
(move result null-tn t)
;; We need to do this atomically.
@@
-1199,7
+1199,7
@@
default-value-8
;; Dec count, and if != zero, go back for more.
(inst addu count count (fixnumize -1))
;; Dec count, and if != zero, go back for more.
(inst addu count count (fixnumize -1))
- (inst bne count zero-tn loop)
+ (inst bne count loop)
;; Store the value in the car (in delay slot)
(storew temp dst 0 list-pointer-lowtag)
;; Store the value in the car (in delay slot)
(storew temp dst 0 list-pointer-lowtag)
@@
-1248,7
+1248,7
@@
default-value-8
(let ((err-lab
(generate-error-code vop invalid-arg-count-error nargs)))
(cond ((zerop count)
(let ((err-lab
(generate-error-code vop invalid-arg-count-error nargs)))
(cond ((zerop count)
- (inst bne nargs zero-tn err-lab)
+ (inst bne nargs err-lab)
(inst nop))
(t
(inst li temp (fixnumize count))
(inst nop))
(t
(inst li temp (fixnumize count))