[svn:parrot] r46753 - branches/pbc_to_exe_direct_output/tools/dev

Util at svn.parrot.org Util at svn.parrot.org
Mon May 17 22:31:42 UTC 2010


Author: Util
Date: Mon May 17 22:31:41 2010
New Revision: 46753
URL: https://trac.parrot.org/parrot/changeset/46753

Log:
Remove codestring StringBuilder.

Modified:
   branches/pbc_to_exe_direct_output/tools/dev/pbc_to_exe.pir

Modified: branches/pbc_to_exe_direct_output/tools/dev/pbc_to_exe.pir
==============================================================================
--- branches/pbc_to_exe_direct_output/tools/dev/pbc_to_exe.pir	Mon May 17 22:27:13 2010	(r46752)
+++ branches/pbc_to_exe_direct_output/tools/dev/pbc_to_exe.pir	Mon May 17 22:31:41 2010	(r46753)
@@ -48,23 +48,20 @@
     .local string code_type
     code_type = 'determine_code_type'()
 
-    .local string codestring
     if code_type == 'gcc'  goto code_for_gcc
     if code_type == 'msvc' goto code_for_msvc
     goto code_for_default
   code_for_gcc:
-    codestring = 'generate_code_gcc'(infile, outfh)
+    'generate_code_gcc'(infile, outfh)
     goto code_end
   code_for_msvc:
-    codestring = 'generate_code_msvc'(infile, outfh)
+    'generate_code_msvc'(infile, outfh)
     goto code_end
   code_for_default:
-    codestring = 'generate_code'(infile, outfh)
+    'generate_code'(infile, outfh)
   code_end:
 
 
-    print outfh, codestring
-
     print outfh, <<'MAIN'
         int main(int argc, const char *argv[])
         {
@@ -219,10 +216,8 @@
     ifh = open infile, 'r'
     unless ifh goto err_infile
 
-    .local pmc codestring
     .local int size
 
-    codestring = new [ 'StringBuilder' ]
     print outfh, "const Parrot_UInt1 program_code[] = {"
     size = 0
 
@@ -265,7 +260,6 @@
         }
 END_OF_FUNCTION
 
-    $S0 = codestring
     .return ()
 
   err_infile:
@@ -312,11 +306,8 @@
     .local pmc encoding_table
     encoding_table = 'generate_encoding_table'()
 
-    .local pmc codestring
     .local int size
 
-    codestring = new ['StringBuilder']
-
     print outfh, "const char * program_code =\n"
     print outfh, '"'
     size = 0
@@ -364,7 +355,6 @@
         }
 END_OF_FUNCTION
 
-    $S0 = codestring
     .return ()
 
   err_infile:
@@ -447,8 +437,6 @@
     pbc_size = $P2[7]
 
 
-    .local pmc codestring
-    codestring  = new [ 'StringBuilder' ]
     print outfh, "#include <windows.h>\n"
     print outfh, rc_constant_defines
     print outfh, "const unsigned int bytecode_size = "
@@ -500,7 +488,7 @@
     die "RC command failed"
 
   rc_ok:
-    $S0 = codestring
+
     .return ()
 
   err_h_open:


More information about the parrot-commits mailing list