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

* lib/scanasm.exp (dg-scan): Quote pattern before display. 

From-SVN: r77715
This commit is contained in:
Nathaniel Smith 2004-02-12 17:47:47 +00:00 committed by Mark Mitchell
parent 7ea98c5a50
commit 9dfc74a3ca
2 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,7 @@
2004-02-12 Nathaniel Smith <njs@codesourcery.com>
* lib/scanasm.exp (dg-scan): Quote pattern before display.
2004-02-12 Hartmut Penner <hpenner@de.ibm.com>
* g++.dg/simd-2.C: xfail on ppc64-linux.

9
gcc/testsuite/lib/scanasm.exp
View File

@ -48,11 +48,14 @@ proc dg-scan { name positive testcase output_file orig_args } {
set text [read $fd]
close $fd
set match [regexp -- [lindex $orig_args 0] $text]
set pattern [lindex $orig_args 0]
set printable_pattern [string map {\t \\t \n \\n \r \\r \\ \\\\} $pattern]
set match [regexp -- $pattern $text]
if { $match == $positive } {
pass "$testcase $name [lindex $orig_args 0]"
pass "$testcase $name $printable_pattern"
} else {
fail "$testcase $name [lindex $orig_args 0]"
fail "$testcase $name $printable_pattern"
}
}