diff options
| author | Gaëtan Gilbert | 2019-06-11 11:34:16 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2019-06-12 14:17:55 +0200 |
| commit | 00fcbf38dcd127e3d2d4f748f215787855abd609 (patch) | |
| tree | fabcbdbe58c7eae35148ad28153e4a96590bff45 /pretyping/nativenorm.ml | |
| parent | 793a442d240c22f99591388ad31e33fbaef96fb0 (diff) | |
Remove dependency of native_compile on global env for symbols
Instead we get the symbols from a Environ.env.
We make them accessible to the produced code through a reference
managed by the kernel, similar to the return values except inverting
when it's written and when it's read.
Diffstat (limited to 'pretyping/nativenorm.ml')
| -rw-r--r-- | pretyping/nativenorm.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/nativenorm.ml b/pretyping/nativenorm.ml index 0fcd6a9e9d..909b0faf2f 100644 --- a/pretyping/nativenorm.ml +++ b/pretyping/nativenorm.ml @@ -499,7 +499,7 @@ let native_norm env sigma c ty = if !Flags.debug then Feedback.msg_debug (Pp.str "Running norm ..."); let profiler_pid = if profile then start_profiler () else None in let t0 = Sys.time () in - Nativelib.call_linker ~fatal:true prefix fn (Some upd); + Nativelib.call_linker ~fatal:true env ~prefix fn (Some upd); let t1 = Sys.time () in if profile then stop_profiler profiler_pid; let time_info = Format.sprintf "Evaluation done in %.5f@." (t1 -. t0) in |