projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
move checking for constant ALIEN-INFO into a separate function
[sbcl.git]
/
src
/
compiler
/
hppa
/
nlx.lisp
diff --git
a/src/compiler/hppa/nlx.lisp
b/src/compiler/hppa/nlx.lisp
index
b5dd83a
..
c6c81f4
100644
(file)
--- a/
src/compiler/hppa/nlx.lisp
+++ b/
src/compiler/hppa/nlx.lisp
@@
-135,8
+135,8
@@
(define-vop (nlx-entry)
(define-vop (nlx-entry)
- (:args (sp) ; Note: we can't list an sc-restriction, 'cause any load vops
- ; would be inserted before the LRA.
+ (:args (sp) ;; Note: we can't list an sc-restriction, 'cause any load vops
+ ;; would be inserted before the LRA.
(start)
(count))
(:results (values :more t))
(start)
(count))
(:results (values :more t))
@@
-179,8
+179,7
@@
(move null-tn tn))
(control-stack
(store-stack-tn tn null-tn)))))
(move null-tn tn))
(control-stack
(store-stack-tn tn null-tn)))))
- (inst b defaulting-done)
- (inst nop)))))) ; FIX remove me or tell why I'm needed
+ (inst b defaulting-done :nullify t))))))
(load-stack-tn csp-tn sp)))
(load-stack-tn csp-tn sp)))
@@
-211,8
+210,7
@@
(sc-case new-start
(any-reg (move dst new-start))
(control-stack (store-stack-tn new-start dst)))
(sc-case new-start
(any-reg (move dst new-start))
(control-stack (store-stack-tn new-start dst)))
- (inst comb := num zero-tn done)
- (inst nop) ; fix-lav remove nop
+ (inst comb := num zero-tn done :nullify t)
(sc-case new-count
(any-reg (move num new-count))
(control-stack (store-stack-tn new-count num)))
(sc-case new-count
(any-reg (move num new-count))
(control-stack (store-stack-tn new-count num)))