Raymond Toy pushed to branch sparc64-dev at cmucl / cmucl
Commits: 9b3fc084 by Raymond Toy at 2017-02-03T21:12:41-08:00 Turn off scheduler and disable some disassem notes
Don't want the instruction scheduler running while we're still trying to bootstrap.
And disable some disassem notes because they don't currently work. (Probably something simple, but we don't need them at this stage.)
- - - - - e389c543 by Raymond Toy at 2017-02-03T21:49:53-08:00 Fix snarf-error-junk
Use a simple explicit loop to copy the error bytes into the vector. copy-from-system-area is currently broken, and we only need this for disassembly so we cares if it's slower?
This fix allows dumping a trace file from cross-compilation. Tested by dumping a trace file for lispinit.lisp.
- - - - -
1 changed file:
- src/compiler/sparc64/insts.lisp
Changes:
===================================== src/compiler/sparc64/insts.lisp ===================================== --- a/src/compiler/sparc64/insts.lisp +++ b/src/compiler/sparc64/insts.lisp @@ -21,7 +21,7 @@ (use-package "C")
(def-assembler-params - :scheduler-p t + :scheduler-p nil :max-locations 101)
@@ -395,6 +395,7 @@ about function addresses and register values.") 'registers regname dstate) + #+nil (maybe-add-notes value dstate))) ) ; eval-when
@@ -1273,6 +1274,7 @@ about function addresses and register values.") ;; Save the immediate value and the destination register from this ;; sethi instruction. This is used later to print some possible ;; notes about the value loaded by sethi. + #+nil (let* ((word (disassem::sap-ref-int (disassem:dstate-segment-sap dstate) (disassem:dstate-cur-offs dstate) vm:word-bytes @@ -1513,10 +1515,18 @@ about function addresses and register values.") (cond (length-only (values 0 (1+ length) nil nil)) (t - (kernel:copy-from-system-area sap (* sparc:byte-bits (1+ offset)) - vector (* sparc:word-bits - sparc:vector-data-offset) + #+nil + (kernel:copy-from-system-area sap + (* sparc:byte-bits (1+ offset)) + vector + (* sparc:word-bits + sparc:vector-data-offset) (* length sparc:byte-bits)) + (dotimes (k length) + (setf (aref vector k) + (sys:sap-ref-8 sap (+ offset 1 k)))) + #+nil + (format *debug-io* "vector = ~A~%" vector) (collect ((sc-offsets) (lengths)) (lengths 1) ; the length byte
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/7dd0a074a3f9ca65a8b33f76b...