OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

profopt.exp: Treat prof_ext as a list. 

* lib/profopt.exp: Treat prof_ext as a list.
	* gcc.misc-tests/bprob.exp: Ditto.
	* g++.dg/bprob/bprob.exp: Ditto.

From-SVN: r97343
This commit is contained in:
Janis Johnson 2005-03-31 18:36:30 +00:00 committed by Janis Johnson
parent 6491eb15e1
commit 1194911fff
4 changed files with 22 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/testsuite/ChangeLog
View File

@ -1,5 +1,9 @@
2005-03-31 Janis Johnson <janis187@us.ibm.com>
* lib/profopt.exp: Treat prof_ext as a list.
* gcc.misc-tests/bprob.exp: Ditto.
* g++.dg/bprob/bprob.exp: Ditto.
* g++.dg/opt/nothrow1.C: Use cleanup-tree-dump.
g++.dg/tree-ssa/empty-1.C, g++.dg/tree-ssa/nothrow-1.C,
g++.dg/tree-ssa/pointer-reference-alias.C,

2
gcc/testsuite/g++.dg/bprob/bprob.exp
View File

@ -27,7 +27,7 @@ if { ![check_profiling_available "-fprofile-arcs"] } {
# The procedures in profopt.exp need these parameters.
set tool g++
set prof_ext gcda
set prof_ext "gcda gcno"
if $tracelevel then {
strace $tracelevel

2
gcc/testsuite/gcc.misc-tests/bprob.exp
View File

@ -27,7 +27,7 @@ if { ![check_profiling_available "-fprofile-arcs"] } {
# The procedures in profopt.exp need these parameters.
set tool gcc
set prof_ext gcda
set prof_ext "gcda gcno"
set perf_ext tim
# Override the list defined in profopt.exp.

28
gcc/testsuite/lib/profopt.exp
View File

@ -38,7 +38,7 @@ if ![info exists tool] {
error "Tools is not specified."
}
if ![info exists prof_ext] {
error "No profile data file extension specified."
error "No profile data file extensions specified."
}
# The maximum perforance degradation can be defined in the including file.
@ -66,14 +66,16 @@ set prof_option_list $PROFOPT_OPTIONS
# profopt-cleanup -- remove profiling or performance results files.
#
# TESTCASE is the name of the test
# EXT is the extension of file to remove
# EXT is the extensions of files to remove
#
proc profopt-cleanup { testcase ext } {
proc profopt-cleanup { testcase extlist } {
set basename [file tail $testcase]
set base [file rootname $basename]
set files [glob -nocomplain $base.$ext]
if { $files != "" } {
eval "remote_file build delete $files"
foreach ext $extlist {
set files [glob -nocomplain $base.$ext]
if { $files != "" } {
eval "remote_file build delete $files"
}
}
}
@ -181,12 +183,14 @@ proc profopt-execute { src } {
if { $status == "pass" } {
set basename [file tail $testcase]
set base [file rootname $basename]
set files [glob -nocomplain $base.$prof_ext]
if { $files == "" } {
set status "fail"
fail "$testcase execution: file $base.$prof_ext does not exist, $option $profile_option"
} else {
$status "$testcase execution, $optstr"
foreach ext $prof_ext {
set files [glob -nocomplain $base.$ext]
if { $files == "" } {
set status "fail"
fail "$testcase execution: file $base.$ext does not exist, $option $profile_option"
} else {
$status "$testcase execution, $optstr"
}
}
} else {
$status "$testcase execution, $optstr"