/[cmucl]/src/code/sparc-vm.lisp
ViewVC logotype

Diff of /src/code/sparc-vm.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.17 by ram, Mon Oct 31 04:11:27 1994 UTC revision 1.17.2.1 by pw, Tue Jun 23 11:22:30 1998 UTC
# Line 201  Line 201 
201      (let ((sap (alien-sap (slot (slot scp 'sc-g1) 'fpregs))))      (let ((sap (alien-sap (slot (slot scp 'sc-g1) 'fpregs))))
202        (ecase format        (ecase format
203          (single-float (system:sap-ref-single sap (* index vm:word-bytes)))          (single-float (system:sap-ref-single sap (* index vm:word-bytes)))
204          (double-float (system:sap-ref-double sap (* index vm:word-bytes)))))))          (double-float (system:sap-ref-double sap (* index vm:word-bytes)))
205            #+long-float
206            (long-float (system:sap-ref-long sap (* index vm:word-bytes)))))))
207  ;;;  ;;;
208  (defun %set-sigcontext-float-register (scp index format new-value)  (defun %set-sigcontext-float-register (scp index format new-value)
209    (declare (type (alien (* sigcontext)) scp))    (declare (type (alien (* sigcontext)) scp))
# Line 211  Line 213 
213          (single-float          (single-float
214           (setf (sap-ref-single sap (* index vm:word-bytes)) new-value))           (setf (sap-ref-single sap (* index vm:word-bytes)) new-value))
215          (double-float          (double-float
216           (setf (sap-ref-double sap (* index vm:word-bytes)) new-value))))))           (setf (sap-ref-double sap (* index vm:word-bytes)) new-value))
217            #+long-float
218            (long-float
219             (setf (sap-ref-long sap (* index vm:word-bytes)) new-value))))))
220  ;;;  ;;;
221  (defsetf sigcontext-float-register %set-sigcontext-float-register)  (defsetf sigcontext-float-register %set-sigcontext-float-register)
222    

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.17.2.1

  ViewVC Help
Powered by ViewVC 1.1.5