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

From-SVN: r77715

gcc/testsuite/ChangeLog

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

gcc/testsuite/lib/scanasm.exp

@@ -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"
     }
 }