:offset (1+ (tn-offset x))))
(defun complex-double-reg-real-tn (x)
- (make-random-tn :kind :normal :sc (sc-or-lose 'double-reg)
+ (make-random-tn :kind :normal :sc (sc-or-lose 'complex-double-reg)
:offset (tn-offset x)))
(defun complex-double-reg-imag-tn (x)
- (make-random-tn :kind :normal :sc (sc-or-lose 'double-reg)
+ (make-random-tn :kind :normal :sc (sc-or-lose 'complex-double-reg)
:offset (1+ (tn-offset x))))
(macrolet
(loadw y nfp (tn-offset stack-tn))))))))
(frob %unary-round single-reg single-float fcnvfx "inline float round")
(frob %unary-round double-reg double-float fcnvfx "inline float round")
- (frob %unary-truncate single-reg single-float fcnvfxt
+ (frob %unary-truncate/single-float single-reg single-float fcnvfxt
"inline float truncate")
- (frob %unary-truncate double-reg double-float fcnvfxt
+ (frob %unary-truncate/double-float double-reg double-float fcnvfxt
"inline float truncate"))
(define-vop (make-single-float)