This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[tree-ssa] scantree.exp patchlet
- From: law at redhat dot com
- To: gcc-patches at gcc dot gnu dot org
- Date: Thu, 10 Jul 2003 17:20:03 -0600
- Subject: [tree-ssa] scantree.exp patchlet
- Reply-to: law at redhat dot com
Apparently I fixed scan-tree-dump-times to glob the output filename, but
none of the other routines. Of course when I started to use the other
routines in some tests I'm writing they failed miserably. Whee.
* lib/scantree.exp: Always glob the output file.
Index: lib/scantree.exp
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/lib/Attic/scantree.exp,v
retrieving revision 1.1.2.1
diff -c -3 -p -r1.1.2.1 scantree.exp
*** lib/scantree.exp 11 Jun 2003 14:05:21 -0000 1.1.2.1
--- lib/scantree.exp 10 Jul 2003 23:18:53 -0000
*************** proc scan-tree-dump { args } {
*** 49,55 ****
upvar 2 name testcase
# This must match the rule in gcc-dg.exp.
! set output_file "[file tail $testcase].t??.[lindex $args 1]"
set fd [open $output_file r]
set text [read $fd]
--- 49,55 ----
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 fd [open $output_file r]
set text [read $fd]
*************** proc scan-tree-dump-not { args } {
*** 128,134 ****
}
upvar 2 name testcase
! set output_file "[file tail $testcase].t??.[lindex $args 1]"
set fd [open $output_file r]
set text [read $fd]
--- 128,134 ----
}
upvar 2 name testcase
! set output_file "[glob [file tail $testcase].t??.[lindex $args 1]]"
set fd [open $output_file r]
set text [read $fd]
*************** proc scan-tree-dump-dem { args } {
*** 179,185 ****
}
upvar 2 name testcase
! set output_file "[file tail $testcase].t??.[lindex $args 1]"
set fd [open "| $cxxfilt < $output_file" r]
set text [read $fd]
--- 179,185 ----
}
upvar 2 name testcase
! set output_file "[glob [file tail $testcase].t??.[lindex $args 1]]"
set fd [open "| $cxxfilt < $output_file" r]
set text [read $fd]
*************** proc scan-tree-dump-dem-not { args } {
*** 229,235 ****
}
upvar 2 name testcase
! set output_file "[file tail $testcase].t??.[lindex $args 1]"
set fd [open "| $cxxfilt < $output_file" r]
set text [read $fd]
--- 229,235 ----
}
upvar 2 name testcase
! set output_file "[glob [file tail $testcase].t??.[lindex $args 1]]"
set fd [open "| $cxxfilt < $output_file" r]
set text [read $fd]
Index: lib/scantree.exp
===================================================================
RCS file: /cvs/gcc/gcc/gcc/testsuite/lib/Attic/scantree.exp,v
retrieving revision 1.1.2.1
diff -c -3 -p -r1.1.2.1 scantree.exp
*** lib/scantree.exp 11 Jun 2003 14:05:21 -0000 1.1.2.1
--- lib/scantree.exp 10 Jul 2003 23:18:53 -0000
*************** proc scan-tree-dump { args } {
*** 49,55 ****
upvar 2 name testcase
# This must match the rule in gcc-dg.exp.
! set output_file "[file tail $testcase].t??.[lindex $args 1]"
set fd [open $output_file r]
set text [read $fd]
--- 49,55 ----
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 fd [open $output_file r]
set text [read $fd]
*************** proc scan-tree-dump-not { args } {
*** 128,134 ****
}
upvar 2 name testcase
! set output_file "[file tail $testcase].t??.[lindex $args 1]"
set fd [open $output_file r]
set text [read $fd]
--- 128,134 ----
}
upvar 2 name testcase
! set output_file "[glob [file tail $testcase].t??.[lindex $args 1]]"
set fd [open $output_file r]
set text [read $fd]
*************** proc scan-tree-dump-dem { args } {
*** 179,185 ****
}
upvar 2 name testcase
! set output_file "[file tail $testcase].t??.[lindex $args 1]"
set fd [open "| $cxxfilt < $output_file" r]
set text [read $fd]
--- 179,185 ----
}
upvar 2 name testcase
! set output_file "[glob [file tail $testcase].t??.[lindex $args 1]]"
set fd [open "| $cxxfilt < $output_file" r]
set text [read $fd]
*************** proc scan-tree-dump-dem-not { args } {
*** 229,235 ****
}
upvar 2 name testcase
! set output_file "[file tail $testcase].t??.[lindex $args 1]"
set fd [open "| $cxxfilt < $output_file" r]
set text [read $fd]
--- 229,235 ----
}
upvar 2 name testcase
! set output_file "[glob [file tail $testcase].t??.[lindex $args 1]]"
set fd [open "| $cxxfilt < $output_file" r]
set text [read $fd]