- (inst sub esp-tn (fixnumize 3))
- (inst mov (make-ea :dword :base esp-tn
- :disp (frame-byte-offset
- (+ sp->fp-offset
- -3
- ocfp-save-offset)))
- ebp-tn)
- (inst lea ebp-tn (make-ea :dword :base esp-tn
- :disp (frame-byte-offset
- (+ sp->fp-offset
- -3
- ocfp-save-offset)))))
+ (inst sub esp-tn ,(fixnumize 3))
+ (inst mov ,new-ebp-ea ebp-tn)
+ (inst lea ebp-tn ,new-ebp-ea))