diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/flags.ml | 6 | ||||
| -rw-r--r-- | lib/flags.mli | 5 |
2 files changed, 11 insertions, 0 deletions
diff --git a/lib/flags.ml b/lib/flags.ml index 13f5403790..6d1fb7fae4 100644 --- a/lib/flags.ml +++ b/lib/flags.ml @@ -124,3 +124,9 @@ let camlbin = ref Coq_config.camlbin let camlp4bin_spec = ref false let camlp4bin = ref Coq_config.camlp4bin +(* Level of inlining during a functor application *) + +let default_inline_level = 100 +let inline_level = ref default_inline_level +let set_inline_level = (:=) inline_level +let get_inline_level () = !inline_level diff --git a/lib/flags.mli b/lib/flags.mli index ecb4d6dd63..20e3a7819c 100644 --- a/lib/flags.mli +++ b/lib/flags.mli @@ -84,3 +84,8 @@ val camlbin_spec : bool ref val camlbin : string ref val camlp4bin_spec : bool ref val camlp4bin : string ref + +(** Level of inlining during a functor application *) +val set_inline_level : int -> unit +val get_inline_level : unit -> int +val default_inline_level : int |