(cond ((integerp src)
(maybe-emit-rex-prefix segment size nil nil dst)
(cond ((and (eq size :qword)
- (typep src '(signed-byte 31)))
+ (typep src '(signed-byte 32)))
;; When loading small immediates to a qword register
;; using B8 wastes 3 bytes compared to C7.
(emit-byte segment #b11000111)
(define-regular-sse-inst mulss #xf3 #x59)
(define-regular-sse-inst subsd #xf2 #x5c)
(define-regular-sse-inst subss #xf3 #x5c)
+ (define-regular-sse-inst sqrtsd #xf2 #x51)
+ (define-regular-sse-inst sqrtss #xf3 #x51)
;; conversion
(define-regular-sse-inst cvtsd2ss #xf2 #x5a)
(define-regular-sse-inst cvtss2sd #xf3 #x5a)