aboutsummaryrefslogtreecommitdiff
path: root/kernel/nativeconv.ml
diff options
context:
space:
mode:
authorMaxime Dénès2019-07-04 09:11:41 +0200
committerMaxime Dénès2019-07-04 09:11:41 +0200
commita661aadbc7120b93ccf8507c0173ffd6cfa3a0f8 (patch)
tree17ff6655ac87b3862eaa0857d28c4cc1ba46bc23 /kernel/nativeconv.ml
parentd1965ba584589a528cbb6fe98bbe489137691e02 (diff)
parent00fcbf38dcd127e3d2d4f748f215787855abd609 (diff)
Merge PR #10359: Remove dependency of native_compile on global env for symbols
Reviewed-by: maximedenes Reviewed-by: ppedrot
Diffstat (limited to 'kernel/nativeconv.ml')
-rw-r--r--kernel/nativeconv.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/nativeconv.ml b/kernel/nativeconv.ml
index a98523ba66..dd010e5cad 100644
--- a/kernel/nativeconv.ml
+++ b/kernel/nativeconv.ml
@@ -154,7 +154,7 @@ let native_conv_gen pb sigma env univs t1 t2 =
let fn = compile ml_filename code ~profile:false in
if !Flags.debug then Feedback.msg_debug (Pp.str "Running test...");
let t0 = Sys.time () in
- call_linker ~fatal:true prefix fn (Some upds);
+ call_linker env ~fatal:true ~prefix fn (Some upds);
let t1 = Sys.time () in
let time_info = Format.sprintf "Evaluation done in %.5f@." (t1 -. t0) in
if !Flags.debug then Feedback.msg_debug (Pp.str time_info);