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

4 files changed, 22 insertions, 14 deletions

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 2b5f2d0..6c6043e 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -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,
diff --git a/gcc/testsuite/g++.dg/bprob/bprob.exp b/gcc/testsuite/g++.dg/bprob/bprob.exp
index 90cb99a..a6557c3 100644
--- a/gcc/testsuite/g++.dg/bprob/bprob.exp
+++ b/gcc/testsuite/g++.dg/bprob/bprob.exp
@@ -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
diff --git a/gcc/testsuite/gcc.misc-tests/bprob.exp b/gcc/testsuite/gcc.misc-tests/bprob.exp
index 554bf76..28cebbd 100644
--- a/gcc/testsuite/gcc.misc-tests/bprob.exp
+++ b/gcc/testsuite/gcc.misc-tests/bprob.exp
@@ -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.
diff --git a/gcc/testsuite/lib/profopt.exp b/gcc/testsuite/lib/profopt.exp
index 8b74967..b24dfff 100644
--- a/gcc/testsuite/lib/profopt.exp
+++ b/gcc/testsuite/lib/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,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"