From 0985c235c807af59546c5ffc14c4e52d9e0d377a Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Tue, 27 Mar 2007 00:58:33 +0000 Subject: [PATCH] o Oops. Offset for second word of a complex-double-double-reg-sc-number should be 2, not 1. o Oops. Forgot to implement complex-double-double-stack-sc-number. --- code/debug-int.lisp | 19 +++++++++++++++++-- 1 file changed, 17 insertions(+), 2 deletions(-) diff --git a/code/debug-int.lisp b/code/debug-int.lisp index 40684cfcd..dfe9ab123 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.123 2006/06/30 18:41:22 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.124 2007/03/27 00:58:33 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -3199,7 +3199,7 @@ The result is a symbol or nil if the routine cannot be found." 'double-float)) (kernel:%make-double-double-float (vm:sigcontext-float-register - escaped (+ (c:sc-offset-offset sc-offset) #+sparc 4 #+sparc 1) + escaped (+ (c:sc-offset-offset sc-offset) #+sparc 4 #+sparc 2) 'double-float) (vm:sigcontext-float-register escaped (+ (c:sc-offset-offset sc-offset) #+sparc 6 #-sparc 3) @@ -3241,6 +3241,21 @@ The result is a symbol or nil if the routine cannot be found." vm:word-bytes)) (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) + (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)) + (system:sap-ref-double nfp (* (+ (c:sc-offset-offset sc-offset) + 4) + vm:word-bytes)) + (system:sap-ref-double nfp (* (+ (c:sc-offset-offset sc-offset) + 6) + vm:word-bytes)))))) #+long-float (#.vm:complex-long-stack-sc-number (with-nfp (nfp) -- GitLab