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

(gdb, gud-menu-map): Add command to evaluate

Browse source 
C dereferenced pointer expression.
(gud-tool-bar-map): Put it on the tool bar.
This commit is contained in:
Nick Roberts 2005-06-05 07:54:50 +00:00
parent c1205dadcd
commit 32759db597
2 changed files with 12 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -6,7 +6,7 @@
* progmodes/gud.el (gdb, gud-menu-map): Add command to evaluate
C dereferenced pointer expression.
(gud-tool-bar-map): Put it on the tool bar.
(gud-tool-bar-map): Put it on the tool bar. Re-order icons.
* toolbar/gud-pstar.xpm, toolbar/gud-pstar.pbm: New files.

16
lisp/progmodes/gud.el
View file

@ -140,6 +140,9 @@ Used to grey out relevant togolbar icons.")
: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 @@ Used to grey out relevant togolbar icons.")
(dolist (x '((gud-break . "gud-break")
(gud-remove . "gud-remove")
(gud-print . "gud-print")
(gud-pstar . "gud-pstar")
(gud-watch . "gud-watch")
(gud-run . "gud-run")
(gud-until . "gud-until")
(gud-cont . "gud-cont")
(gud-until . "gud-until")
(gud-finish . "gud-finish")
(gud-run . "gud-run")
;; gud-s, gud-si etc. instead of gud-step,
;; gud-stepi, to avoid file-name clashes on DOS
;; 8+3 filesystems.
(gud-step . "gud-s")
(gud-next . "gud-n")
(gud-finish . "gud-finish")
(gud-stepi . "gud-si")
(gud-step . "gud-s")
(gud-nexti . "gud-ni")
(gud-stepi . "gud-si")
(gud-up . "gud-up")
(gud-down . "gud-down")
(gud-goto-info . "info"))
@ -580,6 +584,8 @@ and source-file directory for your debugger."
(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.")