procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

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

* progmodes/compile.el (compilation-error-regexp-alist-alist): Add
regexp for gcov.
This commit is contained in:
Masatake YAMATO 2005-04-10 06:19:31 +00:00
parent 9147257891
commit 0c9a01ff28
4 changed files with 51 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
etc/ChangeLog
View file

@ -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

26
etc/compilation.txt
View file

@ -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

5
lisp/ChangeLog
View file

@ -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

16
lisp/progmodes/compile.el
View file

@ -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