diff options
author | Karl Heuer <kwzh@gnu.org> | 1996-07-07 22:29:37 +0000 |
---|---|---|
committer | Karl Heuer <kwzh@gnu.org> | 1996-07-07 22:29:37 +0000 |
commit | f8aade04fdb1558ab8412e61f83c2e43f898eba1 (patch) | |
tree | df45d9dfd466907ae20dd9aad2eb224e68ab50c7 /lisp/gud.el | |
parent | 350c4cc09c7733d8cf2c3e1bc233ddeaf4dcf481 (diff) | |
download | emacs-f8aade04fdb1558ab8412e61f83c2e43f898eba1.tar.gz |
(gud-irix-p): Exclude Irix6.1 up.
(gud-dbx-use-stopformat-p): New variable.
(dbx): Use it to send $stopformat for Irix6.
(gud-irixdbx-marker-filter): Cast $curline to int, not long (see
added comments).
(dbx): Likewise.
Diffstat (limited to 'lisp/gud.el')
-rw-r--r-- | lisp/gud.el | 35 |
1 files changed, 26 insertions, 9 deletions
diff --git a/lisp/gud.el b/lisp/gud.el index cada35d5ac1..6c5c1abcdf6 100644 --- a/lisp/gud.el +++ b/lisp/gud.el @@ -4,7 +4,7 @@ ;; Maintainer: FSF ;; Keywords: unix, tools -;; Copyright (C) 1992, 1993, 1994, 1995 Free Software Foundation, Inc. +;; Copyright (C) 1992, 1993, 1994, 1995, 1996 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. @@ -648,17 +648,31 @@ containing the executable being debugged.") ;; correct line number, but life's too short. ;; d.love@dl.ac.uk (Dave Love) can be blamed for this -(defvar gud-irix-p (string-match "^mips-[^-]*-irix" system-configuration) +(defvar gud-irix-p + (and (string-match "^mips-[^-]*-irix" system-configuration) + (not (string-match "irix[6-9]\\.[1-9]" system-configuration))) "Non-nil to assume the interface appropriate for IRIX dbx. -This works in IRIX 4, 5 and 6.") +This works in IRIX 4, 5 and 6, but `gud-dbx-use-stopformat-p' provides +a better solution in 6.1 upwards.") +(defvar gud-dbx-use-stopformat-p + (string-match "irix[6-9]\\.[1-9]" system-configuration) + "Non-nil to use the dbx feature present at least from Irix 6.1 + whereby $stopformat=1 produces an output format compatiable with + `gud-dbx-marker-filter'.") ;; [Irix dbx seems to be a moving target. The dbx output changed ;; subtly sometime between OS v4.0.5 and v5.2 so that, for instance, ;; the output from `up' is no longer spotted by gud (and it's probably ;; not distinctive enough to try to match it -- use C-<, C-> ;; exclusively) . For 5.3 and 6.0, the $curline variable changed to ;; `long long'(why?!), so the printf stuff needed changing. The line -;; number is cast to `long' as a compromise between the new `long -;; long' and the original `int'. The process filter is also somewhat +;; number was cast to `long' as a compromise between the new `long +;; long' and the original `int'. This is reported not to work in 6.2, +;; so it's changed back to int -- don't make your sources too long. +;; From Irix6.1 (but not 6.0?) dbx supports an undocumented feature +;; whereby `set $stopformat=1' reportedly produces output compatible +;; with `gud-dbx-marker-filter', which we prefer. + +;; The process filter is also somewhat ;; unreliable, sometimes not spotting the markers; I don't know ;; whether there's anything that can be done about that. It would be ;; much better if SGI could be persuaded to (re?)instate the MIPS @@ -685,7 +699,7 @@ This works in IRIX 4, 5 and 6.") ;; prod dbx into printing out the line number and file ;; name in a form we can grok as below (process-send-string (get-buffer-process gud-comint-buffer) - "printf \"\032\032%1ld:\",(long)$curline;file\n")) + "printf \"\032\032%1d:\",(int)$curline;file\n")) ;; look for result of, say, "up" e.g.: ;; .pplot.pplot(0x800) ["src/pplot.f":261, 0x400c7c] ;; (this will also catch one of the lines printed by "where") @@ -764,13 +778,16 @@ and source-file directory for your debugger." (gud-def gud-break "stop at \"%d%f\":%l" "\C-b" "Set breakpoint at current line.") (gud-def gud-finish "return" "\C-f" "Finish executing current function.") - (gud-def gud-up "up %p; printf \"\032\032%1ld:\",(long)$curline;file\n" + (gud-def gud-up "up %p; printf \"\032\032%1d:\",(int)$curline;file\n" "<" "Up (numeric arg) stack frames.") - (gud-def gud-down "down %p; printf \"\032\032%1ld:\",(long)$curline;file\n" + (gud-def gud-down "down %p; printf \"\032\032%1d:\",(int)$curline;file\n" ">" "Down (numeric arg) stack frames.") ;; Make dbx give out the source location info that we need. (process-send-string (get-buffer-process gud-comint-buffer) - "printf \"\032\032%1ld:\",(long)$curline;file\n")) + "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.") |