Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
39251:2b9c2a181f79 | 39252:8bf84df37c90 |
---|---|
1044 (gud-def gud-down "down %p; printf \"\032\032%1d:\",(int)$curline;file\n" | 1044 (gud-def gud-down "down %p; printf \"\032\032%1d:\",(int)$curline;file\n" |
1045 ">" "Down (numeric arg) stack frames.") | 1045 ">" "Down (numeric arg) stack frames.") |
1046 ;; Make dbx give out the source location info that we need. | 1046 ;; Make dbx give out the source location info that we need. |
1047 (process-send-string (get-buffer-process gud-comint-buffer) | 1047 (process-send-string (get-buffer-process gud-comint-buffer) |
1048 "printf \"\032\032%1d:\",(int)$curline;file\n")) | 1048 "printf \"\032\032%1d:\",(int)$curline;file\n")) |
1049 (gud-dbx-use-stopformat-p | |
1050 (process-send-string (get-buffer-process gud-comint-buffer) | |
1051 "set $stopformat=1\n")) | |
1052 (t | 1049 (t |
1053 (gud-def gud-up "up %p" "<" "Up (numeric arg) stack frames.") | 1050 (gud-def gud-up "up %p" "<" "Up (numeric arg) stack frames.") |
1054 (gud-def gud-down "down %p" ">" "Down (numeric arg) stack frames.") | 1051 (gud-def gud-down "down %p" ">" "Down (numeric arg) stack frames.") |
1055 (gud-def gud-break "file \"%d%f\"\nstop at %l" | 1052 (gud-def gud-break "file \"%d%f\"\nstop at %l" |
1056 "\C-b" "Set breakpoint at current line."))) | 1053 "\C-b" "Set breakpoint at current line.") |
1054 (if gud-dbx-use-stopformat-p | |
1055 (process-send-string (get-buffer-process gud-comint-buffer) | |
1056 "set $stopformat=1\n")))) | |
1057 | 1057 |
1058 (gud-def gud-remove "clear %l" "\C-d" "Remove breakpoint at current line") | 1058 (gud-def gud-remove "clear %l" "\C-d" "Remove breakpoint at current line") |
1059 (gud-def gud-step "step %p" "\C-s" "Step one line with display.") | 1059 (gud-def gud-step "step %p" "\C-s" "Step one line with display.") |
1060 (gud-def gud-stepi "stepi %p" "\C-i" "Step one instruction with display.") | 1060 (gud-def gud-stepi "stepi %p" "\C-i" "Step one instruction with display.") |
1061 (gud-def gud-next "next %p" "\C-n" "Step one line (skip functions).") | 1061 (gud-def gud-next "next %p" "\C-n" "Step one line (skip functions).") |