* compilation.txt (symbol): Added gcov-file

gcov-bb-file gcov-never-called-line gcov-called-line .

* progmodes/compile.el (compilation-error-regexp-alist-alist): Add
regexp for gcov.

diff --git a/etc/ChangeLog b/etc/ChangeLog
index 2d28135ecfe4bb16a385bcc1d0761ed791e9f11b..a2b5bb9ef3198fa06f4eb190d2e4344095a0c12d 100644 (file)
--- a/etc/ChangeLog
+++ b/etc/ChangeLog
@@ -1,3 +1,8 @@
+2005-04-10  Masatake YAMATO  <jet@gyve.org>
+
+       * compilation.txt (symbol): Added gcov-file 
+       gcov-bb-file gcov-never-called-line gcov-called-line .
+
 2005-04-08  Kenichi Handa  <handa@m17n.org>
 
        * TUTORIAL.ja: Updated header, contents synchronized with

diff --git a/etc/compilation.txt b/etc/compilation.txt
index c1a20ad3025027427a4f107443804467d051ed55..42e62af9dffb4a504df69b6753b129e9ced56064 100644 (file)
--- a/etc/compilation.txt
+++ b/etc/compilation.txt
@@ -341,6 +341,32 @@ strcmp: variable # of args. llib-lc(359)  ::  /usr/src/foo/foo.c(8)
 bloofle defined( /users/wolfgang/foo.c(4) ), but never used
 
 
+* GCOV (test coverage program)
+
+symbol: gcov-file gcov-bb-file gcov-never-called-line gcov-called-line 
+
+        -:    0:Source:foo.c
+        -:    0:Object:foo.bb
+        -:    1:/* $ gcc -fprofile-arcs -ftest-coverage foo.c 
+        -:    2:   $ ./a.out
+        -:    3:   $ gcov foo.c
+        -:    4:   LANG=C gcov foo.c
+        -:    5:   62.50% of 8 lines executed in file foo.c
+        -:    6:   Creating foo.c.gcov.*/
+        -:    7:int
+        -:    8:main(int argc, char ** argv)
+        1:    9:{
+        1:   10:  int r;
+        1:   11:  if (argc == 1)
+        1:   12:    r = 1;
+    #####:   13:  else if (argc == 2)
+    #####:   14:    r = 2;
+        -:   15:  else 
+    #####:   16:    r = 0;
+        1:   17:  return r;
+        -:   18:} 
+
+
 * Directory tracking
 
 Directories are matched via `compilation-directory-matcher'.  Files which are

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 078fe15fc8125b91280484fff6df0f7eecfb555e..ede4dc3940d9bb73c88c87867706b116c26c0384 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-04-10  Masatake YAMATO  <jet@gyve.org>
+
+       * progmodes/compile.el (compilation-error-regexp-alist-alist): Add
+       regexp for gcov.
+
 2005-04-06  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * calendar/time-date.el (time-to-seconds): Don't use the #xhhhh

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index 6df76e21472e0bd7afdc677fa23fb305a764c647..129a01f54989a42ff92c73e09c3eacbbeb4aa5f7 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -280,7 +280,18 @@ File = \\(.+\\), Line = \\([0-9]+\\)\\(?:, Column = \\([0-9]+\\)\\)?"
 
     (4bsd
      "\\(?:^\\|::  \\|\\S ( \\)\\(/[^ \n\t()]+\\)(\\([0-9]+\\))\
-\\(?:: \\(warning:\\)?\\|$\\| ),\\)" 1 2 nil (3)))
+\\(?:: \\(warning:\\)?\\|$\\| ),\\)" 1 2 nil (3))
+
+    (gcov-file
+     "^ +-:    \\(0\\):Source:\\(.+\\)$" 2 1 nil 0)    
+    (gcov-bb-file
+     "^ +-:    \\(0\\):Object:\\(?:.+\\)$" nil 1 nil 0)    
+    (gcov-never-called-line
+     "^ +\\(#####\\): +\\([0-9]+\\):.+$" nil 2 nil 2 nil 
+     (1 compilation-error-face))
+    (gcov-called-line
+     "^ +[-0-9]+: +\\([1-9]\\|[0-9]\\{2,\\}\\):.*$" nil 1 nil 0)
+)
   "Alist of values for `compilation-error-regexp-alist'.")
 
 (defcustom compilation-error-regexp-alist
@@ -1846,6 +1857,9 @@ FILE should be (ABSOLUTE-FILENAME) or (RELATIVE-FILENAME . DIRNAME)."
          ;; don't use a marker.  --Stef
          (if (> pos (point-min)) (copy-marker (1- pos)) pos))))
 
+;;;###autoload
+(add-to-list 'auto-mode-alist '("\\.gcov\\'" . compilation-mode))
+
 (provide 'compile)
 
 ;; arch-tag: 12465727-7382-4f72-b234-79855a00dd8c