Mercurial > emacs
diff lisp/progmodes/gud.el @ 63031:ae951edf75a6
(gdb, gud-menu-map): Add command to evaluate
C dereferenced pointer expression.
(gud-tool-bar-map): Put it on the tool bar.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Sun, 05 Jun 2005 07:50:53 +0000 |
| parents | a6b83140d7d1 |
| children | 1d2443a3e033 01137c1fdbe9 |
line wrap: on
line diff
--- a/lisp/progmodes/gud.el Sun Jun 05 07:50:04 2005 +0000 +++ b/lisp/progmodes/gud.el Sun Jun 05 07:50:53 2005 +0000 @@ -140,6 +140,9 @@ :enable (and (not gud-running) (memq gud-minor-mode '(gdbmi gdba gdb dbx xdb jdb pdb bashdb)))) + ([print*] menu-item "Print Dereference" gud-pstar + :enable (and (not gud-running) + (memq gud-minor-mode '(gdbmi gdba gdb)))) ([print] menu-item "Print Expression" gud-print :enable (not gud-running)) ([watch] menu-item "Watch Expression" gud-watch @@ -183,18 +186,19 @@ (dolist (x '((gud-break . "gud-break") (gud-remove . "gud-remove") (gud-print . "gud-print") + (gud-pstar . "gud-pstar") (gud-watch . "gud-watch") + (gud-cont . "gud-cont") + (gud-until . "gud-until") + (gud-finish . "gud-finish") (gud-run . "gud-run") - (gud-until . "gud-until") - (gud-cont . "gud-cont") ;; gud-s, gud-si etc. instead of gud-step, ;; gud-stepi, to avoid file-name clashes on DOS ;; 8+3 filesystems. + (gud-next . "gud-n") (gud-step . "gud-s") - (gud-next . "gud-n") - (gud-finish . "gud-finish") + (gud-nexti . "gud-ni") (gud-stepi . "gud-si") - (gud-nexti . "gud-ni") (gud-up . "gud-up") (gud-down . "gud-down") (gud-goto-info . "info")) @@ -580,6 +584,8 @@ (gud-def gud-up "up %p" "<" "Up N stack frames (numeric arg).") (gud-def gud-down "down %p" ">" "Down N stack frames (numeric arg).") (gud-def gud-print "print %e" "\C-p" "Evaluate C expression at point.") + (gud-def gud-pstar "print* %e" nil + "Evaluate C dereferenced pointer expression at point.") (gud-def gud-until "until %l" "\C-u" "Continue to current line.") (gud-def gud-run "run" nil "Run the program.")