- (inst sub rsp-tn (fixnumize 3))
- (inst mov (make-ea :qword :base rsp-tn
- :disp (frame-byte-offset
- (+ sp->fp-offset
- -3
- ocfp-save-offset)))
- rbp-tn)
- (inst lea rbp-tn (make-ea :qword :base rsp-tn
- :disp (frame-byte-offset
- (+ sp->fp-offset
- -3
- ocfp-save-offset)))))
+ (inst sub rsp-tn (* 3 n-word-bytes))
+ (inst mov ,new-rbp-ea rbp-tn)
+ (inst lea rbp-tn ,new-rbp-ea))