Commit 891201a1 by Tom de Vries Committed by Tom de Vries

Add additional_sources_used

2015-02-24  Tom de Vries  <tom@codesourcery.com>

	PR testsuite/65126
	* lib/gcc-defs.exp (additional_sources_used): Add new var.
	(dg-additional-files-options): Copy additional_sources to
	additional_sources_used before emptying additional_sources.
	* lib/gcc-dg.exp (cleanup-coverage-files, cleanup-repo-files)
	(cleanup-stack-usage, cleanup-ada-spec, cleanup-dump)
	(cleanup-saved-temps): Use additional_sources_used instead of
	additional_sources.
	(dg-test): Reset additional_sources_used.

From-SVN: r220929
parent 781048da
2015-02-24 Tom de Vries <tom@codesourcery.com>
PR testsuite/65126
* lib/gcc-defs.exp (additional_sources_used): Add new var.
(dg-additional-files-options): Copy additional_sources to
additional_sources_used before emptying additional_sources.
* lib/gcc-dg.exp (cleanup-coverage-files, cleanup-repo-files)
(cleanup-stack-usage, cleanup-ada-spec, cleanup-dump)
(cleanup-saved-temps): Use additional_sources_used instead of
additional_sources.
(dg-test): Reset additional_sources_used.
2015-02-23 Richard Sandiford <richard.sandiford@arm.com> 2015-02-23 Richard Sandiford <richard.sandiford@arm.com>
PR fortran/63427 PR fortran/63427
......
...@@ -268,6 +268,7 @@ proc dg-additional-options { args } { ...@@ -268,6 +268,7 @@ proc dg-additional-options { args } {
# main source file. # main source file.
set additional_sources "" set additional_sources ""
set additional_sources_used ""
proc dg-additional-sources { args } { proc dg-additional-sources { args } {
global additional_sources global additional_sources
...@@ -290,6 +291,7 @@ proc dg-additional-files { args } { ...@@ -290,6 +291,7 @@ proc dg-additional-files { args } {
proc dg-additional-files-options { options source } { proc dg-additional-files-options { options source } {
global additional_sources global additional_sources
global additional_sources_used
global additional_files global additional_files
set to_download [list] set to_download [list]
if { $additional_sources != "" } then { if { $additional_sources != "" } then {
...@@ -301,6 +303,7 @@ proc dg-additional-files-options { options source } { ...@@ -301,6 +303,7 @@ proc dg-additional-files-options { options source } {
lappend options "additional_flags=$additional_sources" lappend options "additional_flags=$additional_sources"
} }
set to_download [concat $to_download $additional_sources] set to_download [concat $to_download $additional_sources]
set additional_sources_used "$additional_sources"
set additional_sources "" set additional_sources ""
} }
if { $additional_files != "" } then { if { $additional_files != "" } then {
......
...@@ -495,14 +495,15 @@ proc cleanup-profile-file { } { ...@@ -495,14 +495,15 @@ proc cleanup-profile-file { } {
# Remove compiler-generated coverage files for the current test. # Remove compiler-generated coverage files for the current test.
proc cleanup-coverage-files { } { proc cleanup-coverage-files { } {
global additional_sources_used
set testcase [testname-for-summary] set testcase [testname-for-summary]
# The name might include a list of options; extract the file name. # The name might include a list of options; extract the file name.
set testcase [lindex $testcase 0] set testcase [lindex $testcase 0]
remove-build-file "[file rootname [file tail $testcase]].gc??" remove-build-file "[file rootname [file tail $testcase]].gc??"
# Clean up coverage files for additional source files. # Clean up coverage files for additional source files.
if [info exists additional_sources] { if [info exists additional_sources_used] {
foreach srcfile $additional_sources { foreach srcfile $additional_sources_used {
remove-build-file "[file rootname [file tail $srcfile]].gc??" remove-build-file "[file rootname [file tail $srcfile]].gc??"
} }
} }
...@@ -510,6 +511,7 @@ proc cleanup-coverage-files { } { ...@@ -510,6 +511,7 @@ proc cleanup-coverage-files { } {
# Remove compiler-generated files from -repo for the current test. # Remove compiler-generated files from -repo for the current test.
proc cleanup-repo-files { } { proc cleanup-repo-files { } {
global additional_sources_used
set testcase [testname-for-summary] set testcase [testname-for-summary]
# The name might include a list of options; extract the file name. # The name might include a list of options; extract the file name.
set testcase [lindex $testcase 0] set testcase [lindex $testcase 0]
...@@ -517,8 +519,8 @@ proc cleanup-repo-files { } { ...@@ -517,8 +519,8 @@ proc cleanup-repo-files { } {
remove-build-file "[file rootname [file tail $testcase]].rpo" remove-build-file "[file rootname [file tail $testcase]].rpo"
# Clean up files for additional source files. # Clean up files for additional source files.
if [info exists additional_sources] { if [info exists additional_sources_used] {
foreach srcfile $additional_sources { foreach srcfile $additional_sources_used {
remove-build-file "[file rootname [file tail $srcfile]].o" remove-build-file "[file rootname [file tail $srcfile]].o"
remove-build-file "[file rootname [file tail $srcfile]].rpo" remove-build-file "[file rootname [file tail $srcfile]].rpo"
} }
...@@ -554,8 +556,8 @@ proc cleanup-stack-usage { } { ...@@ -554,8 +556,8 @@ proc cleanup-stack-usage { } {
remove-build-file "[file rootname [file tail $testcase]].su" remove-build-file "[file rootname [file tail $testcase]].su"
# Clean up files for additional source files. # Clean up files for additional source files.
if [info exists additional_sources] { if [info exists additional_sources_used] {
foreach srcfile $additional_sources { foreach srcfile $additional_sources_used {
remove-build-file "[file rootname [file tail $srcfile]].su" remove-build-file "[file rootname [file tail $srcfile]].su"
} }
} }
...@@ -563,12 +565,13 @@ proc cleanup-stack-usage { } { ...@@ -563,12 +565,13 @@ proc cleanup-stack-usage { } {
# Remove an Ada spec file for the current test. # Remove an Ada spec file for the current test.
proc cleanup-ada-spec { } { proc cleanup-ada-spec { } {
global additional_sources_used
set testcase [testname-for-summary] set testcase [testname-for-summary]
remove-build-file "[get_ada_spec_filename $testcase]" remove-build-file "[get_ada_spec_filename $testcase]"
# Clean up files for additional source files. # Clean up files for additional source files.
if [info exists additional_sources] { if [info exists additional_sources_used] {
foreach srcfile $additional_sources { foreach srcfile $additional_sources_used {
remove-build-file "[get_ada_spec_filename $srcfile]" remove-build-file "[get_ada_spec_filename $srcfile]"
} }
} }
...@@ -576,6 +579,7 @@ proc cleanup-ada-spec { } { ...@@ -576,6 +579,7 @@ proc cleanup-ada-spec { } {
# Remove all dump files with the provided suffix. # Remove all dump files with the provided suffix.
proc cleanup-dump { suffix } { proc cleanup-dump { suffix } {
global additional_sources_used
set testcase [testname-for-summary] set testcase [testname-for-summary]
# The name might include a list of options; extract the file name. # The name might include a list of options; extract the file name.
set src [file tail [lindex $testcase 0]] set src [file tail [lindex $testcase 0]]
...@@ -586,8 +590,8 @@ proc cleanup-dump { suffix } { ...@@ -586,8 +590,8 @@ proc cleanup-dump { suffix } {
remove-build-file "[file tail $src].gk.$suffix" remove-build-file "[file tail $src].gk.$suffix"
# Clean up dump files for additional source files. # Clean up dump files for additional source files.
if [info exists additional_sources] { if [info exists additional_sources_used] {
foreach srcfile $additional_sources { foreach srcfile $additional_sources_used {
remove-build-file "[file tail $srcfile].$suffix" remove-build-file "[file tail $srcfile].$suffix"
remove-build-file "[file rootname [file tail $srcfile]].exe.$suffix" remove-build-file "[file rootname [file tail $srcfile]].exe.$suffix"
remove-build-file "[file rootname [file tail $srcfile]].exe.ltrans\[0-9\]*.$suffix" remove-build-file "[file rootname [file tail $srcfile]].exe.ltrans\[0-9\]*.$suffix"
...@@ -603,7 +607,7 @@ proc cleanup-dump { suffix } { ...@@ -603,7 +607,7 @@ proc cleanup-dump { suffix } {
# if there are tests generating them. # if there are tests generating them.
# ARGS is a list of suffixes to NOT delete. # ARGS is a list of suffixes to NOT delete.
proc cleanup-saved-temps { args } { proc cleanup-saved-temps { args } {
global additional_sources global additional_sources_used
set suffixes {} set suffixes {}
# add the to-be-kept suffixes # add the to-be-kept suffixes
...@@ -625,8 +629,8 @@ proc cleanup-saved-temps { args } { ...@@ -625,8 +629,8 @@ proc cleanup-saved-temps { args } {
} }
# Clean up saved temp files for additional source files. # Clean up saved temp files for additional source files.
if [info exists additional_sources] { if [info exists additional_sources_used] {
foreach srcfile $additional_sources { foreach srcfile $additional_sources_used {
foreach suffix $suffixes { foreach suffix $suffixes {
remove-build-file "[file rootname [file tail $srcfile]]$suffix" remove-build-file "[file rootname [file tail $srcfile]]$suffix"
remove-build-file "[file rootname [file tail $srcfile]].exe$suffix" remove-build-file "[file rootname [file tail $srcfile]].exe$suffix"
...@@ -746,6 +750,7 @@ if { [info procs saved-dg-test] == [list] } { ...@@ -746,6 +750,7 @@ if { [info procs saved-dg-test] == [list] } {
set saved_info $errorInfo set saved_info $errorInfo
set additional_files "" set additional_files ""
set additional_sources "" set additional_sources ""
set additional_sources_used ""
set additional_prunes "" set additional_prunes ""
set shouldfail 0 set shouldfail 0
if [info exists compiler_conditional_xfail_data] { if [info exists compiler_conditional_xfail_data] {
...@@ -759,6 +764,7 @@ if { [info procs saved-dg-test] == [list] } { ...@@ -759,6 +764,7 @@ if { [info procs saved-dg-test] == [list] } {
} }
set additional_files "" set additional_files ""
set additional_sources "" set additional_sources ""
set additional_sources_used ""
set additional_prunes "" set additional_prunes ""
set shouldfail 0 set shouldfail 0
if [info exists set_target_env_var] { if [info exists set_target_env_var] {
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment