From cfcda0ba4a66d5f557005a3653735d15f3466df3 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Tue, 11 Sep 2001 18:29:37 +0000 Subject: [PATCH] (dbx) : Move this case into the `t' branch of `cond', since Irix 6.1 and up is a special case of the standard dbx interface. --- lisp/ChangeLog | 6 ++++++ lisp/gud.el | 8 ++++---- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1292cc2cfbf..e65b3b82339 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2001-09-11 Eli Zaretskii + + * gud.el (dbx) : 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 * comint.el (comint-send-input): When waiting for echoed input, diff --git a/lisp/gud.el b/lisp/gud.el index 52bfacf6338..b03f2099059 100644 --- 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.") -- 2.39.5