OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

scantree.exp (scan-tree-dump, [...]): Strip options from test name. 

* lib/scantree.exp (scan-tree-dump, scan-tree-dump-times,
	scan-tree-dump-not, scan-tree-dump-dem, scan-tree-dump-dem-not):
	Strip options from test name.

From-SVN: r97298
This commit is contained in:
Janis Johnson 2005-03-31 00:28:49 +00:00 committed by Janis Johnson
parent eb91632ffb
commit 408e9b9b23
2 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,9 @@
2005-03-30 Janis Johnson <janis187@us.ibm.com>
* lib/scantree.exp (scan-tree-dump, scan-tree-dump-times,
scan-tree-dump-not, scan-tree-dump-dem, scan-tree-dump-dem-not):
Strip options from test name.
2005-03-31 Jan Hubicka <jh@suse.cz>
* gcc.dg/varpool-1.c: New testcase.

15
gcc/testsuite/lib/scantree.exp
View File

@ -49,7 +49,8 @@ proc scan-tree-dump { args } {
upvar 2 name testcase
# This must match the rule in gcc-dg.exp.
set output_file "[glob [file tail $testcase].t??.[lindex $args 1]]"
set src [file tail [lindex $testcase 0]]
set output_file "[glob $src.t??.[lindex $args 1]]"
set fd [open $output_file r]
set text [read $fd]
@ -91,7 +92,8 @@ proc scan-tree-dump-times { args } {
upvar 2 name testcase
# This must match the rule in gcc-dg.exp.
set output_file "[glob [file tail $testcase].t??.[lindex $args 2]]"
set src [file tail [lindex $testcase 0]]
set output_file "[glob $src.t??.[lindex $args 2]]"
set fd [open $output_file r]
set text [read $fd]
@ -128,7 +130,8 @@ proc scan-tree-dump-not { args } {
}
upvar 2 name testcase
set output_file "[glob [file tail $testcase].t??.[lindex $args 1]]"
set src [file tail [lindex $testcase 0]]
set output_file "[glob $src.t??.[lindex $args 1]]"
set fd [open $output_file r]
set text [read $fd]
@ -179,7 +182,8 @@ proc scan-tree-dump-dem { args } {
}
upvar 2 name testcase
set output_file "[glob [file tail $testcase].t??.[lindex $args 1]]"
set src [file tail [lindex $testcase 0]]
set output_file "[glob $src.t??.[lindex $args 1]]"
set fd [open "| $cxxfilt < $output_file" r]
set text [read $fd]
@ -229,7 +233,8 @@ proc scan-tree-dump-dem-not { args } {
}
upvar 2 name testcase
set output_file "[glob [file tail $testcase].t??.[lindex $args 1]]"
set src [file tail [lindex $testcase 0]]
set output_file "[glob $src.t??.[lindex $args 1]]"
set fd [open "| $cxxfilt < $output_file" r]
set text [read $fd]