Raymond Toy pushed to branch sparc64-dev at cmucl / cmucl
Commits:
-
9b3fc084
by Raymond Toy at 2017-02-03T21:12:41-08:00
-
e389c543
by Raymond Toy at 2017-02-03T21:49:53-08:00
1 changed file:
Changes:
... | ... | @@ -21,7 +21,7 @@ |
21 | 21 |
(use-package "C")
|
22 | 22 |
|
23 | 23 |
(def-assembler-params
|
24 |
- :scheduler-p t
|
|
24 |
+ :scheduler-p nil
|
|
25 | 25 |
:max-locations 101)
|
26 | 26 |
|
27 | 27 |
|
... | ... | @@ -395,6 +395,7 @@ about function addresses and register values.") |
395 | 395 |
'registers
|
396 | 396 |
regname
|
397 | 397 |
dstate)
|
398 |
+ #+nil
|
|
398 | 399 |
(maybe-add-notes value dstate)))
|
399 | 400 |
) ; eval-when
|
400 | 401 |
|
... | ... | @@ -1273,6 +1274,7 @@ about function addresses and register values.") |
1273 | 1274 |
;; Save the immediate value and the destination register from this
|
1274 | 1275 |
;; sethi instruction. This is used later to print some possible
|
1275 | 1276 |
;; notes about the value loaded by sethi.
|
1277 |
+ #+nil
|
|
1276 | 1278 |
(let* ((word (disassem::sap-ref-int (disassem:dstate-segment-sap dstate)
|
1277 | 1279 |
(disassem:dstate-cur-offs dstate)
|
1278 | 1280 |
vm:word-bytes
|
... | ... | @@ -1513,10 +1515,18 @@ about function addresses and register values.") |
1513 | 1515 |
(cond (length-only
|
1514 | 1516 |
(values 0 (1+ length) nil nil))
|
1515 | 1517 |
(t
|
1516 |
- (kernel:copy-from-system-area sap (* sparc:byte-bits (1+ offset))
|
|
1517 |
- vector (* sparc:word-bits
|
|
1518 |
- sparc:vector-data-offset)
|
|
1518 |
+ #+nil
|
|
1519 |
+ (kernel:copy-from-system-area sap
|
|
1520 |
+ (* sparc:byte-bits (1+ offset))
|
|
1521 |
+ vector
|
|
1522 |
+ (* sparc:word-bits
|
|
1523 |
+ sparc:vector-data-offset)
|
|
1519 | 1524 |
(* length sparc:byte-bits))
|
1525 |
+ (dotimes (k length)
|
|
1526 |
+ (setf (aref vector k)
|
|
1527 |
+ (sys:sap-ref-8 sap (+ offset 1 k))))
|
|
1528 |
+ #+nil
|
|
1529 |
+ (format *debug-io* "vector = ~A~%" vector)
|
|
1520 | 1530 |
(collect ((sc-offsets)
|
1521 | 1531 |
(lengths))
|
1522 | 1532 |
(lengths 1) ; the length byte
|