Mercurial > emacs
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" |