[Git][cmucl/cmucl][sparc64-dev] 2 commits: Turn off scheduler and disable some disassem notes

[Raymond Toy]

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/7dd0a074a3f9ca65a8b33f76bb925a61f9d7ae7f...e389c543fd95934887edab5a840b0f178b027c54
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20170204/2c695c55/attachment-0001.html>