Changeset 14765

Timestamp:

May 1, 2011, 5:14:20 AM (14 years ago)

Author:

Gary Byers

Message:

Print the relative PC every few instructions.

File:

• trunk/source/compiler/ARM/arm-disassemble.lisp (modified) (3 diffs)

trunk/source/compiler/ARM/arm-disassemble.lisp

@@ -384 +384 @@
   (let* ((adi-vector (process-adi-vector (make-adi-vector (uvref xfunction 1))))
          (functionp (typep xfunction 'function)) ;not cross-compiling
-         (previous-source-note nil))
+         (previous-source-note nil)
+         (pc-counter 0))
     (labels ((format-spname (name stream)
                (let* ((string (string name))
@@ -419 +420 @@
                              (string-sans-most-whitespace source-text 100)
                              "#<no source text>")))
-                (format stream "~&~%;;; ~A" text)))))
+                (format stream "~&~%;;; ~A" text)
+                (setq pc-counter 3)))))
         (let* ((info (svref adi-vector i))
                (labeled (adi-labeled info)))
           (when labeled
+            (setq pc-counter 0)
             (if (eq t labeled)
               (format stream "~&L~d~&" (ash i 2))
@@ -486 +489 @@
                 (dolist (op (adi-operands info))
                   (format-operand op))
-                (write-char #\) stream)))))))))
+                (write-char #\) stream)
+                (when (eql (incf pc-counter) 4)
+                  (setq pc-counter 0)
+                  (format stream "~40t;[~d]" (* i 4)))))))))))