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:
parent
eb91632ffb
commit
408e9b9b23
|
@ -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>
|
2005-03-31 Jan Hubicka <jh@suse.cz>
|
||||||
|
|
||||||
* gcc.dg/varpool-1.c: New testcase.
|
* gcc.dg/varpool-1.c: New testcase.
|
||||||
|
|
|
@ -49,7 +49,8 @@ proc scan-tree-dump { args } {
|
||||||
upvar 2 name testcase
|
upvar 2 name testcase
|
||||||
|
|
||||||
# This must match the rule in gcc-dg.exp.
|
# 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 fd [open $output_file r]
|
||||||
set text [read $fd]
|
set text [read $fd]
|
||||||
|
@ -91,7 +92,8 @@ proc scan-tree-dump-times { args } {
|
||||||
upvar 2 name testcase
|
upvar 2 name testcase
|
||||||
|
|
||||||
# This must match the rule in gcc-dg.exp.
|
# 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 fd [open $output_file r]
|
||||||
set text [read $fd]
|
set text [read $fd]
|
||||||
|
@ -128,7 +130,8 @@ proc scan-tree-dump-not { args } {
|
||||||
}
|
}
|
||||||
|
|
||||||
upvar 2 name testcase
|
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 fd [open $output_file r]
|
||||||
set text [read $fd]
|
set text [read $fd]
|
||||||
|
@ -179,7 +182,8 @@ proc scan-tree-dump-dem { args } {
|
||||||
}
|
}
|
||||||
|
|
||||||
upvar 2 name testcase
|
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 fd [open "| $cxxfilt < $output_file" r]
|
||||||
set text [read $fd]
|
set text [read $fd]
|
||||||
|
@ -229,7 +233,8 @@ proc scan-tree-dump-dem-not { args } {
|
||||||
}
|
}
|
||||||
|
|
||||||
upvar 2 name testcase
|
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 fd [open "| $cxxfilt < $output_file" r]
|
||||||
set text [read $fd]
|
set text [read $fd]
|
||||||
|
|
Loading…
Reference in New Issue