Raymond Toy pushed to branch sparc64-dev at cmucl / cmucl
Commits:
-
d05213db
by Raymond Toy at 2016-12-26T20:58:18-08:00
3 changed files:
- src/compiler/generic/new-genesis.lisp
- src/compiler/generic/vm-macs.lisp
- src/compiler/sparc64/parms.lisp
Changes:
| ... | ... | @@ -2273,7 +2273,8 @@ |
| 2273 | 2273 |
(setf (sap-ref-16 sap 0)
|
| 2274 | 2274 |
(maybe-byte-swap-short
|
| 2275 | 2275 |
(ldb (byte 16 0) value))))))
|
| 2276 |
- (#.c:sparc-fasl-file-implementation
|
|
| 2276 |
+ ((#.c:sparc-fasl-file-implementation
|
|
| 2277 |
+ #.c:sparc64-fasl-file-implementation)
|
|
| 2277 | 2278 |
(let ((inst (maybe-byte-swap (sap-ref-32 sap 0))))
|
| 2278 | 2279 |
(ecase kind
|
| 2279 | 2280 |
(:call
|
| ... | ... | @@ -238,14 +238,15 @@ |
| 238 | 238 |
alpha-fasl-file-implementation
|
| 239 | 239 |
sgi-fasl-file-implementation
|
| 240 | 240 |
ppc-fasl-file-implementation
|
| 241 |
- amd64-fasl-file-implementation))
|
|
| 241 |
+ amd64-fasl-file-implementation
|
|
| 242 |
+ sparc64-fasl-file-implementation))
|
|
| 242 | 243 |
|
| 243 | 244 |
;;; Constants for the different implementations. These are all defined in
|
| 244 | 245 |
;;; one place to make sure they are all unique.
|
| 245 | 246 |
|
| 246 | 247 |
(defparameter fasl-file-implementations
|
| 247 | 248 |
'(nil "Pmax" "Sparc" "RT" "RT/AFPA" "x86" "HPPA"
|
| 248 |
- "Big-endian byte-code" "Little-endian byte-code" "Alpha" "SGI" "PPC" "AMD64"))
|
|
| 249 |
+ "Big-endian byte-code" "Little-endian byte-code" "Alpha" "SGI" "PPC" "AMD64" "SPARC64"))
|
|
| 249 | 250 |
(defconstant pmax-fasl-file-implementation 1)
|
| 250 | 251 |
(defconstant sparc-fasl-file-implementation 2)
|
| 251 | 252 |
(defconstant rt-fasl-file-implementation 3)
|
| ... | ... | @@ -258,6 +259,7 @@ |
| 258 | 259 |
(defconstant sgi-fasl-file-implementation 10)
|
| 259 | 260 |
(defconstant ppc-fasl-file-implementation 11)
|
| 260 | 261 |
(defconstant amd64-fasl-file-implementation 12)
|
| 262 |
+(defconstant sparc64-fasl-file-implementation 13)
|
|
| 261 | 263 |
|
| 262 | 264 |
;;; The maximum number of SCs in any implementation.
|
| 263 | 265 |
(defconstant sc-number-limit 32)
|
| ... | ... | @@ -34,13 +34,10 @@ |
| 34 | 34 |
(setf (backend-name *target-backend*) "SPARC")
|
| 35 | 35 |
#+svr4
|
| 36 | 36 |
(setf (backend-version *target-backend*)
|
| 37 |
- #-sparc-v9 "SPARCstation/Solaris 2.x"
|
|
| 38 |
- #+sparc-v9 "UltraSPARC/Solaris")
|
|
| 39 |
-#-svr4
|
|
| 40 |
-(setf (backend-version *target-backend*) "SPARCstation/Sun 4")
|
|
| 41 |
-(setf (backend-fasl-file-type *target-backend*) "sparcf")
|
|
| 37 |
+ "UltraSPARC/Solaris")
|
|
| 38 |
+(setf (backend-fasl-file-type *target-backend*) "sparc64f")
|
|
| 42 | 39 |
(setf (backend-fasl-file-implementation *target-backend*)
|
| 43 |
- sparc-fasl-file-implementation)
|
|
| 40 |
+ sparc64-fasl-file-implementation)
|
|
| 44 | 41 |
(setf (backend-fasl-file-version *target-backend*) byte-fasl-file-version)
|
| 45 | 42 |
(setf (backend-register-save-penalty *target-backend*) 3)
|
| 46 | 43 |
(setf (backend-byte-order *target-backend*) :big-endian)
|