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