projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
killing lutexes, adding timeouts
[sbcl.git]
/
src
/
compiler
/
represent.lisp
diff --git
a/src/compiler/represent.lisp
b/src/compiler/represent.lisp
index
c4b92cc
..
8d2418e
100644
(file)
--- a/
src/compiler/represent.lisp
+++ b/
src/compiler/represent.lisp
@@
-414,12
+414,7
@@
(operand-restriction-ok
(first (template-result-types info))
(if write-p op-ptype other-ptype)
(operand-restriction-ok
(first (template-result-types info))
(if write-p op-ptype other-ptype)
- :t-ok nil)
- ;; KLUDGE: Move VOPs with constant SCs can't use
- ;; load-time-value TNs. FIXME: if the VOPs were more
- ;; clever they could -- this is the release bandaid.
- (or (not (eq 'constant (sc-name op-sc)))
- (tn-leaf op-tn)))
+ :t-ok nil))
(return info))))))
;;; Emit a coercion VOP for OP BEFORE the specifed VOP or die trying.
(return info))))))
;;; Emit a coercion VOP for OP BEFORE the specifed VOP or die trying.