ocaml#5593: Remove C file when -output-obj fails. (Cherry-picked from…

… trunk, commit 12356.) git-svn-id: http://caml.inria.fr/svn/ocaml/version/4.00@12357 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
dra27 · Apr 16, 2012 · 1f4a891 · 1f4a891
1 parent 39fd96e
commit 1f4a891
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/bytecomp/bytelink.ml b/bytecomp/bytelink.ml
@@ -466,6 +466,7 @@ let link_bytecode_as_c ppf tolink outfile =
     close_out outchan
   with x ->
     close_out outchan;
+    remove_file outfile;
     raise x
   end;
   if !Clflags.debug then