Mercurial > emacs
comparison lisp/gud.el @ 15455:751cae978048
(gud-irixdbx-marker-filter): Use %1ld, not %1d,
when printing $curline.
(dbx, irix case): Likewise in arg of gud-down.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 19 Jun 1996 20:52:31 +0000 |
| parents | c595cb576143 |
| children | 2cf06d9df144 |
comparison
equal
deleted
inserted
replaced
| 15454:85313b347ed9 | 15455:751cae978048 |
|---|---|
| 683 "^\\(\\[[0-9]+] \\)?Process +[0-9]+ ([^)]*) [^[]+\\[[^]\n]*]\n" | 683 "^\\(\\[[0-9]+] \\)?Process +[0-9]+ ([^)]*) [^[]+\\[[^]\n]*]\n" |
| 684 result) | 684 result) |
| 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") |
| 692 ((string-match | 692 ((string-match |
| 693 "^[^ ][^[]*\\[\"\\([^\"]+\\)\":\\([0-9]+\\), [^]]+]\n" | 693 "^[^ ][^[]*\\[\"\\([^\"]+\\)\":\\([0-9]+\\), [^]]+]\n" |
| 768 "<" "Up (numeric arg) stack frames.") | 768 "<" "Up (numeric arg) stack frames.") |
| 769 (gud-def gud-down "down %p; printf \"\032\032%1ld:\",(long)$curline;file\n" | 769 (gud-def gud-down "down %p; printf \"\032\032%1ld:\",(long)$curline;file\n" |
| 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.") |
| 777 (gud-def gud-break "file \"%d%f\"\nstop at %l" | 777 (gud-def gud-break "file \"%d%f\"\nstop at %l" |
| 778 "\C-b" "Set breakpoint at current line."))) | 778 "\C-b" "Set breakpoint at current line."))) |