diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2000-08-23 17:13:17 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2000-08-23 17:13:17 +0000 |
| commit | 3d7b7c2e37f7cd35d77a5bce55bc76481b2195ff (patch) | |
| tree | ba85b138007aca7d0acc0a1fde8f3a7b99cc7e04 /driver/compile.ml | |
| parent | b2fdec8e5cacb9d9c9785b34bb641db9758e45c1 (diff) | |
option -warn-error
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3283 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'driver/compile.ml')
| -rw-r--r-- | driver/compile.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/driver/compile.ml b/driver/compile.ml index ef176394b..50346fb0e 100644 --- a/driver/compile.ml +++ b/driver/compile.ml @@ -108,6 +108,7 @@ let interface ppf sourcefile = let sg = Typemod.transl_signature (initial_env()) ast in if !Clflags.print_types then fprintf std_formatter "%a@." Printtyp.signature sg; + Warnings.check_fatal (); Env.save_signature sg modulename (prefixname ^ ".cmi"); remove_preprocessed inputfile @@ -138,8 +139,9 @@ let implementation ppf sourcefile = ++ Bytegen.compile_implementation modulename ++ print_if ppf Clflags.dump_instr Printinstr.instrlist ++ Emitcode.to_file oc modulename; + Warnings.check_fatal (); remove_preprocessed inputfile; - close_out oc + close_out oc; with x -> close_out oc; remove_file objfile; |