gcc-dg.exp (dg_runtest_extra_prunes): New variable to define extra prune rules that will be applied to all tests in a...

2012-09-19  Terry Guo  <terry.guo@arm.com>

        * lib/gcc-dg.exp (dg_runtest_extra_prunes): New variable to define
        extra prune rules that will be applied to all tests in a .exp file.
        (gcc-dg-prune): Use rules defined by the above variable.
        * gcc.target/arm/arm.exp (dg_runtest_extra_prunes): Skip all the
        harmless warnings on architecture switch conflict.

From-SVN: r191460
This commit is contained in:
Terry Guo 2012-09-19 05:17:22 +00:00 committed by Xuepeng Guo
parent 9425c00b8e
commit 06e28db05e
3 changed files with 20 additions and 1 deletions

View File

@ -1,3 +1,11 @@
2012-09-19 Terry Guo <terry.guo@arm.com>
* lib/gcc-dg.exp (dg_runtest_extra_prunes): New variable to define
extra prune rules that will be applied to all tests in a .exp file.
(gcc-dg-prune): Use rules defined by the above variable.
* gcc.target/arm/arm.exp (dg_runtest_extra_prunes): Skip all the
harmless warnings on architecture switch conflict.
2012-09-19 Hans-Peter Nilsson <hp@axis.com>
* g++.dg/debug/dwarf2/nested-3.C: Match a sequence

View File

@ -30,6 +30,11 @@ if ![info exists DEFAULT_CFLAGS] then {
set DEFAULT_CFLAGS " -ansi -pedantic-errors"
}
# This variable should only apply to tests called in this exp file.
global dg_runtest_extra_prunes
set dg_runtest_extra_prunes ""
lappend dg_runtest_extra_prunes "warning: switch -m(cpu|arch)=.* conflicts with -m(cpu|arch)=.* switch"
# Initialize `dg'.
dg-init
@ -38,4 +43,5 @@ dg-runtest [lsort [glob -nocomplain $srcdir/$subdir/*.\[cCS\]]] \
"" $DEFAULT_CFLAGS
# All done.
set dg_runtest_extra_prunes ""
dg-finish

View File

@ -212,9 +212,13 @@ proc gcc-dg-test { prog do_what extra_tool_flags } {
proc gcc-dg-prune { system text } {
global additional_prunes
# Extra prune rules that will apply to tests defined in a .exp file.
# Always remember to clear it in .exp file after executed all tests.
global dg_runtest_extra_prunes
set text [prune_gcc_output $text]
foreach p $additional_prunes {
foreach p "$additional_prunes $dg_runtest_extra_prunes" {
if { [string length $p] > 0 } {
# Following regexp matches a complete line containing $p.
regsub -all "(^|\n)\[^\n\]*$p\[^\n\]*" $text "" text
@ -803,3 +807,4 @@ proc gdb-exists { args } {
}
set additional_prunes ""
set dg_runtest_extra_prunes ""