* bfd/elf32-arm.c (v8): New array.

[deliverable/binutils-gdb.git] / binutils / dwarf-mode.el

diff --git a/binutils/dwarf-mode.el b/binutils/dwarf-mode.el
index 3362bc4419d6fa62483876887ea78636d24ae7a1..4c995ef763b30f4965dac5f2ab5e12270df605ed 100644 (file)
--- a/binutils/dwarf-mode.el
+++ b/binutils/dwarf-mode.el
@@ -1,6 +1,6 @@
 ;;; dwarf-mode.el --- Browser for DWARF information.
 
-;; Version: 1.0
+;; Version: 1.1
 
 ;; This file is not part of GNU Emacs, but is distributed under the
 ;; same terms:
@@ -47,7 +47,7 @@
     (save-excursion
       (apply #'call-process dwarf-objdump-program nil (current-buffer) nil
             "-Wi" (concat "--dwarf-start=0x" die)
-            dwarf-file
+            (expand-file-name dwarf-file)
             (if new-depth (list (concat "--dwarf-depth="
                                         (int-to-string new-depth))))))
     (set-buffer-modified-p nil)))
@@ -56,7 +56,7 @@
   (beginning-of-line)
   (unless (looking-at "^ <\\([0-9]+\\)>")
     (error "Unrecognized line."))
-  (let ((new-depth (1+ (string-to-int (match-string 1)))))
+  (let ((new-depth (1+ (string-to-number (match-string 1)))))
     (dwarf-do-insert-substructure new-depth die)))
 
 (defun dwarf-insert-substructure (arg)
@@ -136,7 +136,7 @@ A prefix argument means expand all children."
       (call-process dwarf-objdump-program
                    nil (current-buffer) nil
                    "-Wi" "--dwarf-depth=1"
-                   dwarf-file))
+                   (expand-file-name dwarf-file)))
     (set-buffer-modified-p nil)))
 
 ;;;###autoload
@@ -152,7 +152,7 @@ A prefix argument means expand all children."
 
 (define-key dwarf-mode-map [(control ?m)] #'dwarf-insert-substructure)
 
-;;:###autoload
+;;;###autoload
 (defun dwarf-browse (file)
   "Invoke `objdump' and put output into a `dwarf-mode' buffer.
 This is the main interface to `dwarf-mode'."
@@ -165,3 +165,5 @@ This is the main interface to `dwarf-mode'."
     (dwarf-do-refresh)))
 
 (provide 'dwarf-mode)
+
+;;; dwarf-mode.el ends here