- (:translate ,set-name)
- (:policy :fast-safe)
- (:args (object :scs (sap-reg)
- ,@(unless (eq size :float) '(:target sap)))
- (offset :scs (signed-reg))
- (value :scs (,sc) :target result))
- (:arg-types system-area-pointer signed-num ,type)
- (:results (result :scs (,sc)))
- (:result-types ,type)
- ,@(unless (eq size :float)
- '((:temporary (:scs (sap-reg) :from (:argument 0)) sap)))
- (:generator 5
- ,@(if (eq size :float)
- `((inst fstx value offset object)
- (unless (location= value result)
- (inst funop :copy value result)))
- `((inst add object offset sap)
- (inst ,(ecase size (:byte 'stb) (:short 'sth) (:long 'stw))
- value 0 sap)
- (move value result)))))
+ (:translate ,set-name)
+ (:policy :fast-safe)
+ (:args (object :scs (sap-reg)
+ ,@(unless (eq size :float) '(:target sap)))
+ (offset :scs (signed-reg))
+ (value :scs (,sc) :target result))
+ (:arg-types system-area-pointer signed-num ,type)
+ (:results (result :scs (,sc)))
+ (:result-types ,type)
+ ,@(unless (eq size :float)
+ '((:temporary (:scs (sap-reg) :from (:argument 0)) sap)))
+ (:generator 5
+ ,@(if (eq size :float)
+ `((inst fstx value offset object)
+ (unless (location= value result)
+ (inst funop :copy value result)))
+ `((inst add object offset sap)
+ (inst ,(ecase size (:byte 'stb) (:short 'sth) (:long 'stw))
+ value 0 sap)
+ (move value result)))))