Author: pmichaud
Date: Mon Nov 14 14:44:27 2005
New Revision: 9977
Modified:
trunk/compilers/pge/PGE/Exp.pir
Log:
Fixed "escape" method to return strings as ascii, instead
of retaining whatever encoding they previously had.
Modified: trunk/compilers/pge/PGE/Exp.pir
==============================================================================
--- trunk/compilers/pge/PGE/Exp.pir (original)
+++ trunk/compilers/pge/PGE/Exp.pir Mon Nov 14 14:44:27 2005
@@ -139,6 +139,8 @@ won't be a problem, but is the use of th
.param string str
$P0 = find_global "Data::Escape", "String"
str = $P0(str, '"')
+ $I0 = find_charset "ascii"
+ trans_charset str, $I0
str = concat '"', str
str = concat str, '"'
$I0 = index str, "\\x"
