| Line 405... |
Line 405... |
proc cleanup-coverage-files { } {
|
proc cleanup-coverage-files { } {
|
# This assumes that we are two frames down from dg-test or some other proc
|
# This assumes that we are two frames down from dg-test or some other proc
|
# that stores the filename of the testcase in a local variable "name".
|
# that stores the filename of the testcase in a local variable "name".
|
# A cleaner solution would require a new DejaGnu release.
|
# A cleaner solution would require a new DejaGnu release.
|
upvar 2 name testcase
|
upvar 2 name testcase
|
|
# The name might include a list of options; extract the file name.
|
|
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] {
|
foreach srcfile $additional_sources {
|
foreach srcfile $additional_sources {
|
| Line 421... |
Line 423... |
proc cleanup-repo-files { } {
|
proc cleanup-repo-files { } {
|
# This assumes that we are two frames down from dg-test or some other proc
|
# This assumes that we are two frames down from dg-test or some other proc
|
# that stores the filename of the testcase in a local variable "name".
|
# that stores the filename of the testcase in a local variable "name".
|
# A cleaner solution would require a new DejaGnu release.
|
# A cleaner solution would require a new DejaGnu release.
|
upvar 2 name testcase
|
upvar 2 name testcase
|
|
# The name might include a list of options; extract the file name.
|
|
set testcase [lindex $testcase 0]]
|
remove-build-file "[file rootname [file tail $testcase]].o"
|
remove-build-file "[file rootname [file tail $testcase]].o"
|
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] {
|
| Line 496... |
Line 500... |
|
|
# This assumes that we are two frames down from dg-test or some other proc
|
# This assumes that we are two frames down from dg-test or some other proc
|
# that stores the filename of the testcase in a local variable "name".
|
# that stores the filename of the testcase in a local variable "name".
|
# A cleaner solution would require a new DejaGnu release.
|
# A cleaner solution would require a new DejaGnu release.
|
upvar 2 name testcase
|
upvar 2 name testcase
|
|
# The name might include a list of options; extract the file name.
|
|
set testcase [lindex $testcase 0]]
|
foreach suffix $suffixes {
|
foreach suffix $suffixes {
|
remove-build-file "[file rootname [file tail $testcase]]$suffix"
|
remove-build-file "[file rootname [file tail $testcase]]$suffix"
|
# -fcompare-debug dumps
|
# -fcompare-debug dumps
|
remove-build-file "[file rootname [file tail $testcase]].gk$suffix"
|
remove-build-file "[file rootname [file tail $testcase]].gk$suffix"
|
}
|
}
|
