diff options
| author | Fabrice Le Fessant <Fabrice.Le_fessant@inria.fr> | 2011-03-01 17:40:29 +0000 |
|---|---|---|
| committer | Fabrice Le Fessant <Fabrice.Le_fessant@inria.fr> | 2011-03-01 17:40:29 +0000 |
| commit | 40d4de47fc9d226c06ef93b8e9a8b63b4f0c67b0 (patch) | |
| tree | aa7c6b8f5a321d6e49505e1ad61d342e66568935 /ocaml-binary-annot/driver/compile.ml | |
| parent | 6b832324045c29a9f466e674fa45632bc10009b4 (diff) | |
| download | ocaml-binary-annot.tar.gz | |
binary-annot: added some tools cmt2ml, cmt2annotbinary-annot
git-svn-id: http://caml.inria.fr/svn/ocaml/branches/binary-annot@10965 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'ocaml-binary-annot/driver/compile.ml')
| -rw-r--r-- | ocaml-binary-annot/driver/compile.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/ocaml-binary-annot/driver/compile.ml b/ocaml-binary-annot/driver/compile.ml index 3d0c42df3c..35978a8952 100644 --- a/ocaml-binary-annot/driver/compile.ml +++ b/ocaml-binary-annot/driver/compile.ml @@ -89,8 +89,10 @@ let interface ppf sourcefile outputprefix = fprintf std_formatter "%a@." Printtyp.signature (Typemod.simplify_signature sg); Warnings.check_fatal (); - if not !Clflags.print_types then + if not !Clflags.print_types then begin Env.save_signature sg modulename (outputprefix ^ ".cmi"); + Typemod.save_signature tsg outputprefix; + end; Pparse.remove_preprocessed inputfile with e -> Pparse.remove_preprocessed_if_ast inputfile; |