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,
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.
# 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"
+ }
}
}
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"