Mercurial > emacs
comparison lisp/gud.el @ 10447:55bc74681031
(dbx): Fix missing cast of $curline for Irix.
(gud-irixdbx-marker-filter): Make $curline cast consistent with the others.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 17 Jan 1995 22:31:45 +0000 |
| parents | bf67e2fdd393 |
| children | ec596f12f13f |
comparison
equal
deleted
inserted
replaced
| 10446:034609a036b1 | 10447:55bc74681031 |
|---|---|
| 616 "^\\(\\[[0-9]+] \\)?Process +[0-9]+ ([^)]*) [^[]+\\[[^]\n]*]\n" | 616 "^\\(\\[[0-9]+] \\)?Process +[0-9]+ ([^)]*) [^[]+\\[[^]\n]*]\n" |
| 617 result) | 617 result) |
| 618 ;; prod dbx into printing out the line number and file | 618 ;; prod dbx into printing out the line number and file |
| 619 ;; name in a form we can grok as below | 619 ;; name in a form we can grok as below |
| 620 (process-send-string (get-buffer-process gud-comint-buffer) | 620 (process-send-string (get-buffer-process gud-comint-buffer) |
| 621 "printf \"\032\032%1d:\",(int)$curline;file\n")) | 621 "printf \"\032\032%1d:\",(long)$curline;file\n")) |
| 622 ;; look for result of, say, "up" e.g.: | 622 ;; look for result of, say, "up" e.g.: |
| 623 ;; .pplot.pplot(0x800) ["src/pplot.f":261, 0x400c7c] | 623 ;; .pplot.pplot(0x800) ["src/pplot.f":261, 0x400c7c] |
| 624 ;; (this will also catch one of the lines printed by "where") | 624 ;; (this will also catch one of the lines printed by "where") |
| 625 ((string-match | 625 ((string-match |
| 626 "^[^ ][^[]*\\[\"\\([^\"]+\\)\":\\([0-9]+\\), [^]]+]\n" | 626 "^[^ ][^[]*\\[\"\\([^\"]+\\)\":\\([0-9]+\\), [^]]+]\n" |
| 691 "<" "Up (numeric arg) stack frames.") | 691 "<" "Up (numeric arg) stack frames.") |
| 692 (gud-def gud-down "down %p; printf \"\032\032%1ld:\",(long)$curline;file\n" | 692 (gud-def gud-down "down %p; printf \"\032\032%1ld:\",(long)$curline;file\n" |
| 693 ">" "Down (numeric arg) stack frames.") | 693 ">" "Down (numeric arg) stack frames.") |
| 694 ;; Make dbx give out the source location info that we need. | 694 ;; Make dbx give out the source location info that we need. |
| 695 (process-send-string (get-buffer-process gud-comint-buffer) | 695 (process-send-string (get-buffer-process gud-comint-buffer) |
| 696 "printf \"\032\032%1d:\",$curline;file\n")) | 696 "printf \"\032\032%1d:\",(long)$curline;file\n")) |
| 697 (t | 697 (t |
| 698 (gud-def gud-up "up %p" "<" "Up (numeric arg) stack frames.") | 698 (gud-def gud-up "up %p" "<" "Up (numeric arg) stack frames.") |
| 699 (gud-def gud-down "down %p" ">" "Down (numeric arg) stack frames.") | 699 (gud-def gud-down "down %p" ">" "Down (numeric arg) stack frames.") |
| 700 (gud-def gud-break "file \"%d%f\"\nstop at %l" | 700 (gud-def gud-break "file \"%d%f\"\nstop at %l" |
| 701 "\C-b" "Set breakpoint at current line."))) | 701 "\C-b" "Set breakpoint at current line."))) |