Mercurial > emacs
comparison lisp/progmodes/gud.el @ 96515:ca675825c4ef
(gud-gdb-get-stackframe): Allow absolute
filenames in stack trace (text command mode).
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Sat, 05 Jul 2008 09:36:39 +0000 |
| parents | b4e36ff621b3 |
| children | 7f22f71742f0 |
comparison
equal
deleted
inserted
replaced
| 96514:cd65c90908c4 | 96515:ca675825c4ef |
|---|---|
| 887 (let ((name nil) (num nil)) | 887 (let ((name nil) (num nil)) |
| 888 (if (not (or | 888 (if (not (or |
| 889 (string-match "^#\\([0-9]+\\) +[0-9a-fx]+ in \\([:0-9a-zA-Z_]+\\) (" e) | 889 (string-match "^#\\([0-9]+\\) +[0-9a-fx]+ in \\([:0-9a-zA-Z_]+\\) (" e) |
| 890 (string-match "^#\\([0-9]+\\) +\\([:0-9a-zA-Z_]+\\) (" e))) | 890 (string-match "^#\\([0-9]+\\) +\\([:0-9a-zA-Z_]+\\) (" e))) |
| 891 (if (not (string-match | 891 (if (not (string-match |
| 892 "at \\([-0-9a-zA-Z_.]+\\):\\([0-9]+\\)$" e)) | 892 "at \\([-0-9a-zA-Z_/.]+\\):\\([0-9]+\\)$" e)) |
| 893 nil | 893 nil |
| 894 (setcar newlst | 894 (setcar newlst |
| 895 (list (nth 0 (car newlst)) | 895 (list (nth 0 (car newlst)) |
| 896 (nth 1 (car newlst)) | 896 (nth 1 (car newlst)) |
| 897 (match-string 1 e) | 897 (match-string 1 e) |
| 899 (setq num (match-string 1 e) | 899 (setq num (match-string 1 e) |
| 900 name (match-string 2 e)) | 900 name (match-string 2 e)) |
| 901 (setq newlst | 901 (setq newlst |
| 902 (cons | 902 (cons |
| 903 (if (string-match | 903 (if (string-match |
| 904 "at \\([-0-9a-zA-Z_.]+\\):\\([0-9]+\\)$" e) | 904 "at \\([-0-9a-zA-Z_/.]+\\):\\([0-9]+\\)$" e) |
| 905 (list name num (match-string 1 e) | 905 (list name num (match-string 1 e) |
| 906 (match-string 2 e)) | 906 (match-string 2 e)) |
| 907 (list name num)) | 907 (list name num)) |
| 908 newlst))))) | 908 newlst))))) |
| 909 (nreverse newlst)))) | 909 (nreverse newlst)))) |