aboutsummaryrefslogtreecommitdiff
path: root/kernel/nativeconv.ml
diff options
context:
space:
mode:
authorcoqbot-app[bot]2020-11-10 08:56:03 +0000
committerGitHub2020-11-10 08:56:03 +0000
commit449aef5dea7314f3bf4311380aa10c5cf0c3a158 (patch)
tree81191c6eed316b32aedcd4e4a988edbd685b9f22 /kernel/nativeconv.ml
parente38d3bac150b709ffbbe6115723ce97177ace638 (diff)
parentfb5aa52ab8d870ee3613de325fbab7c98c33a433 (diff)
Merge PR #13297: Remove the native symbol registering from the safe environment.
Reviewed-by: SkySkimmer
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 76215b4386..d77ee759c6 100644
--- a/kernel/nativeconv.ml
+++ b/kernel/nativeconv.ml
@@ -161,7 +161,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 env ~fatal:true ~prefix fn (Some upds);
+ call_linker ~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);