(:results (r-moved-ptrs :scs (any-reg) :more t))
(:temporary (:sc any-reg) src)
(:temporary (:sc any-reg) dest)
(:results (r-moved-ptrs :scs (any-reg) :more t))
(:temporary (:sc any-reg) src)
(:temporary (:sc any-reg) dest)
- (inst subq (tn-ref-tn moved) src (tn-ref-tn moved)))
- ((control-stack)
- (load-stack-tn temp (tn-ref-tn moved))
- (inst subq temp src temp)
- (store-stack-tn (tn-ref-tn moved) temp))))))
+ (inst subq (tn-ref-tn moved) src (tn-ref-tn moved)))
+ ((control-stack)
+ (load-stack-tn temp (tn-ref-tn moved))
+ (inst subq temp src temp)
+ (store-stack-tn (tn-ref-tn moved) temp))))))
;;; Push some values onto the stack, returning the start and number of
;;; values pushed as results. It is assumed that the Vals are wired to
;;; Push some values onto the stack, returning the start and number of
;;; values pushed as results. It is assumed that the Vals are wired to
- (sc-case tn
- (descriptor-reg
- (storew tn start-temp i))
- (control-stack
- (load-stack-tn temp tn)
- (storew temp start-temp i)))))
+ (sc-case tn
+ (descriptor-reg
+ (storew tn start-temp i))
+ (control-stack
+ (load-stack-tn temp tn)
+ (storew temp start-temp i)))))
(:temporary (:scs (descriptor-reg) :type list :from (:argument 0)) list)
(:temporary (:scs (non-descriptor-reg)) temp)
(:temporary (:scs (non-descriptor-reg)) ndescr)
(:temporary (:scs (descriptor-reg) :type list :from (:argument 0)) list)
(:temporary (:scs (non-descriptor-reg)) temp)
(:temporary (:scs (non-descriptor-reg)) ndescr)