[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