Raymond Toy pushed to branch sparc64-dev at cmucl / cmucl
Commits:
-
587df5a1
by Raymond Toy at 2018-01-03T21:09:32-08:00
-
bf42cefc
by Raymond Toy at 2018-01-04T21:53:45-08:00
-
5fa489df
by Raymond Toy at 2018-01-04T21:55:08-08:00
3 changed files:
Changes:
| ... | ... | @@ -130,6 +130,7 @@ |
| 130 | 130 |
,@(when restore-fixnum-mask
|
| 131 | 131 |
`((:temporary (:sc non-descriptor-reg) temp)))
|
| 132 | 132 |
(:generator 2
|
| 133 |
+ (emit-not-implemented)
|
|
| 133 | 134 |
,(if arg-swap
|
| 134 | 135 |
`(inst ,op ,(if restore-fixnum-mask 'temp 'r) y x)
|
| 135 | 136 |
`(inst ,op ,(if restore-fixnum-mask 'temp 'r) x y))
|
| ... | ... | @@ -142,6 +143,7 @@ |
| 142 | 143 |
,@(when restore-fixnum-mask
|
| 143 | 144 |
`((:temporary (:sc non-descriptor-reg) temp)))
|
| 144 | 145 |
(:generator 1
|
| 146 |
+ (emit-not-implemented)
|
|
| 145 | 147 |
(inst ,op ,(if restore-fixnum-mask 'temp 'r) x (fixnumize y))
|
| 146 | 148 |
,@(when restore-fixnum-mask
|
| 147 | 149 |
`((inst andn r temp fixnum-tag-mask)))))))
|
| ... | ... | @@ -149,6 +151,7 @@ |
| 149 | 151 |
fast-signed-binop)
|
| 150 | 152 |
(:translate ,translate)
|
| 151 | 153 |
(:generator ,(1+ untagged-penalty)
|
| 154 |
+ (emit-not-implemented)
|
|
| 152 | 155 |
,(if arg-swap
|
| 153 | 156 |
`(inst ,op r y x)
|
| 154 | 157 |
`(inst ,op r x y))))
|
| ... | ... | @@ -157,11 +160,13 @@ |
| 157 | 160 |
fast-signed-binop-c)
|
| 158 | 161 |
(:translate ,translate)
|
| 159 | 162 |
(:generator ,untagged-penalty
|
| 163 |
+ (emit-not-implemented)
|
|
| 160 | 164 |
(inst ,op r x y)))))
|
| 161 | 165 |
(define-vop (,(symbolicate "FAST-" translate "/UNSIGNED=>UNSIGNED")
|
| 162 | 166 |
fast-unsigned-binop)
|
| 163 | 167 |
(:translate ,translate)
|
| 164 | 168 |
(:generator ,(1+ untagged-penalty)
|
| 169 |
+ (emit-not-implemented)
|
|
| 165 | 170 |
,(if arg-swap
|
| 166 | 171 |
`(inst ,op r y x)
|
| 167 | 172 |
`(inst ,op r x y))))
|
| ... | ... | @@ -170,6 +175,7 @@ |
| 170 | 175 |
fast-unsigned-binop-c)
|
| 171 | 176 |
(:translate ,translate)
|
| 172 | 177 |
(:generator ,untagged-penalty
|
| 178 |
+ (emit-not-implemented)
|
|
| 173 | 179 |
(inst ,op r x y)))))))
|
| 174 | 180 |
|
| 175 | 181 |
); eval-when
|
| ... | ... | @@ -211,6 +217,7 @@ |
| 211 | 217 |
(:constant (or (and (unsigned-byte 12) (not (integer 0 0)))
|
| 212 | 218 |
(integer #xfffff000 #xffffffff))))
|
| 213 | 219 |
(:generator 2 ; Needs to be low to give this vop a chance.
|
| 220 |
+ (emit-not-implemented)
|
|
| 214 | 221 |
(cond ((= y #xffffffff)
|
| 215 | 222 |
(move r x))
|
| 216 | 223 |
((typep y '(unsigned-byte 13))
|
| ... | ... | @@ -231,6 +238,7 @@ |
| 231 | 238 |
(:note _N"inline 32-bit abs")
|
| 232 | 239 |
(:temporary (:scs (signed-reg)) y)
|
| 233 | 240 |
(:generator 1
|
| 241 |
+ (emit-not-implemented)
|
|
| 234 | 242 |
;; From Hacker's Delight
|
| 235 | 243 |
;;
|
| 236 | 244 |
;; abs(x) = (x ^ y) - y, where y = x >> 31 (signed shift)
|
| ... | ... | @@ -2346,12 +2346,16 @@ about function addresses and register values.") |
| 2346 | 2346 |
(emit-compute-inst segment vop dst src label temp
|
| 2347 | 2347 |
#'(lambda (label posn delta-if-after)
|
| 2348 | 2348 |
(when c::*compiler-trace-output*
|
| 2349 |
- (format c::*compiler-trace-output* "COMPUTE-CODE-FROM=LRA~%")
|
|
| 2350 |
- (format c::*compiler-trace-output* "label posn delta-if-after = ~A ~A ~A~%"
|
|
| 2349 |
+ (format c::*compiler-trace-output*
|
|
| 2350 |
+ "COMPUTE-CODE-FROM=FN~%")
|
|
| 2351 |
+ (format c::*compiler-trace-output*
|
|
| 2352 |
+ "label posn delta-if-after = ~A ~A ~A~%"
|
|
| 2351 | 2353 |
label posn delta-if-after)
|
| 2352 |
- (format c::*compiler-trace-output* "label-position = ~A~%"
|
|
| 2354 |
+ (format c::*compiler-trace-output*
|
|
| 2355 |
+ "label-position = ~A~%"
|
|
| 2353 | 2356 |
(label-position label posn delta-if-after))
|
| 2354 |
- (format c::*compiler-trace-output* "header-len = ~A~%"
|
|
| 2357 |
+ (format c::*compiler-trace-output*
|
|
| 2358 |
+ "header-len = ~A~%"
|
|
| 2355 | 2359 |
(component-header-length))
|
| 2356 | 2360 |
(format c::*compiler-trace-output*
|
| 2357 | 2361 |
"Final offset = ~A~%"
|
| ... | ... | @@ -2413,12 +2417,16 @@ about function addresses and register values.") |
| 2413 | 2417 |
(emit-compute-inst segment vop dst src label temp
|
| 2414 | 2418 |
#'(lambda (label posn delta-if-after)
|
| 2415 | 2419 |
(when c::*compiler-trace-output*
|
| 2416 |
- (format c::*compiler-trace-output* "COMPUTE-LRA-FROM-CODE~%")
|
|
| 2417 |
- (format c::*compiler-trace-output* "label posn delta-if-after = ~A ~A ~A~%"
|
|
| 2420 |
+ (format c::*compiler-trace-output*
|
|
| 2421 |
+ "COMPUTE-LRA-FROM-CODE~%")
|
|
| 2422 |
+ (format c::*compiler-trace-output*
|
|
| 2423 |
+ "label posn delta-if-after = ~A ~A ~A~%"
|
|
| 2418 | 2424 |
label posn delta-if-after)
|
| 2419 |
- (format c::*compiler-trace-output* "label-position = ~A~%"
|
|
| 2425 |
+ (format c::*compiler-trace-output*
|
|
| 2426 |
+ "label-position = ~A~%"
|
|
| 2420 | 2427 |
(label-position label posn delta-if-after))
|
| 2421 |
- (format c::*compiler-trace-output* "header-len = ~A~%"
|
|
| 2428 |
+ (format c::*compiler-trace-output*
|
|
| 2429 |
+ "header-len = ~A~%"
|
|
| 2422 | 2430 |
(component-header-length))
|
| 2423 | 2431 |
(format c::*compiler-trace-output*
|
| 2424 | 2432 |
"Final offset = ~A~%"
|
| ... | ... | @@ -119,7 +119,7 @@ |
| 119 | 119 |
|
| 120 | 120 |
(comf "target:code/globals")
|
| 121 | 121 |
(comf "target:code/kernel")
|
| 122 |
-(comf "target:code/lispinit")
|
|
| 122 |
+(comf "target:code/lispinit" :trace-file t)
|
|
| 123 | 123 |
(comf "target:pcl/walk")
|
| 124 | 124 |
(comf "target:code/fwrappers")
|
| 125 | 125 |
(comf "target:code/fdefinition")
|
| ... | ... | @@ -325,7 +325,7 @@ |
| 325 | 325 |
(let ((c:*compile-time-define-macros* nil))
|
| 326 | 326 |
(comf "target:code/defstruct")
|
| 327 | 327 |
(comf "target:code/defmacro" :byte-compile *byte-compile*)
|
| 328 |
- (comf "target:compiler/globaldb")
|
|
| 328 |
+ (comf "target:compiler/globaldb" :trace-file t)
|
|
| 329 | 329 |
(comf "target:code/macros")
|
| 330 | 330 |
#-no-runtime (comf "target:code/macros" :byte-compile t))
|
| 331 | 331 |
|