Mercurial > emacs
changeset 51172:61a988cae9b2
(gdba): Accommodate Fortran programs.
(gud-gdba-command-name): Use -noasync in all cases (as Fortran
seems to require it also).
(gdb-source-info): Parse correctly when compilation directory
specifies host also (IRIX).
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Fri, 23 May 2003 22:38:15 +0000 |
| parents | 20e68518102b |
| children | b4f5f0f32f01 |
| files | lisp/gdb-ui.el |
| diffstat | 1 files changed, 7 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gdb-ui.el Fri May 23 22:35:40 2003 +0000 +++ b/lisp/gdb-ui.el Fri May 23 22:38:15 2003 +0000 @@ -174,7 +174,8 @@ (gdb-enqueue-input (list "set new-console off\n" 'ignore))) (gdb-enqueue-input (list "set height 0\n" 'ignore)) ;; find source file and compilation directory here - (gdb-enqueue-input (list "server list\n" 'ignore)) + (gdb-enqueue-input (list "server list\n" 'ignore)) ; C program + (gdb-enqueue-input (list "server list MAIN__\n" 'ignore)) ; Fortran program (gdb-enqueue-input (list "server info source\n" 'gdb-source-info)) ;; @@ -518,10 +519,7 @@ ;; any newlines. ;; -(defcustom gud-gdba-command-name - (if (eq window-system 'w32) - "gdb -annotate=2 -noasync" - "gdb -annotate=2") +(defcustom gud-gdba-command-name "gdb -annotate=2 -noasync" "Default command to execute an executable under the GDB-UI debugger." :type 'string :group 'gud) @@ -2148,8 +2146,10 @@ buffers." (goto-char (point-min)) (when (search-forward "directory is " nil t) - (looking-at "\\S-*") - (setq gdb-cdir (match-string 0)) + (if (looking-at "\\S-*:\\(\\S-*\\)") + (setq gdb-cdir (match-string 1)) + (looking-at "\\S-*") + (setq gdb-cdir (match-string 0))) (search-forward "Located in ") (looking-at "\\S-*") (setq gdb-main-file (match-string 0))