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).") |