59 |
;; of 'info registers'. |
;; of 'info registers'. |
60 |
;; 3) Use tree-widget.el instead of the speedbar for watch-expressions? |
;; 3) Use tree-widget.el instead of the speedbar for watch-expressions? |
61 |
;; 4) Mark breakpoint locations on scroll-bar of source buffer? |
;; 4) Mark breakpoint locations on scroll-bar of source buffer? |
62 |
;; 5) After release of 21.4 use '-var-list-children --all-values' |
;; 5) After release of 22.1 use '-var-list-children --all-values' |
63 |
;; and '-stack-list-locals 2' which need GDB 6.1 onwards. |
;; and '-stack-list-locals 2' which need GDB 6.1 onwards. |
64 |
|
|
65 |
;;; Code: |
;;; Code: |
183 |
"Non-nil means record the process input and output in `gdb-debug-log'." |
"Non-nil means record the process input and output in `gdb-debug-log'." |
184 |
:type 'boolean |
:type 'boolean |
185 |
:group 'gud |
:group 'gud |
186 |
:version "21.4") |
:version "22.1") |
187 |
|
|
188 |
(defcustom gdb-use-inferior-io-buffer nil |
(defcustom gdb-use-inferior-io-buffer nil |
189 |
"Non-nil means display output from the inferior in a separate buffer." |
"Non-nil means display output from the inferior in a separate buffer." |
190 |
:type 'boolean |
:type 'boolean |
191 |
:group 'gud |
:group 'gud |
192 |
:version "21.4") |
:version "22.1") |
193 |
|
|
194 |
(defun gdb-ann3 () |
(defun gdb-ann3 () |
195 |
(setq gdb-debug-log nil) |
(setq gdb-debug-log nil) |
268 |
"If non-nil use FUN::VAR format to display variables in the speedbar." ; |
"If non-nil use FUN::VAR format to display variables in the speedbar." ; |
269 |
:type 'boolean |
:type 'boolean |
270 |
:group 'gud |
:group 'gud |
271 |
:version "21.4") |
:version "22.1") |
272 |
|
|
273 |
(defun gud-watch () |
(defun gud-watch () |
274 |
"Watch expression at point." |
"Watch expression at point." |
441 |
The highlighting is done with `font-lock-warning-face'." |
The highlighting is done with `font-lock-warning-face'." |
442 |
:type 'boolean |
:type 'boolean |
443 |
:group 'gud |
:group 'gud |
444 |
:version "21.4") |
:version "22.1") |
445 |
|
|
446 |
(defun gdb-speedbar-expand-node (text token indent) |
(defun gdb-speedbar-expand-node (text token indent) |
447 |
"Expand the node the user clicked on. |
"Expand the node the user clicked on. |
491 |
(name (funcall (gdb-rules-name-maker rules))) |
(name (funcall (gdb-rules-name-maker rules))) |
492 |
(new (get-buffer-create name))) |
(new (get-buffer-create name))) |
493 |
(with-current-buffer new |
(with-current-buffer new |
494 |
(let ((trigger)) |
(let ((trigger)) |
495 |
(if (cdr (cdr rules)) |
(if (cdr (cdr rules)) |
496 |
(setq trigger (funcall (car (cdr (cdr rules)))))) |
(setq trigger (funcall (car (cdr (cdr rules)))))) |
497 |
(set (make-local-variable 'gdb-buffer-type) key) |
(set (make-local-variable 'gdb-buffer-type) key) |
691 |
"Default command to execute an executable under the GDB-UI debugger." |
"Default command to execute an executable under the GDB-UI debugger." |
692 |
:type 'string |
:type 'string |
693 |
:group 'gud |
:group 'gud |
694 |
:version "21.4") |
:version "22.1") |
695 |
|
|
696 |
(defvar gdb-annotation-rules |
(defvar gdb-annotation-rules |
697 |
'(("pre-prompt" gdb-pre-prompt) |
'(("pre-prompt" gdb-pre-prompt) |
789 |
(setq gud-running t) |
(setq gud-running t) |
790 |
(if gdb-use-inferior-io-buffer |
(if gdb-use-inferior-io-buffer |
791 |
(setq gdb-output-sink 'inferior)))) |
(setq gdb-output-sink 'inferior)))) |
792 |
(t |
(t |
793 |
(gdb-resync) |
(gdb-resync) |
794 |
(error "Unexpected `starting' annotation"))))) |
(error "Unexpected `starting' annotation"))))) |
795 |
|
|
1205 |
(with-selected-window (posn-window posn) |
(with-selected-window (posn-window posn) |
1206 |
(save-excursion |
(save-excursion |
1207 |
(goto-char (posn-point posn)) |
(goto-char (posn-point posn)) |
1208 |
(if |
(if |
1209 |
; (or |
; (or |
1210 |
(posn-object posn) |
(posn-object posn) |
1211 |
; (eq (car (fringe-bitmaps-at-pos (posn-point posn))) |
; (eq (car (fringe-bitmaps-at-pos (posn-point posn))) |
1544 |
"Number of data items in memory window." |
"Number of data items in memory window." |
1545 |
:type 'integer |
:type 'integer |
1546 |
:group 'gud |
:group 'gud |
1547 |
:version "21.4") |
:version "22.1") |
1548 |
|
|
1549 |
(defcustom gdb-memory-format "x" |
(defcustom gdb-memory-format "x" |
1550 |
"Display format of data items in memory window." |
"Display format of data items in memory window." |
1554 |
(const :tag "Octal" "o") |
(const :tag "Octal" "o") |
1555 |
(const :tag "Binary" "t")) |
(const :tag "Binary" "t")) |
1556 |
:group 'gud |
:group 'gud |
1557 |
:version "21.4") |
:version "22.1") |
1558 |
|
|
1559 |
(defcustom gdb-memory-unit "w" |
(defcustom gdb-memory-unit "w" |
1560 |
"Unit size of data items in memory window." |
"Unit size of data items in memory window." |
1563 |
(const :tag "Word" "w") |
(const :tag "Word" "w") |
1564 |
(const :tag "Giant word" "g")) |
(const :tag "Giant word" "g")) |
1565 |
:group 'gud |
:group 'gud |
1566 |
:version "21.4") |
:version "22.1") |
1567 |
|
|
1568 |
(gdb-set-buffer-rules 'gdb-memory-buffer |
(gdb-set-buffer-rules 'gdb-memory-buffer |
1569 |
'gdb-memory-buffer-name |
'gdb-memory-buffer-name |
1753 |
(use-local-map gdb-memory-mode-map) |
(use-local-map gdb-memory-mode-map) |
1754 |
(setq header-line-format |
(setq header-line-format |
1755 |
'(:eval |
'(:eval |
1756 |
(concat |
(concat |
1757 |
"Read address: " |
"Read address: " |
1758 |
(propertize gdb-memory-address |
(propertize gdb-memory-address |
1759 |
'face font-lock-warning-face |
'face font-lock-warning-face |
1957 |
"Nil means don't display source file containing the main routine." |
"Nil means don't display source file containing the main routine." |
1958 |
:type 'boolean |
:type 'boolean |
1959 |
:group 'gud |
:group 'gud |
1960 |
:version "21.4") |
:version "22.1") |
1961 |
|
|
1962 |
(defun gdb-set-window-buffer (name) |
(defun gdb-set-window-buffer (name) |
1963 |
(set-window-buffer (selected-window) (get-buffer name)) |
(set-window-buffer (selected-window) (get-buffer name)) |
2001 |
`gdba'." |
`gdba'." |
2002 |
:type 'boolean |
:type 'boolean |
2003 |
:group 'gud |
:group 'gud |
2004 |
:version "21.4") |
:version "22.1") |
2005 |
|
|
2006 |
(defun gdb-many-windows (arg) |
(defun gdb-many-windows (arg) |
2007 |
"Toggle the number of windows in the basic arrangement." |
"Toggle the number of windows in the basic arrangement." |