mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(dbx) <gud-dbx-use-stopformat-p>: Move this case into the

Browse source 
`t' branch of `cond', since Irix 6.1 and up is a special case of
the standard dbx interface.
This commit is contained in:
Eli Zaretskii 2001-09-11 18:29:37 +00:00
parent bd819d14fd
commit cfcda0ba4a
2 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -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,

8
lisp/gud.el
View file

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