Skip to content
Snippets Groups Projects
Commit c926a09c authored by wlott's avatar wlott
Browse files

Fixed %set-sap-ref-single to actually call single-float-bits before trying

to use (setf signed-sap-ref-32).
parent 5e54e23d
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/sap.lisp,v 1.12 1992/03/10 09:22:49 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/sap.lisp,v 1.13 1992/03/10 12:23:22 wlott Exp $
;;; ;;;
;;; This file contains the IBM RT VM definition of SAP operations. ;;; This file contains the IBM RT VM definition of SAP operations.
;;; ;;;
...@@ -373,7 +373,8 @@ ...@@ -373,7 +373,8 @@
(def-source-transform %set-sap-ref-single (sap offset value) (def-source-transform %set-sap-ref-single (sap offset value)
(once-only ((sap sap) (offset offset) (value value)) (once-only ((sap sap) (offset offset) (value value))
`(progn `(progn
(setf (signed-sap-ref-32 ,sap ,offset) ,value) (setf (signed-sap-ref-32 ,sap ,offset)
(single-float-bits ,value))
,value))) ,value)))
(def-source-transform sap-ref-double (sap offset) (def-source-transform sap-ref-double (sap offset)
......
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