[svn:parrot] r40034 - in trunk: compilers/tge include/parrot

[NotFound at svn.parrot.org]

Author: NotFound
Date: Sun Jul 12 22:26:20 2009
New Revision: 40034
URL: https://trac.parrot.org/parrot/changeset/40034

Log:
[TGE] check the closing of output file

Modified:
   trunk/compilers/tge/tgc.pir
   trunk/include/parrot/settings.h

Modified: trunk/compilers/tge/tgc.pir
==============================================================================
--- trunk/compilers/tge/tgc.pir	Sun Jul 12 22:12:30 2009	(r40033)
+++ trunk/compilers/tge/tgc.pir	Sun Jul 12 22:26:20 2009	(r40034)
@@ -89,6 +89,12 @@
     .local string compiled_source
     compiled_source = grammar.'precompile'(source, infile)
     print outfh, compiled_source
+    unless ck_output goto END
+
+    # Close the output file and check result
+    $I0 = outfh.'close'()
+    unless $I0 goto END
+    die 'Error: close output failed'
 
   goto END
 

Modified: trunk/include/parrot/settings.h
==============================================================================
--- trunk/include/parrot/settings.h	Sun Jul 12 22:12:30 2009	(r40033)
+++ trunk/include/parrot/settings.h	Sun Jul 12 22:26:20 2009	(r40034)
@@ -45,7 +45,7 @@
  * "work").
  */
 
-#define PARROT_GC_SUBSYSTEM 0
+#define PARROT_GC_SUBSYSTEM 3
 
 #if PARROT_GC_SUBSYSTEM == 0
 #  define PARROT_GC_MS      1