From df2a2b96712aa0f3b323ca7cc49c66c755f898e1 Mon Sep 17 00:00:00 2001 From: hallgren <hallgren> Date: Wed, 6 Apr 1994 16:45:50 +0000 Subject: [PATCH] Alpha support: Added sap-ref-64 stuff and added 64 bit size for sap-int and int-sap. --- compiler/saptran.lisp | 24 +++++++++++++++++++++--- 1 file changed, 21 insertions(+), 3 deletions(-) diff --git a/compiler/saptran.lisp b/compiler/saptran.lisp index aa4215218..8f129b157 100644 --- a/compiler/saptran.lisp +++ b/compiler/saptran.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (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 @@ (defknown sap- (system-area-pointer system-area-pointer) (signed-byte 32) (movable flushable)) -(defknown sap-int (system-area-pointer) (unsigned-byte 32) (movable flushable)) -(defknown int-sap ((unsigned-byte 32)) system-area-pointer (movable)) +(defknown sap-int (system-area-pointer) (unsigned-byte #-alpha 32 #+alpha 64) + (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) @@ -56,6 +58,14 @@ (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) (flushable)) @@ -75,6 +85,14 @@ (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 (flushable)) -- GitLab