- ;; Blit the values down the stack. Note: there might be overlap, so we have
- ;; to be careful not to clobber values before we've read them. Because the
- ;; stack builds down, we are coping to a larger address. Therefore, we need
- ;; to iterate from larger addresses to smaller addresses.
- ;; pfw-this says copy ecx words from esi to edi counting down.
- (inst shr ecx 2) ; fixnum to raw word count
- (inst std) ; count down
- (inst sub esi 4) ; ?
- (inst lea edi (make-ea :dword :base ebx :disp (- word-bytes)))
+ ;; Blit the values down the stack. Note: there might be overlap, so
+ ;; we have to be careful not to clobber values before we've read
+ ;; them. Because the stack builds down, we are coping to a larger
+ ;; address. Therefore, we need to iterate from larger addresses to
+ ;; smaller addresses. pfw-this says copy ecx words from esi to edi
+ ;; counting down.
+ (inst shr ecx 2) ; fixnum to raw word count
+ (inst std) ; count down
+ (inst sub esi 4) ; ?
+ (inst lea edi (make-ea :dword :base ebx :disp (- n-word-bytes)))