From 139cb2561fde400a4917b9bbfc7afddf584482d3 Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Wed, 28 Mar 2007 03:54:12 +0000 Subject: [PATCH] o Remove some extraneous (typo) parens for double-double-stack-sc-number and complex-double-double-stack-sc-number. o The complex-double-double-stack-sc-number case was not computed the complex double-double correctly. Fix it. --- code/debug-int.lisp | 26 ++++++++++++++------------ 1 file changed, 14 insertions(+), 12 deletions(-) diff --git a/code/debug-int.lisp b/code/debug-int.lisp index c24be4311..2a8e3a614 100644 --- a/code/debug-int.lisp +++ b/code/debug-int.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.125 2007/03/27 17:46:26 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.126 2007/03/28 03:54:12 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -3219,14 +3219,14 @@ The result is a symbol or nil if the routine cannot be found." (system:sap-ref-long nfp (* (c:sc-offset-offset sc-offset) vm:word-bytes)))) #+double-double - ((#.vm:double-double-stack-sc-number - (with-nfp (nfp) - (kernel:%make-double-double-float - (system:sap-ref-double nfp (* (c:sc-offset-offset sc-offset) - vm:word-bytes)) - (system:sap-ref-double nfp (* (+ (c:sc-offset-offset sc-offset) - 2) - vm:word-bytes)))))) + (#.vm:double-double-stack-sc-number + (with-nfp (nfp) + (kernel:%make-double-double-float + (system:sap-ref-double nfp (* (c:sc-offset-offset sc-offset) + vm:word-bytes)) + (system:sap-ref-double nfp (* (+ (c:sc-offset-offset sc-offset) + 2) + vm:word-bytes))))) (#.vm:complex-single-stack-sc-number (with-nfp (nfp) (complex @@ -3242,14 +3242,16 @@ The result is a symbol or nil if the routine cannot be found." (system:sap-ref-double nfp (* (+ (c:sc-offset-offset sc-offset) 2) vm:word-bytes))))) #+double-double - ((#.vm:complex-double-double-stack-sc-number - (with-nfp (nfp) + (#.vm:complex-double-double-stack-sc-number + (with-nfp (nfp) + (complex (kernel:%make-double-double-float (system:sap-ref-double nfp (* (c:sc-offset-offset sc-offset) vm:word-bytes)) (system:sap-ref-double nfp (* (+ (c:sc-offset-offset sc-offset) 2) - vm:word-bytes)) + vm:word-bytes))) + (kernel:%make-double-double-float (system:sap-ref-double nfp (* (+ (c:sc-offset-offset sc-offset) 4) vm:word-bytes)) -- GitLab