(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.
+;;; Emit a coercion VOP for OP BEFORE the specified VOP or die trying.
;;; SCS is the operand's LOAD-SCS vector, which we use to determine
;;; what SCs the VOP will accept. We pick any acceptable coerce VOP,
;;; since it practice it seems uninteresting to have more than one