Changeset 11414
- Timestamp:
- Nov 19, 2008, 6:25:17 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/compiler/X86/X8632/x8632-vinsns.lisp
r11355 r11414 3686 3686 ((temp :imm))) 3687 3687 (movd (:@ (:%seg :rcontext) x8632::tcr.foreign-sp) (:%mmx x8632::stack-temp)) 3688 (subl (:$l (:apply ash nwords x8632::word-shift)) 3688 ;; make frame at least 24 bytes long 3689 (subl (:$l (:apply ash (:apply max 6 nwords) x8632::word-shift)) 3689 3690 (:@ (:%seg :rcontext) x8632::tcr.foreign-sp)) 3690 3691 ;; align stack to 16-byte boundary … … 3699 3700 ((temp :imm))) 3700 3701 (movd (:@ (:%seg :rcontext) x8632::tcr.foreign-sp) (:%mmx x8632::stack-temp)) 3701 (subl (:%l nwords) (:@ (:%seg :rcontext) x8632::tcr.foreign-sp)) 3702 ;; make frame at least 24 bytes long (note that nwords is a fixnum) 3703 (movl (:$l 24) (:%l temp)) 3704 (rcmpl (:%l nwords) (:%l temp)) 3705 (cmoval (:%l nwords) (:%l temp)) 3706 (subl (:%l temp) (:@ (:%seg :rcontext) x8632::tcr.foreign-sp)) 3702 3707 ;; align stack to 16-byte boundary 3703 3708 (andb (:$b -16) (:@ (:%seg :rcontext) x8632::tcr.foreign-sp))
Note: See TracChangeset
for help on using the changeset viewer.