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