[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gdb-ui.el
From: |
Nick Roberts |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gdb-ui.el |
Date: |
Wed, 21 May 2003 16:12:20 -0400 |
Index: emacs/lisp/gdb-ui.el
diff -c emacs/lisp/gdb-ui.el:1.31 emacs/lisp/gdb-ui.el:1.32
*** emacs/lisp/gdb-ui.el:1.31 Tue May 20 20:49:46 2003
--- emacs/lisp/gdb-ui.el Wed May 21 16:12:20 2003
***************
*** 43,49 ****
;;
;; Known Bugs:
;; Does not auto-display arrays of structures or structures containing
arrays.
! ;; On MS Windows, GDB from MINGW does not flush the output from the inferior.
;;; Code:
--- 43,50 ----
;;
;; Known Bugs:
;; Does not auto-display arrays of structures or structures containing
arrays.
! ;; On MS Windows, Gdb 5.1.1 from MinGW 2.0 does not flush the output from the
! ;; inferior.
;;; Code:
***************
*** 170,176 ****
(gdb-clear-inferior-io)
;;
(if (eq window-system 'w32)
! (gdb-enqueue-input (list "set set new-console off\n" 'ignore)))
(gdb-enqueue-input (list "set height 0\n" 'ignore))
;; find source file and compilation directory here
(gdb-enqueue-input (list "server list\n" 'ignore))
--- 171,177 ----
(gdb-clear-inferior-io)
;;
(if (eq window-system 'w32)
! (gdb-enqueue-input (list "set new-console off\n" 'ignore)))
(gdb-enqueue-input (list "set height 0\n" 'ignore))
;; find source file and compilation directory here
(gdb-enqueue-input (list "server list\n" 'ignore))
***************
*** 517,523 ****
;; any newlines.
;;
! (defcustom gud-gdba-command-name "gdb -annotate=2"
"Default command to execute an executable under the GDB-UI debugger."
:type 'string
:group 'gud)
--- 518,527 ----
;; any newlines.
;;
! (defcustom gud-gdba-command-name
! (if (eq window-system 'w32)
! "gdb -annotate=2 -noasync"
! "gdb -annotate=2")
"Default command to execute an executable under the GDB-UI debugger."
:type 'string
:group 'gud)
***************
*** 785,796 ****
(let ((start (progn (point)))
(end (progn (end-of-line) (point))))
(with-current-buffer gdb-expression-buffer-name
! (setq buffer-read-only nil)
! (delete-region (point-min) (point-max))
! (insert-buffer-substring (gdb-get-buffer
! 'gdb-partial-output-buffer)
! start end)
! (insert "\n")))
(goto-char (point-min))
(re-search-forward "##" nil t)
(setq gdb-nesting-level 0)
--- 789,800 ----
(let ((start (progn (point)))
(end (progn (end-of-line) (point))))
(with-current-buffer gdb-expression-buffer-name
! (let ((buffer-read-only nil))
! (delete-region (point-min) (point-max))
! (insert-buffer-substring (gdb-get-buffer
! 'gdb-partial-output-buffer)
! start end)
! (insert "\n"))))
(goto-char (point-min))
(re-search-forward "##" nil t)
(setq gdb-nesting-level 0)
***************
*** 1478,1483 ****
--- 1482,1517 ----
file
(expand-file-name file gdb-cdir))))
(goto-line (string-to-number line))))))
+ ;; I'll get this to work one day!
+ ;; (defun gdb-goto-breakpoint ()
+ ;; "Display the file in the source buffer at the breakpoint specified on the
+ ;; current line."
+ ;; (interactive)
+ ;; (save-excursion
+ ;; (let ((eol (progn (end-of-line) (point))))
+ ;; (beginning-of-line 1)
+ ;; (if (re-search-forward "\\(\\S-*\\):\\([0-9]+\\)" eol t)
+ ;; (let ((line (match-string 2))
+ ;; (file (match-string 1)))
+ ;; (save-selected-window
+ ;; (select-window gdb-source-window)
+ ;; (switch-to-buffer (find-file-noselect
+ ;; (if (file-exists-p file)
+ ;; file
+ ;; (expand-file-name file gdb-cdir))))
+ ;; (goto-line (string-to-number line))))))
+ ;; (let ((eol (progn (end-of-line) (point))))
+ ;; (beginning-of-line 1)
+ ;; (if (re-search-forward "<\\(\\S-*?\\)\\(\\+*[0-9]*\\)>" eol t)
+ ;; (save-selected-window
+ ;; (select-window gdb-source-window)
+ ;; (gdb-get-create-buffer 'gdb-assembler-buffer)
+ ;; (gdb-enqueue-input
+ ;; (list (concat "server disassemble " (match-string 1) "\n")
+ ;; 'gdb-assembler-handler))
+ ;; (with-current-buffer (gdb-get-buffer 'gdb-assembler-buffer)
+ ;; (re-search-forward
+ ;; (concat (match-string 1) (match-string 2)))))))))
(defun gdb-mouse-goto-breakpoint (event)
"Display the file in the source buffer at the selected breakpoint."
***************
*** 1959,1968 ****
;;; Shared keymap initialization:
! (defun gdb-display-gdb-buffer ()
! (interactive)
! (gdb-display-buffer
! (gdb-get-create-buffer 'gdba)))
(let ((menu (make-sparse-keymap "GDB-Windows")))
(define-key gud-menu-map [displays]
--- 1993,2010 ----
;;; Shared keymap initialization:
! (let ((menu (make-sparse-keymap "GDB-Frames")))
! (define-key gud-menu-map [frames]
! `(menu-item "GDB-Frames" ,menu :visible (eq gud-minor-mode 'gdba)))
! (define-key menu [gdb] '("Gdb" . gdb-frame-gdb-buffer))
! (define-key menu [locals] '("Locals" . gdb-frame-locals-buffer))
! (define-key menu [registers] '("Registers" . gdb-frame-registers-buffer))
! (define-key menu [frames] '("Stack" . gdb-frame-stack-buffer))
! (define-key menu [breakpoints] '("Breakpoints" .
gdb-frame-breakpoints-buffer))
! (define-key menu [display] '("Display" . gdb-frame-display-buffer))
! (define-key menu [threads] '("Threads" . gdb-frame-threads-buffer))
! ; (define-key menu [assembler] '("Assembler" . gdb-frame-assembler-buffer))
! )
(let ((menu (make-sparse-keymap "GDB-Windows")))
(define-key gud-menu-map [displays]
***************
*** 1974,2011 ****
(define-key menu [breakpoints] '("Breakpoints" .
gdb-display-breakpoints-buffer))
(define-key menu [display] '("Display" . gdb-display-display-buffer))
(define-key menu [threads] '("Threads" . gdb-display-threads-buffer))
! (define-key menu [assembler] '("Assembler" . gdb-display-assembler-buffer)))
(defun gdb-frame-gdb-buffer ()
(interactive)
(switch-to-buffer-other-frame
(gdb-get-create-buffer 'gdba)))
! (let ((menu (make-sparse-keymap "GDB-Frames"))
! (submenu (make-sparse-keymap "View")))
! (define-key gud-menu-map [frames]
! `(menu-item "GDB-Frames" ,menu :visible (eq gud-minor-mode 'gdba)))
! (define-key menu [gdb] '("Gdb" . gdb-frame-gdb-buffer))
! (define-key menu [locals] '("Locals" . gdb-frame-locals-buffer))
! (define-key menu [registers] '("Registers" . gdb-frame-registers-buffer))
! (define-key menu [frames] '("Stack" . gdb-frame-stack-buffer))
! (define-key menu [breakpoints] '("Breakpoints" .
gdb-frame-breakpoints-buffer))
! (define-key menu [display] '("Display" . gdb-frame-display-buffer))
! (define-key menu [threads] '("Threads" . gdb-frame-threads-buffer))
! (define-key menu [view] `(menu-item "View" ,submenu))
! (define-key submenu [source]
! '(menu-item "Source" gdb-view-source
! :help "Display source only"
! :button (:radio . (eq gdb-selected-view 'source))))
! (define-key submenu [assembler]
! '(menu-item "Assembler" gdb-view-assembler
! :help "Display assembler only"
! :button (:radio . (eq gdb-selected-view 'assembler))))
! ; (define-key submenu [both]
! ; '(menu-item "Both" gdb-view-both
! ; :help "Display both source and assembler"
! ; :button (:radio . (eq gdb-selected-view 'both))))
! )
(defun gdb-view-source()
(interactive)
--- 2016,2045 ----
(define-key menu [breakpoints] '("Breakpoints" .
gdb-display-breakpoints-buffer))
(define-key menu [display] '("Display" . gdb-display-display-buffer))
(define-key menu [threads] '("Threads" . gdb-display-threads-buffer))
! ; (define-key menu [assembler] '("Assembler" . gdb-display-assembler-buffer))
! )
!
! (let ((menu (make-sparse-keymap "View")))
! (define-key gud-menu-map [view] `(menu-item "View" ,menu))
! ; (define-key menu [both] '(menu-item "Both" gdb-view-both
! ; :help "Display both source and assembler"
! ; :button (:radio . (eq gdb-selected-view 'both))))
! (define-key menu [assembler] '(menu-item "Assembler" gdb-view-assembler
! :help "Display assembler only"
! :button (:radio . (eq gdb-selected-view 'assembler))))
! (define-key menu [source] '(menu-item "Source" gdb-view-source
! :help "Display source only"
! :button (:radio . (eq gdb-selected-view 'source)))))
(defun gdb-frame-gdb-buffer ()
(interactive)
(switch-to-buffer-other-frame
(gdb-get-create-buffer 'gdba)))
! (defun gdb-display-gdb-buffer ()
! (interactive)
! (gdb-display-buffer
! (gdb-get-create-buffer 'gdba)))
(defun gdb-view-source()
(interactive)
- [Emacs-diffs] Changes to emacs/lisp/gdb-ui.el, Nick Roberts, 2003/05/03
- [Emacs-diffs] Changes to emacs/lisp/gdb-ui.el, Nick Roberts, 2003/05/12
- [Emacs-diffs] Changes to emacs/lisp/gdb-ui.el, Nick Roberts, 2003/05/17
- [Emacs-diffs] Changes to emacs/lisp/gdb-ui.el, Nick Roberts, 2003/05/18
- [Emacs-diffs] Changes to emacs/lisp/gdb-ui.el, Nick Roberts, 2003/05/20
- [Emacs-diffs] Changes to emacs/lisp/gdb-ui.el,
Nick Roberts <=
- [Emacs-diffs] Changes to emacs/lisp/gdb-ui.el, Nick Roberts, 2003/05/23
- [Emacs-diffs] Changes to emacs/lisp/gdb-ui.el, Nick Roberts, 2003/05/25