- (def-system-ref-and-set sap-ref-8 %set-sap-ref-8
- unsigned-reg positive-fixnum :byte nil)
- (def-system-ref-and-set signed-sap-ref-8 %set-signed-sap-ref-8
- signed-reg tagged-num :byte t)
- (def-system-ref-and-set sap-ref-16 %set-sap-ref-16
- unsigned-reg positive-fixnum :word nil)
- (def-system-ref-and-set signed-sap-ref-16 %set-signed-sap-ref-16
- signed-reg tagged-num :word t)
- (def-system-ref-and-set sap-ref-32 %set-sap-ref-32
- unsigned-reg unsigned-num :dword nil)
- (def-system-ref-and-set signed-sap-ref-32 %set-signed-sap-ref-32
- signed-reg signed-num :dword t)
- (def-system-ref-and-set sap-ref-64 %set-sap-ref-64
- unsigned-reg unsigned-num :qword nil)
- (def-system-ref-and-set signed-sap-ref-64 %set-signed-sap-ref-64
- signed-reg signed-num :qword t)
- (def-system-ref-and-set sap-ref-sap %set-sap-ref-sap
+ (def-system-ref-and-set sap-ref-8 %set-sap-ref-8 movzx
+ unsigned-reg positive-fixnum :byte)
+ (def-system-ref-and-set signed-sap-ref-8 %set-signed-sap-ref-8 movsx
+ signed-reg tagged-num :byte)
+ (def-system-ref-and-set sap-ref-16 %set-sap-ref-16 movzx
+ unsigned-reg positive-fixnum :word)
+ (def-system-ref-and-set signed-sap-ref-16 %set-signed-sap-ref-16 movsx
+ signed-reg tagged-num :word)
+ (def-system-ref-and-set sap-ref-32 %set-sap-ref-32 movzxd
+ unsigned-reg unsigned-num :dword)
+ (def-system-ref-and-set signed-sap-ref-32 %set-signed-sap-ref-32 movsxd
+ signed-reg signed-num :dword)
+ (def-system-ref-and-set sap-ref-64 %set-sap-ref-64 mov
+ unsigned-reg unsigned-num :qword)
+ (def-system-ref-and-set signed-sap-ref-64 %set-signed-sap-ref-64 mov
+ signed-reg signed-num :qword)
+ (def-system-ref-and-set sap-ref-sap %set-sap-ref-sap mov