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

 C dereferenced pointer expression.
(gud-tool-bar-map): Put it on the tool bar.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4f768fb526a04d6ae7d25841b33ecae361061158..8e33fcfc3a6389669f95e027c167ec399677ba1b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.
 

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index 31b9e7d72040f3861fc0e77fa79b289b3e7ecdde..f3a95514c13b8461991e4f8673e3bb65a7671227 100644 (file)
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -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.")