From 59ab5d6240ea13969d3737139d43a0e7dd643fa2 Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Wed, 15 Sep 1999 15:11:30 +0000
Subject: [PATCH] Enable the SAP-ref-64 defknowns on all ports.

Enable the sap-ref/sap+ optimisation for 64 bit accessors.
---
 compiler/saptran.lisp | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/compiler/saptran.lisp b/compiler/saptran.lisp
index 4859fbaa2..5520d0c81 100644
--- a/compiler/saptran.lisp
+++ b/compiler/saptran.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/saptran.lisp,v 1.10 1998/03/21 08:08:33 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/saptran.lisp,v 1.11 1999/09/15 15:11:30 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -56,10 +56,8 @@
   (unsigned-byte 32)
   ())
 
-#+alpha
 (defknown sap-ref-64 (system-area-pointer fixnum) (unsigned-byte 64)
   (flushable))
-#+alpha
 (defknown %set-sap-ref-64 (system-area-pointer fixnum (unsigned-byte 64))
   (unsigned-byte 64)
   ())
@@ -83,10 +81,8 @@
   (signed-byte 32)
   ())
 
-#+alpha
 (defknown signed-sap-ref-64 (system-area-pointer fixnum) (signed-byte 64)
   (flushable))
-#+alpha
 (defknown %set-signed-sap-ref-64 (system-area-pointer fixnum (signed-byte 64))
   (signed-byte 64)
   ())
@@ -143,6 +139,8 @@
 	       signed-sap-ref-16 %set-signed-sap-ref-16
 	       sap-ref-32 %set-sap-ref-32
 	       signed-sap-ref-32 %set-signed-sap-ref-32
+	       sap-ref-64 %set-sap-ref-64
+	       signed-sap-ref-64 %set-signed-sap-ref-64
 	       sap-ref-sap %set-sap-ref-sap
 	       sap-ref-single %set-sap-ref-single
 	       sap-ref-double %set-sap-ref-double
-- 
GitLab