Mercurial > emacs
changeset 8359:a9f95d2ac181
(compilation-error-regexp-alist): Fix bug in Borland
C++ change. Make first regexp reject cases that give column
numbers. Add new regexp for GNU format with column numbers.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 27 Jul 1994 17:52:02 +0000 |
| parents | f9d8f778f73b |
| children | e1518247fd63 |
| files | lisp/progmodes/compile.el |
| diffstat | 1 files changed, 9 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/compile.el Wed Jul 27 17:40:29 1994 +0000 +++ b/lisp/progmodes/compile.el Wed Jul 27 17:52:02 1994 +0000 @@ -100,7 +100,7 @@ (defvar compilation-error-regexp-alist '( - ;; NOTE! This first one is repeated in grep-regexp-alist, below. + ;; NOTE! See also grep-regexp-alist, below. ;; 4.3BSD grep, cc, lint pass 1: ;; /usr/src/foo/foo.c(8): warning: w may be used before set @@ -112,11 +112,14 @@ ;; Error ping.c 15: Unable to open include file 'sys/types.h' ;; Warning ping.c 68: Call to function 'func' with no prototype ;; + ;; We refuse to match file:number:number + ;; because we want to leave that for another case (see below, GNAT). + ;; ;; We'll insist that the number be followed by a colon or closing ;; paren, because otherwise this matches just about anything ;; containing a number with spaces around it. - ("\n\\(Error\\|Warning\\)?[ \t]*\\([^:( \t\n]+\\)\ -\[:(]?[ \t]*\\([0-9]+\\)[:) \t]" 2 3) + ("\n\\(Error \\|Warning \\)?[ \t]*\\([^:( \t\n]+\\)\ +\[:(]?[ \t]*\\([0-9]+\\)\\([) \t]\\|:[^0-9\n]\\)" 2 3) ;; 4.3BSD lint pass 2 ;; strcmp: variable # of args. llib-lc(359) :: /usr/src/foo/foo.c(8) @@ -169,6 +172,9 @@ ;; E, file.cc(35,52) Illegal operation on pointers ("\n[EW], \\([^(\n]*\\)(\\([0-9]+\\),[ \t]*\\([0-9]+\\)" 1 2 3) + ;; GNAT compiler v1.82 + ;; foo.adb:2:1: Unit name does not match file name + ("\n\\([^ \n\t:]+\\):\\([0-9]+\\):\\([0-9]+\\)[: \t]" 1 2 3) ) "Alist that specifies how to match errors in compiler output. Each element has the form (REGEXP FILE-IDX LINE-IDX [COLUMN-IDX]).