- ;; Sign-extend s-b-32 return values.
- (dolist (res (if (listp results)
- results
- (list results)))
- (let ((tn (tn-ref-tn res)))
- (when (eq (sb!c::tn-primitive-type tn)
- (primitive-type-or-lose 'signed-byte-32))
- (inst movsxd tn (make-random-tn :kind :normal
- :sc (sc-or-lose 'dword-reg)
- :offset (tn-offset tn))))))