;;; dwarf-mode.el --- Browser for DWARF information.
-;; Version: 1.0
+;; Version: 1.3
+
+;; Copyright (C) 2012-2016 Free Software Foundation, Inc.
;; This file is not part of GNU Emacs, but is distributed under the
;; same terms:
(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)))
(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)
'action #'dwarf-die-button-action)
;; Helper regexp to match a DIE reference.
-(defconst dwarf-die-reference ": \\(<0x\\([0-9a-f]+\\)>\\)\\s *$")
+(defconst dwarf-die-reference "\\(<0x\\([0-9a-f]+\\)>\\)")
;; Helper regexp to match a `...' indicating that there are hidden
;; 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
(define-derived-mode dwarf-mode special-mode "DWARF"
"Major mode for browsing DWARF output.
(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'."
(buffer (generate-new-buffer (concat "*DWARF for " base-name "*"))))
(pop-to-buffer buffer)
(dwarf-mode)
+ (setq default-directory (file-name-directory file))
(set (make-local-variable 'dwarf-file) file)
(dwarf-do-refresh)))
(provide 'dwarf-mode)
+
+;;; dwarf-mode.el ends here