# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 835217551 0
# Node ID 751cae9780487c8aa631266fac84e1643b7bd6e9
# Parent  85313b347ed94843a3f9b12587fdf7191de6f846
(gud-irixdbx-marker-filter): Use %1ld, not %1d,
when printing $curline.
(dbx, irix case): Likewise in arg of gud-down.

diff -r 85313b347ed9 -r 751cae978048 lisp/gud.el
--- a/lisp/gud.el	Tue Jun 18 22:43:32 1996 +0000
+++ b/lisp/gud.el	Wed Jun 19 20:52:31 1996 +0000
@@ -685,7 +685,7 @@
 	  ;; 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%1d:\",(long)$curline;file\n"))
+			       "printf \"\032\032%1ld:\",(long)$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")
@@ -770,7 +770,7 @@
 	     ">" "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%1d:\",(long)$curline;file\n"))
+			 "printf \"\032\032%1ld:\",(long)$curline;file\n"))
    (t
     (gud-def gud-up     "up %p"         "<" "Up (numeric arg) stack frames.")
     (gud-def gud-down   "down %p" ">" "Down (numeric arg) stack frames.")