+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.
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]
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]
}
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]
}
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]
}
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]