/[cmucl]/src/code/sap.lisp
ViewVC logotype

Diff of /src/code/sap.lisp

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

revision 1.15 by dtc, Wed Mar 4 14:56:34 1998 UTC revision 1.16 by dtc, Sat Mar 21 08:12:04 1998 UTC
# Line 125  Line 125 
125             (fixnum offset))             (fixnum offset))
126    (sap-ref-double sap offset))    (sap-ref-double sap offset))
127    
128  #+x86  #+(or x86 long-float)
129  (defun sap-ref-long (sap offset)  (defun sap-ref-long (sap offset)
130    "Returns the long-float at OFFSET bytes from SAP."    "Returns the long-float at OFFSET bytes from SAP."
131    (declare (type system-area-pointer sap)    (declare (type system-area-pointer sap)
# Line 224  Line 224 
224             (type double-float new-value))             (type double-float new-value))
225    (setf (sap-ref-double sap offset) new-value))    (setf (sap-ref-double sap offset) new-value))
226    
227    #+long-float
228    (defun %set-sap-ref-long (sap offset new-value)
229      (declare (type system-area-pointer sap)
230               (fixnum offset)
231               (type long-float new-value))
232      (setf (sap-ref-long sap offset) new-value))
233    
234    
235    
236  ;;;; System memory allocation.  ;;;; System memory allocation.

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

  ViewVC Help
Powered by ViewVC 1.1.5