projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.7.16:
[sbcl.git]
/
src
/
compiler
/
sparc
/
sap.lisp
diff --git
a/src/compiler/sparc/sap.lisp
b/src/compiler/sparc/sap.lisp
index
dbd232b
..
8255ed6
100644
(file)
--- 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.
;;;; 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)
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
(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))))
\f
;;; Transforms for 64-bit SAP accessors.
(- (* vector-data-offset n-word-bytes) other-pointer-lowtag))))
\f
;;; 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))))
(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))))
(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))))
(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))
(deftransform %set-signed-sap-ref-64 ((sap offset value) (* * *))
'(progn
(%set-signed-sap-ref-32 sap offset (ash value -32))