procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(gdb-goto-info): Require 'info.

Browse source 
(gdb-info-breakpoints-custom): Revert previous change.
(gdb-view-assembler): Update assembler if necessary.
(gdb-frame-handler): Parse correctly for gdb-current-frame.
(gdb-display-source-buffer): Update properly when both source and
assembler are visible.
This commit is contained in:
Nick Roberts 2004-04-17 23:14:17 +00:00
parent 677eb6a5cf
commit b65a2dbf33
1 changed files with 10 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
lisp/progmodes/gdb-ui.el
View file

@ -222,6 +222,7 @@ speedbar."
(defun gdb-goto-info ()
(interactive)
(select-frame (make-frame))
(require 'info)
(Info-goto-node "(emacs)GDB Graphical Interface"))
(defconst gdb-var-create-regexp
@ -688,9 +689,9 @@ This filter may simply queue output for a later time."
(string-to-int (match-string 2 args))))
(setq gdb-current-address (match-string 3 args))
(setq gdb-view-source t)
;; cover for auto-display output which comes *before*
;; stopped annotation
(if (eq (gdb-get-output-sink) 'inferior) (gdb-set-output-sink 'user)))
;; cover for auto-display output which comes *before*
;; stopped annotation
(if (eq (gdb-get-output-sink) 'inferior) (gdb-set-output-sink 'user)))
(defun gdb-send-item (item)
(if gdb-enable-debug-log (push (cons 'send item) gdb-debug-log))
@ -1112,7 +1113,8 @@ static char *magick[] = {
(save-excursion
(goto-line (string-to-number line))
(gdb-put-breakpoint-icon (eq flag ?y)))))))))
(end-of-line))))))
(end-of-line)))))
(if (gdb-get-buffer 'gdb-assembler-buffer) (gdb-assembler-custom)))
(defun gdb-mouse-toggle-breakpoint (event)
"Toggle breakpoint with mouse click in left margin."
@ -1532,11 +1534,9 @@ the source buffer."
(defun gdb-display-source-buffer (buffer)
(if (eq gdb-selected-view 'source)
(progn
(gdb-display-buffer buffer)
(get-buffer-window buffer))
(gdb-display-buffer (gdb-get-buffer 'gdb-assembler-buffer))
nil))
(gdb-display-buffer (gdb-get-buffer 'gdb-assembler-buffer)))
(get-buffer-window buffer))
;;; Shared keymap initialization:
@ -1612,6 +1612,7 @@ the source buffer."
(defun gdb-view-assembler()
(interactive)
(gdb-display-buffer (gdb-get-create-buffer 'gdb-assembler-buffer))
(gdb-invalidate-assembler)
(setq gdb-selected-view 'assembler))
;(defun gdb-view-both()
@ -1964,7 +1965,7 @@ BUFFER nil or omitted means use the current buffer."
(with-current-buffer (gdb-get-create-buffer 'gdb-partial-output-buffer)
(goto-char (point-min))
(forward-line)
(if (looking-at ".*=\\s-+0x\\(\\S-*\\)\\s-+in\\s-+\\(\\S-*\\)")
(if (looking-at ".*=\\s-+0x\\(\\S-*\\)\\s-+in\\s-+\\(\\S-*?\\);? ")
(progn
(setq gdb-current-frame (match-string 2))
(let ((address (match-string 1)))