Skip to content
Snippets Groups Projects
Commit df2a2b96 authored by hallgren's avatar hallgren
Browse files

Alpha support: Added sap-ref-64 stuff and added 64 bit size for sap-int and int-sap.

parent 9fae334d
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/saptran.lisp,v 1.3 1992/12/18 20:40:22 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/saptran.lisp,v 1.4 1994/04/06 16:45:50 hallgren Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -34,8 +34,10 @@ ...@@ -34,8 +34,10 @@
(defknown sap- (system-area-pointer system-area-pointer) (signed-byte 32) (defknown sap- (system-area-pointer system-area-pointer) (signed-byte 32)
(movable flushable)) (movable flushable))
(defknown sap-int (system-area-pointer) (unsigned-byte 32) (movable flushable)) (defknown sap-int (system-area-pointer) (unsigned-byte #-alpha 32 #+alpha 64)
(defknown int-sap ((unsigned-byte 32)) system-area-pointer (movable)) (movable flushable))
(defknown int-sap ((unsigned-byte #-alpha 32 #+alpha 64))
system-area-pointer (movable))
(defknown sap-ref-8 (system-area-pointer index) (unsigned-byte 8) (defknown sap-ref-8 (system-area-pointer index) (unsigned-byte 8)
...@@ -56,6 +58,14 @@ ...@@ -56,6 +58,14 @@
(unsigned-byte 32) (unsigned-byte 32)
()) ())
#+alpha
(defknown sap-ref-64 (system-area-pointer index) (unsigned-byte 64)
(flushable))
#+alpha
(defknown %set-sap-ref-64 (system-area-pointer index (unsigned-byte 64))
(unsigned-byte 64)
())
(defknown signed-sap-ref-8 (system-area-pointer index) (signed-byte 8) (defknown signed-sap-ref-8 (system-area-pointer index) (signed-byte 8)
(flushable)) (flushable))
...@@ -75,6 +85,14 @@ ...@@ -75,6 +85,14 @@
(signed-byte 32) (signed-byte 32)
()) ())
#+alpha
(defknown signed-sap-ref-64 (system-area-pointer index) (signed-byte 64)
(flushable))
#+alpha
(defknown %set-signed-sap-ref-64 (system-area-pointer index (signed-byte 64))
(signed-byte 64)
())
(defknown sap-ref-sap (system-area-pointer index) system-area-pointer (defknown sap-ref-sap (system-area-pointer index) system-area-pointer
(flushable)) (flushable))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment