]>
Commit | Line | Data |
---|---|---|
f63ff66b | 1 | # Copyright (C) 1997, 1999, 2000, 2002, 2004, 2007 |
2 | # Free Software Foundation, Inc. | |
1b28399f | 3 | |
4 | # This program is free software; you can redistribute it and/or modify | |
5 | # it under the terms of the GNU General Public License as published by | |
f63ff66b | 6 | # the Free Software Foundation; either version 3 of the License, or |
1b28399f | 7 | # (at your option) any later version. |
8 | # | |
9 | # This program is distributed in the hope that it will be useful, | |
10 | # but WITHOUT ANY WARRANTY; without even the implied warranty of | |
11 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
12 | # GNU General Public License for more details. | |
13 | # | |
14 | # You should have received a copy of the GNU General Public License | |
f63ff66b | 15 | # along with GCC; see the file COPYING3. If not see |
16 | # <http://www.gnu.org/licenses/>. | |
1b28399f | 17 | |
18 | # Prune messages from gcc that aren't useful. | |
19 | ||
20 | proc prune_gcc_output { text } { | |
21 | #send_user "Before:$text\n" | |
22 | ||
b8c23db3 | 23 | regsub -all "(^|\n)(\[^\n\]*: )?In ((static member )?function|member|method|(copy )?constructor|destructor|instantiation|program|subroutine|block-data) \[^\n\]*" $text "" text |
873ae302 | 24 | regsub -all "(^|\n)\[^\n\]*: At (top level|global scope):\[^\n\]*" $text "" text |
a278084f | 25 | regsub -all "(^|\n)\[^\n\]*: instantiated from \[^\n\]*" $text "" text |
b8c23db3 | 26 | regsub -all "(^|\n) inlined from \[^\n\]*" $text "" text |
1b28399f | 27 | regsub -all "(^|\n)collect2: ld returned \[^\n\]*" $text "" text |
a278084f | 28 | regsub -all "(^|\n)collect: re(compiling|linking)\[^\n\]*" $text "" text |
8b036ce1 | 29 | regsub -all "(^|\n)Please submit.*instructions\[^\n\]*" $text "" text |
a278084f | 30 | regsub -all "(^|\n)\[0-9\]\[0-9\]* errors\." $text "" text |
1b28399f | 31 | |
a5606429 | 32 | # Ignore harmless -fpic warnings. |
c4979190 | 33 | regsub -all "(^|\n)\[^\n\]*: warning: -f(pic|PIC) ignored for target\[^\n\]*" $text "" text |
a5606429 | 34 | regsub -all "(^|\n)\[^\n\]*: warning: -f(pic|PIC)( and -fpic are| is)? not supported\[^\n\]*" $text "" text |
c4979190 | 35 | |
9994489f | 36 | # Ignore errata warning from IA64 assembler. |
37 | regsub -all "(^|\n)\[^\n\]*: Additional NOP may be necessary to workaround Itanium processor A/B step errata" $text "" text | |
38 | regsub -all "(^|\n)\[^\n*\]*: Assembler messages:\[^\n\]*" $text "" text | |
39 | ||
1b28399f | 40 | # It would be nice to avoid passing anything to gcc that would cause it to |
41 | # issue these messages (since ignoring them seems like a hack on our part), | |
42 | # but that's too difficult in the general case. For example, sometimes | |
43 | # you need to use -B to point gcc at crt0.o, but there are some targets | |
44 | # that don't have crt0.o. | |
45 | regsub -all "(^|\n)\[^\n\]*file path prefix \[^\n\]* never used" $text "" text | |
46 | regsub -all "(^|\n)\[^\n\]*linker input file unused since linking not done" $text "" text | |
47 | ||
48 | #send_user "After:$text\n" | |
49 | ||
50 | return $text | |
51 | } | |
52 | ||
53 | # Provide a definition of this if missing (delete after next dejagnu release). | |
54 | ||
55 | if { [info procs prune_warnings] == "" } then { | |
56 | proc prune_warnings { text } { | |
57 | return $text | |
58 | } | |
59 | } |