X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fsparc%2Fsap.lisp;h=8255ed6a6763255e39ba087aa7e52b5da3d4f4a5;hb=c0595e94aab165f59454a3a97f06a8bdc22f5bd3;hp=dbd232b8549a6c3eca0e744ce4d6022834c1bb42;hpb=68fd2d2dd6f265669a8957accd8a33e62786a97e;p=sbcl.git

diff --git a/src/compiler/sparc/sap.lisp b/src/compiler/sparc/sap.lisp
index dbd232b..8255ed6 100644
--- a/src/compiler/sparc/sap.lisp
+++ b/src/compiler/sparc/sap.lisp
@@ -1,4 +1,4 @@
-;;;; the Alpha VM definition of SAP operations
+;;;; the SPARC VM definition of SAP operations
 
 ;;;; This software is part of the SBCL system. See the README file for
 ;;;; more information.
@@ -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))