X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-sap.lisp;h=0f937b6f30035e69e503c3cb100848c2539a851d;hb=6ab9c60f1c53cc7cc912d644658bc23453a82ac4;hp=b63c33d37a1f1a7ce0fa21b26f3bd4dbc2c59160;hpb=4fc9d21ae1d8a6a2f8ff70f589d5da103203de13;p=sbcl.git

diff --git a/src/code/target-sap.lisp b/src/code/target-sap.lisp
index b63c33d..0f937b6 100644
--- a/src/code/target-sap.lisp
+++ b/src/code/target-sap.lisp
@@ -10,8 +10,6 @@
 ;;;; files for more information.
 
 (in-package "SB!KERNEL")
-
-;;;; primitive SAP operations
 
 ;;; Return T iff the SAP X points to a smaller address then the SAP Y.
 (defun sap< (x y)
@@ -58,7 +56,7 @@
 
 ;;; 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.
@@ -80,7 +78,6 @@
   (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))
@@ -130,7 +127,6 @@
   (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))
@@ -154,7 +150,6 @@
 	   (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)
@@ -179,7 +174,6 @@
 	   (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)
@@ -209,25 +203,3 @@
 	   (fixnum offset)
 	   (type long-float new-value))
   (setf (sap-ref-long sap offset) new-value))
-
-;;;; system memory allocation
-
-(sb!alien:def-alien-routine ("os_allocate" allocate-system-memory)
-			    system-area-pointer
-  (bytes sb!c-call:unsigned-long))
-
-(sb!alien:def-alien-routine ("os_allocate_at" allocate-system-memory-at)
-			    system-area-pointer
-  (address system-area-pointer)
-  (bytes sb!c-call:unsigned-long))
-
-(sb!alien:def-alien-routine ("os_reallocate" reallocate-system-memory)
-			    system-area-pointer
-  (old system-area-pointer)
-  (old-size sb!c-call:unsigned-long)
-  (new-size sb!c-call:unsigned-long))
-
-(sb!alien:def-alien-routine ("os_deallocate" deallocate-system-memory)
-			    sb!c-call:void
-  (addr system-area-pointer)
-  (bytes sb!c-call:unsigned-long))