diff options
| author | Maxime Dénès | 2017-12-14 17:23:13 +0100 |
|---|---|---|
| committer | Maxime Dénès | 2017-12-14 17:23:13 +0100 |
| commit | 1853470c78d1a8aa2525dd57bbfce1064d359ff2 (patch) | |
| tree | d0af37b803fd6113e9fdc12f37501af3c8eba7ae /lib | |
| parent | 84e570d7c532f16104157b806da714906fdf26b3 (diff) | |
| parent | 4554a860ffdcb30bf5711bd52f443484f9f950d9 (diff) | |
Merge PR #6264: [kernel] Patch allowing to disable VM reduction.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/flags.ml | 2 | ||||
| -rw-r--r-- | lib/flags.mli | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/lib/flags.ml b/lib/flags.ml index fb6e48ae2c..644f66d02b 100644 --- a/lib/flags.ml +++ b/lib/flags.ml @@ -161,7 +161,7 @@ let set_inline_level = (:=) inline_level let get_inline_level () = !inline_level (* Native code compilation for conversion and normalization *) -let native_compiler = ref false +let output_native_objects = ref false (* Print the mod uid associated to a vo file by the native compiler *) let print_mod_uid = ref false diff --git a/lib/flags.mli b/lib/flags.mli index 58415d6f54..000862b2c6 100644 --- a/lib/flags.mli +++ b/lib/flags.mli @@ -127,8 +127,8 @@ val set_inline_level : int -> unit val get_inline_level : unit -> int val default_inline_level : int -(** Native code compilation for conversion and normalization *) -val native_compiler : bool ref +(** When producing vo objects, also compile the native-code version *) +val output_native_objects : bool ref (** Print the mod uid associated to a vo file by the native compiler *) val print_mod_uid : bool ref |