[svn:parrot] r46747 - branches/pbc_to_exe_direct_output/tools/dev
Util at svn.parrot.org
Util at svn.parrot.org
Mon May 17 21:57:42 UTC 2010
Author: Util
Date: Mon May 17 21:57:41 2010
New Revision: 46747
URL: https://trac.parrot.org/parrot/changeset/46747
Log:
Add outfh to the parameters of all the generate_* subs.
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 21:17:44 2010 (r46746)
+++ branches/pbc_to_exe_direct_output/tools/dev/pbc_to_exe.pir Mon May 17 21:57:41 2010 (r46747)
@@ -53,13 +53,13 @@
if code_type == 'msvc' goto code_for_msvc
goto code_for_default
code_for_gcc:
- codestring = 'generate_code_gcc'(infile)
+ codestring = 'generate_code_gcc'(infile, outfh)
goto code_end
code_for_msvc:
- codestring = 'generate_code_msvc'(infile)
+ codestring = 'generate_code_msvc'(infile, outfh)
goto code_end
code_for_default:
- codestring = 'generate_code'(infile)
+ codestring = 'generate_code'(infile, outfh)
code_end:
@@ -214,6 +214,7 @@
.sub 'generate_code'
.param string infile
+ .param pmc outfh
.local pmc ifh
ifh = open infile, 'r'
unless ifh goto err_infile
@@ -303,6 +304,7 @@
.sub 'generate_code_gcc'
.param string infile
+ .param pmc outfh
.local pmc ifh
ifh = open infile, 'r'
unless ifh goto err_infile
@@ -407,6 +409,7 @@
# this sub creates supplemental .rc and .RES files.
.sub 'generate_code_msvc'
.param string pbc_path
+ .param pmc outfh
.local string rc_path
.local string res_path
More information about the parrot-commits
mailing list