diff options
author | 2017-12-14 17:23:13 +0100 | |
---|---|---|
committer | 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 fb6e48ae2..644f66d02 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 58415d6f5..000862b2c 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 |