(src (make-random-tn :kind :normal
:sc (sc-or-lose 'single-reg)
:offset (+ i (tn-offset src)))))
(src (make-random-tn :kind :normal
:sc (sc-or-lose 'single-reg)
:offset (+ i (tn-offset src)))))
;; The desired FP mode data is in the least significant 32
;; bits, which is stored at the next higher word in memory.
(loadw res nfp (+ offset 4))
;; The desired FP mode data is in the least significant 32
;; bits, which is stored at the next higher word in memory.
(loadw res nfp (+ offset 4))
(defoptimizer (min derive-type) ((x y))
(multiple-value-bind (definitely-< definitely->=)
(ir1-transform-<-helper x y)
(cond (definitely-<
(defoptimizer (min derive-type) ((x y))
(multiple-value-bind (definitely-< definitely->=)
(ir1-transform-<-helper x y)
(cond (definitely-<
(signed (specifier-type '(signed-byte #.sb!vm:n-word-bits)))
(unsigned (specifier-type '(unsigned-byte #.sb!vm:n-word-bits)))
(d-float (specifier-type 'double-float))
(signed (specifier-type '(signed-byte #.sb!vm:n-word-bits)))
(unsigned (specifier-type '(unsigned-byte #.sb!vm:n-word-bits)))
(d-float (specifier-type 'double-float))
(signed (specifier-type '(signed-byte #.sb!vm:n-word-bits)))
(unsigned (specifier-type '(unsigned-byte #.sb!vm:n-word-bits)))
(d-float (specifier-type 'double-float))
(signed (specifier-type '(signed-byte #.sb!vm:n-word-bits)))
(unsigned (specifier-type '(unsigned-byte #.sb!vm:n-word-bits)))
(d-float (specifier-type 'double-float))