(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 --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1292cc2cfbf9db28fe93818703d0edcfe2eae669..e65b3b8233901886fd182f9c3a516b57aa1f70d4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2001-09-11  Eli Zaretskii  <a34785@is.elta.co.il>
+
+       * gud.el (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.
+
 2001-09-11  Miles Bader  <miles@gnu.org>
 
        * comint.el (comint-send-input): When waiting for echoed input,

diff --git a/lisp/gud.el b/lisp/gud.el
index 52bfacf6338e7e620fc0150ed9fba0f2289abcdb..b03f209905904088d3e263f8775bf07a62cce75d 100644 (file)
--- a/lisp/gud.el
+++ b/lisp/gud.el
@@ -1046,14 +1046,14 @@ and source-file directory for your debugger."
     ;; 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.")