diff options
| author | Richard M. Stallman | 1996-06-19 20:52:31 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-06-19 20:52:31 +0000 |
| commit | b75062df6d34656eb3b4fccfa4f791e05c9b0b8b (patch) | |
| tree | dd5511aeaef7de779e0748c2990b8ede22c73b32 | |
| parent | c8d16dbd12529346bd5f23415d6ccf077c95e950 (diff) | |
| download | emacs-b75062df6d34656eb3b4fccfa4f791e05c9b0b8b.tar.gz emacs-b75062df6d34656eb3b4fccfa4f791e05c9b0b8b.zip | |
(gud-irixdbx-marker-filter): Use %1ld, not %1d,
when printing $curline.
(dbx, irix case): Likewise in arg of gud-down.
| -rw-r--r-- | lisp/gud.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/gud.el b/lisp/gud.el index 439484b60c8..cada35d5ac1 100644 --- a/lisp/gud.el +++ b/lisp/gud.el | |||
| @@ -685,7 +685,7 @@ This works in IRIX 4, 5 and 6.") | |||
| 685 | ;; prod dbx into printing out the line number and file | 685 | ;; prod dbx into printing out the line number and file |
| 686 | ;; name in a form we can grok as below | 686 | ;; name in a form we can grok as below |
| 687 | (process-send-string (get-buffer-process gud-comint-buffer) | 687 | (process-send-string (get-buffer-process gud-comint-buffer) |
| 688 | "printf \"\032\032%1d:\",(long)$curline;file\n")) | 688 | "printf \"\032\032%1ld:\",(long)$curline;file\n")) |
| 689 | ;; look for result of, say, "up" e.g.: | 689 | ;; look for result of, say, "up" e.g.: |
| 690 | ;; .pplot.pplot(0x800) ["src/pplot.f":261, 0x400c7c] | 690 | ;; .pplot.pplot(0x800) ["src/pplot.f":261, 0x400c7c] |
| 691 | ;; (this will also catch one of the lines printed by "where") | 691 | ;; (this will also catch one of the lines printed by "where") |
| @@ -770,7 +770,7 @@ and source-file directory for your debugger." | |||
| 770 | ">" "Down (numeric arg) stack frames.") | 770 | ">" "Down (numeric arg) stack frames.") |
| 771 | ;; Make dbx give out the source location info that we need. | 771 | ;; Make dbx give out the source location info that we need. |
| 772 | (process-send-string (get-buffer-process gud-comint-buffer) | 772 | (process-send-string (get-buffer-process gud-comint-buffer) |
| 773 | "printf \"\032\032%1d:\",(long)$curline;file\n")) | 773 | "printf \"\032\032%1ld:\",(long)$curline;file\n")) |
| 774 | (t | 774 | (t |
| 775 | (gud-def gud-up "up %p" "<" "Up (numeric arg) stack frames.") | 775 | (gud-def gud-up "up %p" "<" "Up (numeric arg) stack frames.") |
| 776 | (gud-def gud-down "down %p" ">" "Down (numeric arg) stack frames.") | 776 | (gud-def gud-down "down %p" ">" "Down (numeric arg) stack frames.") |