aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorNick Roberts2006-12-20 05:16:36 +0000
committerNick Roberts2006-12-20 05:16:36 +0000
commit82bc67b8b25da41b15f93d7d69bcc64d48abfd46 (patch)
treedfa2b90ef74af058ed244c479f5ba082493dfae9
parent39bd65afbe9d7d884e8154a2a65a3cba0f6913b6 (diff)
downloademacs-82bc67b8b25da41b15f93d7d69bcc64d48abfd46.tar.gz
emacs-82bc67b8b25da41b15f93d7d69bcc64d48abfd46.zip
(gdb-stopped): After attaching to a process
make gud-go send "continue".
-rw-r--r--lisp/progmodes/gdb-ui.el7
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el
index 48dd31b19f9..438a4b7ee22 100644
--- a/lisp/progmodes/gdb-ui.el
+++ b/lisp/progmodes/gdb-ui.el
@@ -79,6 +79,8 @@
79;; 5) If you wish to call procedures from your program in GDB 79;; 5) If you wish to call procedures from your program in GDB
80;; e.g "call myproc ()", "p mysquare (5)" then use level 2 annotations 80;; e.g "call myproc ()", "p mysquare (5)" then use level 2 annotations
81;; "gdb --annotate=2 myprog" to keep source buffer/selected frame fixed. 81;; "gdb --annotate=2 myprog" to keep source buffer/selected frame fixed.
82;; 6) After detaching from a process, clicking on the "GO" icon on toolbar
83;; (gud-go) sends "continue" to GDB (should be "run").
82 84
83;;; Problems with watch expressions, GDB/MI: 85;;; Problems with watch expressions, GDB/MI:
84 86
@@ -874,7 +876,7 @@ type_changed=\".*?\".*?}")
874 (setq gdb-var-list (delq varchild gdb-var-list))))))))) 876 (setq gdb-var-list (delq varchild gdb-var-list)))))))))
875 877
876(defun gdb-var-delete-children (varnum) 878(defun gdb-var-delete-children (varnum)
877 "Delete children of variable object point from the speedbar." 879 "Delete children of variable object at point from the speedbar."
878 (gdb-enqueue-input 880 (gdb-enqueue-input
879 (list 881 (list
880 (if (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) 'gdba) 882 (if (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) 'gdba)
@@ -1401,7 +1403,7 @@ sink to `user' in `gdb-stopping', that is fine."
1401 (if (and gdb-frame-begin gdb-printing) 1403 (if (and gdb-frame-begin gdb-printing)
1402 (setq gud-overlay-arrow-position gud-old-arrow) 1404 (setq gud-overlay-arrow-position gud-old-arrow)
1403 ;;Pop up GUD buffer to display current frame when it doesn't have source 1405 ;;Pop up GUD buffer to display current frame when it doesn't have source
1404 ;;information i.e id not compiled with -g as with libc routines generally. 1406 ;;information i.e if not compiled with -g as with libc routines generally.
1405 (if gdb-same-frame 1407 (if gdb-same-frame
1406 (gdb-display-gdb-buffer) 1408 (gdb-display-gdb-buffer)
1407 (gdb-frame-gdb-buffer)) 1409 (gdb-frame-gdb-buffer))
@@ -1415,6 +1417,7 @@ sink to `user' in `gdb-stopping', that is fine."
1415 (gdb-invalidate-frames) 1417 (gdb-invalidate-frames)
1416 'delete)))))) 1418 'delete))))))
1417 (unless (member gdb-inferior-status '("exited" "signal")) 1419 (unless (member gdb-inferior-status '("exited" "signal"))
1420 (setq gdb-active-process t) ;Just for attaching case.
1418 (setq gdb-inferior-status "stopped") 1421 (setq gdb-inferior-status "stopped")
1419 (gdb-force-mode-line-update 1422 (gdb-force-mode-line-update
1420 (propertize gdb-inferior-status 'face font-lock-warning-face))) 1423 (propertize gdb-inferior-status 'face font-lock-warning-face)))