mirrors/gcc
0
0
Fork 0
mirror of https://gcc.gnu.org/git/gcc.git synced 2024-12-29 22:15:03 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

profopt.exp (profopt-execute): Check for profiling data files on the target.

Browse Source 
* lib/profopt.exp (profopt-execute): Check for profiling data
        files on the target.

From-SVN: r102366
This commit is contained in:
Adam Nemet 2005-07-25 18:55:29 +00:00 committed by Adam Nemet
parent 1490f93a3c
commit 334a03fd1e
2 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2005-07-25 Adam Nemet <anemet@lnxw.com>
* lib/profopt.exp (profopt-execute): Check for profiling data
files on the target.
2005-07-25 Richard Guenther <rguenther@gcc.gnu.org> 2005-07-25 Richard Guenther <rguenther@gcc.gnu.org>
* gcc.dg/tree-ssa/flatten-1.c: Use longer function names * gcc.dg/tree-ssa/flatten-1.c: Use longer function names

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

@ -231,6 +231,8 @@ proc profopt-execute { src } {
} }
set executable $tmpdir/[file tail [file rootname $src].x] set executable $tmpdir/[file tail [file rootname $src].x]
set basename [file tail $testcase]
set base [file rootname $basename]
set count 0 set count 0
foreach option $prof_option_list { foreach option $prof_option_list {
@ -245,7 +247,9 @@ proc profopt-execute { src } {
verbose "Testing $testcase, $option" 1 verbose "Testing $testcase, $option" 1
# Remove old profiling and performance data files. # Remove old profiling and performance data files.
profopt-cleanup $testcase $prof_ext foreach ext $prof_ext {
remote_file target delete $tmpdir/$base.$ext
}
if [info exists perf_ext] { if [info exists perf_ext] {
profopt-cleanup $testcase $perf_ext profopt-cleanup $testcase $perf_ext
} }
@ -282,9 +286,8 @@ proc profopt-execute { src } {
set missing_file 0 set missing_file 0
# Make sure the profile data was generated, and fail if not. # Make sure the profile data was generated, and fail if not.
if { $status == "pass" } { if { $status == "pass" } {
set basename [file tail $testcase]
set base [file rootname $basename]
foreach ext $prof_ext { foreach ext $prof_ext {
remote_upload target $tmpdir/$base.$ext
set files [glob -nocomplain $base.$ext] set files [glob -nocomplain $base.$ext]
if { $files == "" } { if { $files == "" } {
set status "fail" set status "fail"
@ -335,7 +338,9 @@ proc profopt-execute { src } {
} }
# Remove the profiling data files. # Remove the profiling data files.
profopt-cleanup $testcase $prof_ext foreach ext $prof_ext {
remote_file target delete $tmpdir/$base.$ext
}
if { $status != "pass" } { if { $status != "pass" } {
continue continue