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

[Util at svn.parrot.org]

Author: Util
Date: Mon May 17 21:17:44 2010
New Revision: 46746
URL: https://trac.parrot.org/parrot/changeset/46746

Log:
Move the open() of outfh to before the generation of the large PBC string.

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 20:45:00 2010	(r46745)
+++ branches/pbc_to_exe_direct_output/tools/dev/pbc_to_exe.pir	Mon May 17 21:17:44 2010	(r46746)
@@ -35,6 +35,16 @@
     (infile :optional, cfile :optional, objfile :optional, exefile :optional) = 'handle_args'(argv)
     unless infile > '' goto err_infile
 
+  open_outfile:
+    .local pmc outfh
+    outfh = open cfile, 'w'
+    unless outfh goto err_outfh
+    print outfh, <<'HEADER'
+#include "parrot/parrot.h"
+#include "parrot/embed.h"
+const void * get_program_code(void);
+HEADER
+
     .local string code_type
     code_type = 'determine_code_type'()
 
@@ -53,16 +63,6 @@
   code_end:
 
 
-  open_outfile:
-    .local pmc outfh
-    outfh = open cfile, 'w'
-    unless outfh goto err_outfh
-    print outfh, <<'HEADER'
-#include "parrot/parrot.h"
-#include "parrot/embed.h"
-const void * get_program_code(void);
-HEADER
-
     print outfh, codestring
 
     print outfh, <<'MAIN'