[svn:parrot] r46288 - trunk/tools/dev

[bacek at svn.parrot.org]

Author: bacek
Date: Tue May  4 21:54:44 2010
New Revision: 46288
URL: https://trac.parrot.org/parrot/changeset/46288

Log:
Earely join codestring to avoid too much memory consumption in pbc_to_exe

Modified:
   trunk/tools/dev/pbc_to_exe.pir

Modified: trunk/tools/dev/pbc_to_exe.pir
==============================================================================
--- trunk/tools/dev/pbc_to_exe.pir	Tue May  4 21:42:31 2010	(r46287)
+++ trunk/tools/dev/pbc_to_exe.pir	Tue May  4 21:54:44 2010	(r46288)
@@ -248,6 +248,10 @@
     push codestring, "\n"
     goto code_loop
   code_done:
+    # Join current strings to avoid storing too much
+    $S0 = join '', codestring
+    codestring = 0
+    push codestring, $S0
     goto read_loop
 
   read_done:
@@ -343,6 +347,10 @@
     push codestring, '"'
     goto code_loop
   code_done:
+    # Join current strings to avoid storing too much
+    $S0 = join '', codestring
+    codestring = 0
+    push codestring, $S0
     goto read_loop
 
   read_done: