martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(gdba): Accommodate Fortran programs.

Browse Source 
(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).
This commit is contained in:
Nick Roberts
2003-05-23 22:38:15 +00:00
parent 47ab64b21f
commit 6d7cff7217
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/gdb-ui.el
View File

@@ -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))