[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