# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1000232902 0
# Node ID 8bf84df37c9075d410a4ae529b891b97ff8f441d
# Parent  2b9c2a181f798c68d2126c6887357cebdc87cca3
(dbx) <gud-dbx-use-stopformat-p>: Move this case into the
`t' branch of `cond', since Irix 6.1 and up is a special case of
the standard dbx interface.

diff -r 2b9c2a181f79 -r 8bf84df37c90 lisp/gud.el
--- a/lisp/gud.el	Tue Sep 11 16:11:08 2001 +0000
+++ b/lisp/gud.el	Tue Sep 11 18:28:22 2001 +0000
@@ -1046,14 +1046,14 @@
     ;; Make dbx give out the source location info that we need.
     (process-send-string (get-buffer-process gud-comint-buffer)
 			 "printf \"\032\032%1d:\",(int)$curline;file\n"))
-   (gud-dbx-use-stopformat-p
-    (process-send-string (get-buffer-process gud-comint-buffer)
-			 "set $stopformat=1\n"))
    (t
     (gud-def gud-up     "up %p"         "<" "Up (numeric arg) stack frames.")
     (gud-def gud-down   "down %p" ">" "Down (numeric arg) stack frames.")
     (gud-def gud-break "file \"%d%f\"\nstop at %l"
-				  "\C-b" "Set breakpoint at current line.")))
+				  "\C-b" "Set breakpoint at current line.")
+    (if gud-dbx-use-stopformat-p
+	(process-send-string (get-buffer-process gud-comint-buffer)
+			     "set $stopformat=1\n"))))
 
   (gud-def gud-remove "clear %l"  "\C-d" "Remove breakpoint at current line")
   (gud-def gud-step   "step %p"	  "\C-s" "Step one line with display.")