/[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.19.22.1 by rtoy, Mon Nov 2 14:29:46 2009 UTC revision 1.23 by rtoy, Mon Apr 19 02:18:04 2010 UTC
# Line 12  Line 12 
12  ;;; This file holds the support for System Area Pointers (saps).  ;;; This file holds the support for System Area Pointers (saps).
13  ;;;  ;;;
14  (in-package "SYSTEM")  (in-package "SYSTEM")
15    (intl:textdomain "cmucl")
16    
17  (export '(system-area-pointer sap-ref-8 sap-ref-16 sap-ref-32 sap-ref-sap  (export '(system-area-pointer sap-ref-8 sap-ref-16 sap-ref-32 sap-ref-sap
18            signed-sap-ref-8 signed-sap-ref-16 signed-sap-ref-32            signed-sap-ref-8 signed-sap-ref-16 signed-sap-ref-32
# Line 77  Line 78 
78    (declare (type system-area-pointer sap))    (declare (type system-area-pointer sap))
79    (sap-int sap))    (sap-int sap))
80    
 #-amd64  
81  (defun int-sap (int)  (defun int-sap (int)
82    "Converts an integer into a System Area Pointer."    "Converts an integer into a System Area Pointer."
83    (declare (type (unsigned-byte #-alpha #.vm:word-bits #+alpha 64) int))    (declare (type (unsigned-byte #-alpha #.vm:word-bits #+alpha 64) int))
84    (int-sap int))    (int-sap int))
 #+amd64  
 (defun int-sap (int)  
   "Converts an integer into a System Area Pointer."  
   (declare (type (unsigned-byte 64) int))  
   (int-sap int))  
85    
86  (defun sap-ref-8 (sap offset)  (defun sap-ref-8 (sap offset)
87    "Returns the 8-bit byte at OFFSET bytes from SAP."    "Returns the 8-bit byte at OFFSET bytes from SAP."
# Line 132  Line 127 
127    
128  #+(or x86 long-float)  #+(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."    _N"Returns the long-float at OFFSET bytes from SAP."
131    (declare (type system-area-pointer sap)    (declare (type system-area-pointer sap)
132             (fixnum offset))             (fixnum offset))
133    (sap-ref-long sap offset))    (sap-ref-long sap offset))

Legend:
Removed from v.1.19.22.1  
changed lines
  Added in v.1.23

  ViewVC Help
Powered by ViewVC 1.1.5