diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2002-06-07 08:03:46 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2002-06-07 08:03:46 +0000 |
| commit | 7c3f4511666be1a3af06bbb5c77e3902cc33cb9b (patch) | |
| tree | d120865d87c1131456e8af90284f2e48d62aaae8 | |
| parent | bae0f5d56edcab997a3a9ae0b89cff53f1db8f6c (diff) | |
Ajout flag dont_write_files pour ocamldoc
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4897 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | typing/typemod.ml | 3 | ||||
| -rw-r--r-- | utils/clflags.ml | 2 |
2 files changed, 3 insertions, 2 deletions
diff --git a/typing/typemod.ml b/typing/typemod.ml index 8956d8f74..ac426f7a2 100644 --- a/typing/typemod.ml +++ b/typing/typemod.ml @@ -506,7 +506,8 @@ let type_implementation sourcefile prefixname modulename initial_env ast = end else begin check_nongen_schemes finalenv str; normalize_signature finalenv sg; - Env.save_signature sg modulename (prefixname ^ ".cmi"); + if not !Clflags.dont_write_files then + Env.save_signature sg modulename (prefixname ^ ".cmi"); Tcoerce_none end in (str, coercion) diff --git a/utils/clflags.ml b/utils/clflags.ml index 295e2837a..80ee4dd9a 100644 --- a/utils/clflags.ml +++ b/utils/clflags.ml @@ -73,9 +73,9 @@ let keep_startup_file = ref false (* -dstartup *) let dump_combine = ref false (* -dcombine *) let native_code = ref false (* set to true under ocamlopt *) - let inline_threshold = ref 10 +let dont_write_files = ref false (* set to true under ocamldoc *) let std_include_flag prefix = if !no_std_include then "" |