From: Juho S. <js...@us...> - 2005-08-18 17:10:15
|
Update of /cvsroot/sbcl/sbcl/src/compiler/x86-64 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3211/src/compiler/x86-64 Modified Files: float.lisp Log Message: 0.9.3.62: Fix x86-64 MOVE-ARG-DOUBLE-FLOAT VOP for non-rsp fps (code inherited from x86 assumed doubles use two words of stack space, which is no longer true for x86-64). Index: float.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/x86-64/float.lisp,v retrieving revision 1.9 retrieving revision 1.10 diff -u -d -r1.9 -r1.10 --- float.lisp 14 Jul 2005 19:13:49 -0000 1.9 +++ float.lisp 18 Aug 2005 16:23:08 -0000 1.10 @@ -324,10 +324,7 @@ (:double '((inst movsd ea x))))) (let ((ea (make-ea :dword :base fp - :disp (- (* (+ (tn-offset y) - ,(case format - (:single 1) - (:double 2) )) + :disp (- (* (1+ (tn-offset y)) n-word-bytes))))) ,@(ecase format (:single '((inst movss ea x))) |