[svn:parrot] r43082 - in trunk/compilers/data_json: . data_json

[japhb at svn.parrot.org]

Author: japhb
Date: Wed Dec 16 04:15:20 2009
New Revision: 43082
URL: https://trac.parrot.org/parrot/changeset/43082

Log:
[data_json] Working but possibly suboptimal fix for TT #1326

Modified:
   trunk/compilers/data_json/data_json.pir
   trunk/compilers/data_json/data_json/pge2pir.tg

Modified: trunk/compilers/data_json/data_json.pir
==============================================================================
--- trunk/compilers/data_json/data_json.pir	Wed Dec 16 03:41:06 2009	(r43081)
+++ trunk/compilers/data_json/data_json.pir	Wed Dec 16 04:15:20 2009	(r43082)
@@ -45,7 +45,7 @@
     $P1['\r'] = "\r"
     $P1['\t'] = "\t"
 
-    set_hll_global '$escapes', $P1
+    set_root_global ['parrot'; 'data_json'], '$escapes', $P1
 .end
 
 

Modified: trunk/compilers/data_json/data_json/pge2pir.tg
==============================================================================
--- trunk/compilers/data_json/data_json/pge2pir.tg	Wed Dec 16 03:41:06 2009	(r43081)
+++ trunk/compilers/data_json/data_json/pge2pir.tg	Wed Dec 16 04:15:20 2009	(r43082)
@@ -183,7 +183,7 @@
     $S0 = chr $I0
     goto char
   escape:
-    $P0 = get_root_global [ 'JSON' ],  '$escapes'
+    $P0 = get_root_global ['parrot'; 'data_json'], '$escapes'
     $S0 = $P0[$S0]
   char:
     tmp .= $S0