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."))) |