# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1053729495 0
# Node ID 61a988cae9b2486eb777e74d5f00b8b1c2d8cba0
# Parent  20e68518102bd53fcc572e8af69653be5cf13737
(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).

diff -r 20e68518102b -r 61a988cae9b2 lisp/gdb-ui.el
--- 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))