/[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.9 by wlott, Mon Mar 2 02:23:17 1992 UTC revision 1.10 by hallgren, Wed Apr 6 17:05:56 1994 UTC
# Line 17  Line 17 
17    
18  (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
19            signed-sap-ref-8 signed-sap-ref-16 signed-sap-ref-32            signed-sap-ref-8 signed-sap-ref-16 signed-sap-ref-32
20              #+alpha sap-ref-64 #+alpha signed-sap-ref-64
21            sap+ sap- sap< sap<= sap= sap>= sap>            sap+ sap- sap< sap<= sap= sap>= sap>
22            allocate-system-memory allocate-system-memory-at            allocate-system-memory allocate-system-memory-at
23            reallocate-system-memory deallocate-system-memory))            reallocate-system-memory deallocate-system-memory))
# Line 25  Line 26 
26  (export '(%set-sap-ref-sap %set-sap-ref-single %set-sap-ref-double  (export '(%set-sap-ref-sap %set-sap-ref-single %set-sap-ref-double
27            %set-sap-ref-8 %set-signed-sap-ref-8            %set-sap-ref-8 %set-signed-sap-ref-8
28            %set-sap-ref-16 %set-signed-sap-ref-16            %set-sap-ref-16 %set-signed-sap-ref-16
29            %set-sap-ref-32 %set-signed-sap-ref-32))            %set-sap-ref-32 %set-signed-sap-ref-32
30              #+alpha %set-sap-ref-64 #+alpha %set-signed-sap-ref-64))
31  (in-package "SYSTEM")  (in-package "SYSTEM")
32    
33  (use-package "KERNEL")  (use-package "KERNEL")
# Line 79  Line 81 
81    
82  (defun int-sap (int)  (defun int-sap (int)
83    "Converts an integer into a System Area Pointer."    "Converts an integer into a System Area Pointer."
84    (declare (type (unsigned-byte #.vm:word-bits) int))    (declare (type (unsigned-byte #-alpha #.vm:word-bits #+alpha 64) int))
85    (int-sap int))    (int-sap int))
86    
87  (defun sap-ref-8 (sap offset)  (defun sap-ref-8 (sap offset)
# Line 100  Line 102 
102             (type index offset))             (type index offset))
103    (sap-ref-32 sap offset))    (sap-ref-32 sap offset))
104    
105    #+alpha
106    (defun sap-ref-64 (sap offset)
107      "Returns the 64-bit quadword at OFFSET bytes from SAP."
108      (declare (type system-area-pointer sap)
109               (type index offset))
110      (sap-ref-64 sap offset))
111    
112  (defun sap-ref-sap (sap offset)  (defun sap-ref-sap (sap offset)
113    "Returns the 32-bit system-area-pointer at OFFSET bytes from SAP."    "Returns the 32-bit system-area-pointer at OFFSET bytes from SAP."
114    (declare (type system-area-pointer sap)    (declare (type system-area-pointer sap)
# Line 136  Line 145 
145             (type index offset))             (type index offset))
146    (signed-sap-ref-32 sap offset))    (signed-sap-ref-32 sap offset))
147    
148    #+alpha
149    (defun signed-sap-ref-64 (sap offset)
150      "Returns the signed 64-bit quadword at OFFSET bytes from SAP."
151      (declare (type system-area-pointer sap)
152               (type index offset))
153      (signed-sap-ref-64 sap offset))
154    
155  (defun %set-sap-ref-8 (sap offset new-value)  (defun %set-sap-ref-8 (sap offset new-value)
156    (declare (type system-area-pointer sap)    (declare (type system-area-pointer sap)
157             (type index offset)             (type index offset)
# Line 154  Line 170 
170             (type (unsigned-byte 32) new-value))             (type (unsigned-byte 32) new-value))
171    (setf (sap-ref-32 sap offset) new-value))    (setf (sap-ref-32 sap offset) new-value))
172    
173    #+alpha
174    (defun %set-sap-ref-64 (sap offset new-value)
175      (declare (type system-area-pointer sap)
176               (type index offset)
177               (type (unsigned-byte 64) new-value))
178      (setf (sap-ref-64 sap offset) new-value))
179    
180  (defun %set-signed-sap-ref-8 (sap offset new-value)  (defun %set-signed-sap-ref-8 (sap offset new-value)
181    (declare (type system-area-pointer sap)    (declare (type system-area-pointer sap)
182             (type index offset)             (type index offset)
# Line 172  Line 195 
195             (type (signed-byte 32) new-value))             (type (signed-byte 32) new-value))
196    (setf (signed-sap-ref-32 sap offset) new-value))    (setf (signed-sap-ref-32 sap offset) new-value))
197    
198    #+alpha
199    (defun %set-signed-sap-ref-64 (sap offset new-value)
200      (declare (type system-area-pointer sap)
201               (type index offset)
202               (type (signed-byte 64) new-value))
203      (setf (signed-sap-ref-64 sap offset) new-value))
204    
205  (defun %set-sap-ref-sap (sap offset new-value)  (defun %set-sap-ref-sap (sap offset new-value)
206    (declare (type system-area-pointer sap new-value)    (declare (type system-area-pointer sap new-value)
207             (type index offset))             (type index offset))

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

  ViewVC Help
Powered by ViewVC 1.1.5