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:
parent
6491eb15e1
commit
1194911fff
|
@ -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,
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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.
|
||||
|
|
|
@ -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,16 +66,18 @@ 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]
|
||||
foreach ext $extlist {
|
||||
set files [glob -nocomplain $base.$ext]
|
||||
if { $files != "" } {
|
||||
eval "remote_file build delete $files"
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
#
|
||||
# profopt-perf-value -- get performance value for a test
|
||||
|
@ -181,13 +183,15 @@ proc profopt-execute { src } {
|
|||
if { $status == "pass" } {
|
||||
set basename [file tail $testcase]
|
||||
set base [file rootname $basename]
|
||||
set files [glob -nocomplain $base.$prof_ext]
|
||||
foreach ext $prof_ext {
|
||||
set files [glob -nocomplain $base.$ext]
|
||||
if { $files == "" } {
|
||||
set status "fail"
|
||||
fail "$testcase execution: file $base.$prof_ext does not exist, $option $profile_option"
|
||||
fail "$testcase execution: file $base.$ext does not exist, $option $profile_option"
|
||||
} else {
|
||||
$status "$testcase execution, $optstr"
|
||||
}
|
||||
}
|
||||
} else {
|
||||
$status "$testcase execution, $optstr"
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue