Skip to content
Snippets Groups Projects
Commit 795f987a authored by dtc's avatar dtc
Browse files

Add long-float support to sigcontext-float-register.

parent 97829e46
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sparc-vm.lisp,v 1.17 1994/10/31 04:11:27 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sparc-vm.lisp,v 1.18 1998/03/21 23:22:27 dtc Rel $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -201,7 +201,9 @@ ...@@ -201,7 +201,9 @@
(let ((sap (alien-sap (slot (slot scp 'sc-g1) 'fpregs)))) (let ((sap (alien-sap (slot (slot scp 'sc-g1) 'fpregs))))
(ecase format (ecase format
(single-float (system:sap-ref-single sap (* index vm:word-bytes))) (single-float (system:sap-ref-single sap (* index vm:word-bytes)))
(double-float (system:sap-ref-double sap (* index vm:word-bytes))))))) (double-float (system:sap-ref-double sap (* index vm:word-bytes)))
#+long-float
(long-float (system:sap-ref-long sap (* index vm:word-bytes)))))))
;;; ;;;
(defun %set-sigcontext-float-register (scp index format new-value) (defun %set-sigcontext-float-register (scp index format new-value)
(declare (type (alien (* sigcontext)) scp)) (declare (type (alien (* sigcontext)) scp))
...@@ -211,7 +213,10 @@ ...@@ -211,7 +213,10 @@
(single-float (single-float
(setf (sap-ref-single sap (* index vm:word-bytes)) new-value)) (setf (sap-ref-single sap (* index vm:word-bytes)) new-value))
(double-float (double-float
(setf (sap-ref-double sap (* index vm:word-bytes)) new-value)))))) (setf (sap-ref-double sap (* index vm:word-bytes)) new-value))
#+long-float
(long-float
(setf (sap-ref-long sap (* index vm:word-bytes)) new-value))))))
;;; ;;;
(defsetf sigcontext-float-register %set-sigcontext-float-register) (defsetf sigcontext-float-register %set-sigcontext-float-register)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment