Mercurial > emacs
comparison lisp/progmodes/gdb-mi.el @ 105170:f8ba8d6fd250
Fix typos.
* allout.el
* dired-aux.el
* dired-x.el
* epa-file.el
* ps-print.el
* shell.el
* vc-hooks.el
* vc-rcs.el
* vc-sccs.el
* vc.el
* view.el
* wdired.el
* emacs-lisp/authors.el
* net/dig.el
* net/socks.el
* net/zeroconf.el
* obsolete/vc-mcvs.el
* progmodes/gdb-mi.el
* progmodes/grep.el
* progmodes/idlw-help.el
* progmodes/idlw-shell.el
* progmodes/idlwave.el
* progmodes/inf-lisp.el
* textmodes/bibtex.el
* textmodes/ispell.el
* textmodes/reftex-toc.el
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Thu, 24 Sep 2009 01:37:14 +0000 |
parents | fd22b3e4d41f |
children | 5d1a87e2a233 |
comparison
equal
deleted
inserted
replaced
105169:1d903e2f65af | 105170:f8ba8d6fd250 |
---|---|
1916 | 1916 |
1917 ;; -data-list-register-names needs to be issued for any stopped | 1917 ;; -data-list-register-names needs to be issued for any stopped |
1918 ;; thread | 1918 ;; thread |
1919 (when (not gdb-register-names) | 1919 (when (not gdb-register-names) |
1920 (gdb-input | 1920 (gdb-input |
1921 (list (concat "-data-list-register-names" | 1921 (list (concat "-data-list-register-names" |
1922 (if (string-equal gdb-version "7.0+") | 1922 (if (string-equal gdb-version "7.0+") |
1923 (concat" --thread " thread-id))) | 1923 (concat" --thread " thread-id))) |
1924 'gdb-register-names-handler))) | 1924 'gdb-register-names-handler))) |
1925 | 1925 |
1926 ;;; Don't set gud-last-frame here as it's currently done in gdb-frame-handler | 1926 ;;; Don't set gud-last-frame here as it's currently done in gdb-frame-handler |
2765 `(def-gdb-thread-buffer-command ,name | 2765 `(def-gdb-thread-buffer-command ,name |
2766 (if gdb-non-stop | 2766 (if gdb-non-stop |
2767 (let ((gdb-thread-number (bindat-get-field thread 'id)) | 2767 (let ((gdb-thread-number (bindat-get-field thread 'id)) |
2768 (gdb-gud-control-all-threads nil)) | 2768 (gdb-gud-control-all-threads nil)) |
2769 (call-interactively #',gud-command)) | 2769 (call-interactively #',gud-command)) |
2770 (error "Available in non-stop mode only, customize gdb-non-stop-setting.")) | 2770 (error "Available in non-stop mode only, customize `gdb-non-stop-setting'")) |
2771 ,doc)) | 2771 ,doc)) |
2772 | 2772 |
2773 (def-gdb-thread-buffer-gud-command | 2773 (def-gdb-thread-buffer-gud-command |
2774 gdb-interrupt-thread | 2774 gdb-interrupt-thread |
2775 gud-stop-subjob | 2775 gud-stop-subjob |
3472 (if (gdb-buffer-shows-main-thread-p) | 3472 (if (gdb-buffer-shows-main-thread-p) |
3473 (let ((new-level (bindat-get-field frame 'level))) | 3473 (let ((new-level (bindat-get-field frame 'level))) |
3474 (setq gdb-frame-number new-level) | 3474 (setq gdb-frame-number new-level) |
3475 (gdb-input (list (concat "-stack-select-frame " new-level) 'ignore)) | 3475 (gdb-input (list (concat "-stack-select-frame " new-level) 'ignore)) |
3476 (gdb-update)) | 3476 (gdb-update)) |
3477 (error "Could not select frame for non-current thread.")) | 3477 (error "Could not select frame for non-current thread")) |
3478 (error "Not recognized as frame line")))) | 3478 (error "Not recognized as frame line")))) |
3479 | 3479 |
3480 | 3480 |
3481 ;; Locals buffer. | 3481 ;; Locals buffer. |
3482 ;; uses "-stack-list-locals --simple-values". Needs GDB 6.1 onwards. | 3482 ;; uses "-stack-list-locals --simple-values". Needs GDB 6.1 onwards. |