Skip to content
Snippets Groups Projects
Commit 91209ed9 authored by rtoy's avatar rtoy
Browse files

SIGCONTEXT-FLOAT-REGISTER should return a single-float if the FORMAT

is single-float.
parent a94b4291
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/ppc-vm.lisp,v 1.7 2006/11/14 02:41:25 rtoy Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/ppc-vm.lisp,v 1.8 2006/11/14 04:47:49 rtoy Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -251,7 +251,7 @@ ...@@ -251,7 +251,7 @@
(with-alien ((scp (* sigcontext) scp)) (with-alien ((scp (* sigcontext) scp))
(let ((sap (alien-sap (slot (slot scp 'sc-regs) 'fpregs)))) (let ((sap (alien-sap (slot (slot scp 'sc-regs) 'fpregs))))
(ecase format (ecase format
(single-float (float (system:sap-ref-double sap (* index 2 ppc:word-bytes)) 0.0d0)) (single-float (float (system:sap-ref-double sap (* index 2 ppc:word-bytes)) 0.0f0))
(double-float (system:sap-ref-double sap (* index 2 ppc:word-bytes))))))) (double-float (system:sap-ref-double sap (* index 2 ppc:word-bytes)))))))
;;; ;;;
(defun %set-sigcontext-float-register (scp index format new-value) (defun %set-sigcontext-float-register (scp index format new-value)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment