[svn:parrot] r45831 - trunk/src

[NotFound at svn.parrot.org]

Author: NotFound
Date: Tue Apr 20 21:15:54 2010
New Revision: 45831
URL: https://trac.parrot.org/parrot/changeset/45831

Log:
dirty workaround for TT #1557

Modified:
   trunk/src/debug.c

Modified: trunk/src/debug.c
==============================================================================
--- trunk/src/debug.c	Tue Apr 20 21:09:46 2010	(r45830)
+++ trunk/src/debug.c	Tue Apr 20 21:15:54 2010	(r45831)
@@ -2199,7 +2199,14 @@
             *(fill++) = '"';
             break;
           default:
-            *(fill++) = *string;
+            /* Hide non-ascii chars that may come from utf8 or latin-1
+             * strings in constant strings.
+             * Workaround for TT #1557
+             */
+            if ((unsigned char)*string > 127)
+                *(fill++) = '?';
+            else
+                *(fill++) = *string;
             break;
         }
     }