diff options
| author | Pierre-Marie Pédrot | 2018-07-17 13:51:59 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-07-24 14:13:11 +0200 |
| commit | 4da752354f04090cc69c3d85a34059b8d9e28be2 (patch) | |
| tree | 4184a6469d2067d1849ee04f38df6644ddd7c321 /kernel/nativelib.ml | |
| parent | 388e65b550a6dd12fa4e59b26e03a831ebd842ce (diff) | |
Properly disable native compilation when -native-compiler is unset.
There was a function used by the pretyper that did not check that the flag was
set, leading to native compilation even when the configure flag was off.
Diffstat (limited to 'kernel/nativelib.ml')
| -rw-r--r-- | kernel/nativelib.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/kernel/nativelib.ml b/kernel/nativelib.ml index 31ad364911..f784509b6f 100644 --- a/kernel/nativelib.ml +++ b/kernel/nativelib.ml @@ -67,6 +67,7 @@ let warn_native_compiler_failed = CWarnings.create ~name:"native-compiler-failed" ~category:"native-compiler" print let call_compiler ?profile:(profile=false) ml_filename = + let () = assert Coq_config.native_compiler in let load_path = !get_load_paths () in let load_path = List.map (fun dn -> dn / output_dir) load_path in let include_dirs = List.flatten (List.map (fun x -> ["-I"; x]) (include_dirs () @ load_path)) in |