From 8dc8cce522a5c347d0314baa3406512e51e25a3c Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Fri, 30 Mar 2007 01:59:11 +0000 Subject: [PATCH] Oops. It's fldd, not fld, to load up double-floats. --- compiler/x86/float.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/compiler/x86/float.lisp b/compiler/x86/float.lisp index 1b4c11856..2718e1a36 100644 --- a/compiler/x86/float.lisp +++ b/compiler/x86/float.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/float.lisp,v 1.45 2007/03/28 04:21:34 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/float.lisp,v 1.46 2007/03/30 01:59:11 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -5230,12 +5230,12 @@ (complex-double-double-stack (let ((r-hi (double-double-reg-hi-tn r))) (with-empty-tn@fp-top (r-hi) - (inst fld (ecase slot + (inst fldd (ecase slot (:real (ea-for-cddf-real-hi-stack x)) (:imag (ea-for-cddf-imag-hi-stack x)))))) (let ((r-lo (double-double-reg-lo-tn r))) (with-empty-tn@fp-top (r-lo) - (inst fld (ecase slot + (inst fldd (ecase slot (:real (ea-for-cddf-real-lo-stack x)) (:imag (ea-for-cddf-imag-lo-stack x)))))))))) -- GitLab