From 9cc049e3ccf2650dbb867b6f651626cf67a5a993 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Mon, 27 Oct 2003 09:35:17 +0000 Subject: [PATCH] 0.8.5.9: SPARC support for 64-bit SAPs, needed for sb-posix --- src/compiler/sparc/sap.lisp | 11 ----------- version.lisp-expr | 2 +- 2 files changed, 1 insertion(+), 12 deletions(-) diff --git a/src/compiler/sparc/sap.lisp b/src/compiler/sparc/sap.lisp index dbd232b85..3811a94b3 100644 --- a/src/compiler/sparc/sap.lisp +++ b/src/compiler/sparc/sap.lisp @@ -250,13 +250,6 @@ unsigned-reg unsigned-num :long nil) (def-system-ref-and-set signed-sap-ref-32 %set-signed-sap-ref-32 signed-reg signed-num :long t) - ;; FIXME - #+ignore - (def-system-ref-and-set sap-ref-64 %set-sap-ref-64 - unsigned-reg unsigned-num :quad nil) - #+ignore - (def-system-ref-and-set signed-sap-ref-64 %set-signed-sap-ref-64 - signed-reg signed-num :quad t) (def-system-ref-and-set sap-ref-sap %set-sap-ref-sap sap-reg system-area-pointer :long) (def-system-ref-and-set sap-ref-single %set-sap-ref-single @@ -281,23 +274,19 @@ (- (* vector-data-offset n-word-bytes) other-pointer-lowtag)))) ;;; Transforms for 64-bit SAP accessors. -#+ignore (deftransform sap-ref-64 ((sap offset) (* *)) '(logior (ash (sap-ref-32 sap offset) 32) (sap-ref-32 sap (+ offset 4)))) -#+ignore (deftransform signed-sap-ref-64 ((sap offset) (* *)) '(logior (ash (signed-sap-ref-32 sap offset) 32) (sap-ref-32 sap (+ 4 offset)))) -#+ignore (deftransform %set-sap-ref-64 ((sap offset value) (* * *)) '(progn (%set-sap-ref-32 sap offset (ash value -32)) (%set-sap-ref-32 sap (+ offset 4) (logand value #xffffffff)))) -#+ignore (deftransform %set-signed-sap-ref-64 ((sap offset value) (* * *)) '(progn (%set-signed-sap-ref-32 sap offset (ash value -32)) diff --git a/version.lisp-expr b/version.lisp-expr index 7b7318583..5bc99f08e 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.8.5.8" +"0.8.5.9" -- 2.11.4.GIT