projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.16.2: TYPE-ERROR for ERROR
[sbcl.git]
/
src
/
code
/
target-sap.lisp
diff --git
a/src/code/target-sap.lisp
b/src/code/target-sap.lisp
index
5a429b6
..
0f937b6
100644
(file)
--- a/
src/code/target-sap.lisp
+++ b/
src/code/target-sap.lisp
@@
-56,7
+56,7
@@
;;; Convert an integer into a SAP.
(defun int-sap (int)
;;; Convert an integer into a SAP.
(defun int-sap (int)
- (declare (type sap-int-type int))
+ (declare (type sap-int int))
(int-sap int))
;;; Return the 8-bit byte at OFFSET bytes from SAP.
(int-sap int))
;;; Return the 8-bit byte at OFFSET bytes from SAP.
@@
-78,7
+78,6
@@
(sap-ref-32 sap offset))
;;; Return the 64-bit quadword at OFFSET bytes from SAP.
(sap-ref-32 sap offset))
;;; Return the 64-bit quadword at OFFSET bytes from SAP.
-#!+alpha
(defun sap-ref-64 (sap offset)
(declare (type system-area-pointer sap)
(fixnum offset))
(defun sap-ref-64 (sap offset)
(declare (type system-area-pointer sap)
(fixnum offset))
@@
-128,7
+127,6
@@
(signed-sap-ref-32 sap offset))
;;; Return the signed 64-bit quadword at OFFSET bytes from SAP.
(signed-sap-ref-32 sap offset))
;;; Return the signed 64-bit quadword at OFFSET bytes from SAP.
-#!+alpha
(defun signed-sap-ref-64 (sap offset)
(declare (type system-area-pointer sap)
(fixnum offset))
(defun signed-sap-ref-64 (sap offset)
(declare (type system-area-pointer sap)
(fixnum offset))
@@
-152,7
+150,6
@@
(type (unsigned-byte 32) new-value))
(setf (sap-ref-32 sap offset) new-value))
(type (unsigned-byte 32) new-value))
(setf (sap-ref-32 sap offset) new-value))
-#!+alpha
(defun %set-sap-ref-64 (sap offset new-value)
(declare (type system-area-pointer sap)
(fixnum offset)
(defun %set-sap-ref-64 (sap offset new-value)
(declare (type system-area-pointer sap)
(fixnum offset)
@@
-177,7
+174,6
@@
(type (signed-byte 32) new-value))
(setf (signed-sap-ref-32 sap offset) new-value))
(type (signed-byte 32) new-value))
(setf (signed-sap-ref-32 sap offset) new-value))
-#!+alpha
(defun %set-signed-sap-ref-64 (sap offset new-value)
(declare (type system-area-pointer sap)
(fixnum offset)
(defun %set-signed-sap-ref-64 (sap offset new-value)
(declare (type system-area-pointer sap)
(fixnum offset)