aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1996-06-19 20:52:31 +0000
committerRichard M. Stallman1996-06-19 20:52:31 +0000
commitb75062df6d34656eb3b4fccfa4f791e05c9b0b8b (patch)
treedd5511aeaef7de779e0748c2990b8ede22c73b32
parentc8d16dbd12529346bd5f23415d6ccf077c95e950 (diff)
downloademacs-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.el4
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.")