comparison lisp/gud.el @ 9695:7afe28f7af59

(gud-irixdbx-marker-filter): Cast $curline to int.
author Richard M. Stallman <rms@gnu.org>
date Tue, 25 Oct 1994 20:29:03 +0000
parents 208a783fe72a
children 6a97ed1cc733
comparison
equal deleted inserted replaced
9694:f8aa9230c3fa 9695:7afe28f7af59
555 "^\\(\\[[0-9]+] \\)?Process +[0-9]+ ([^)]*) [^[]+\\[[^]\n]*]\n" 555 "^\\(\\[[0-9]+] \\)?Process +[0-9]+ ([^)]*) [^[]+\\[[^]\n]*]\n"
556 result) 556 result)
557 ;; prod dbx into printing out the line number and file 557 ;; prod dbx into printing out the line number and file
558 ;; name in a form we can grok as below 558 ;; name in a form we can grok as below
559 (process-send-string (get-buffer-process gud-comint-buffer) 559 (process-send-string (get-buffer-process gud-comint-buffer)
560 "printf \"\032\032%1d:\",$curline;file\n")) 560 "printf \"\032\032%1d:\",(int)$curline;file\n"))
561 ;; look for result of, say, "up" e.g.: 561 ;; look for result of, say, "up" e.g.:
562 ;; .pplot.pplot(0x800) ["src/pplot.f":261, 0x400c7c] 562 ;; .pplot.pplot(0x800) ["src/pplot.f":261, 0x400c7c]
563 ;; (this will also catch one of the lines printed by "where") 563 ;; (this will also catch one of the lines printed by "where")
564 ((string-match 564 ((string-match
565 "^[^ ][^[]*\\[\"\\([^\"]+\\)\":\\([0-9]+\\), [^]]+]\n" 565 "^[^ ][^[]*\\[\"\\([^\"]+\\)\":\\([0-9]+\\), [^]]+]\n"