Mercurial > emacs
diff lisp/gud.el @ 39252:8bf84df37c90
(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.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Tue, 11 Sep 2001 18:28:22 +0000 |
parents | 253f761ad37b |
children | a9d361663625 |
line wrap: on
line diff
--- 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.")