diff options
| author | Nick Roberts <nickrob@snap.net.nz> | 2003-05-23 22:38:15 +0000 |
|---|---|---|
| committer | Nick Roberts <nickrob@snap.net.nz> | 2003-05-23 22:38:15 +0000 |
| commit | 6d7cff7217ebfe4afb42d7ccecdb6cfcf29b03b2 (patch) | |
| tree | d8f66fe98cf74d50f020ec62f7bc7b7be189fef2 /lisp/gdb-ui.el | |
| parent | 47ab64b21fc7401d838910e971379749c0e92050 (diff) | |
| download | emacs-6d7cff7217ebfe4afb42d7ccecdb6cfcf29b03b2.tar.gz | |
(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).
Diffstat (limited to 'lisp/gdb-ui.el')
| -rw-r--r-- | lisp/gdb-ui.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/gdb-ui.el b/lisp/gdb-ui.el index 7953743d906..18643f44d86 100644 --- a/lisp/gdb-ui.el +++ b/lisp/gdb-ui.el @@ -174,7 +174,8 @@ The following interactive lisp functions help control operation : (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 @@ This filter may simply queue output for a later time." ;; 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 @@ This arrangement depends on the value of `gdb-many-windows'." 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)) |