diff options
| author | coqbot-app[bot] | 2020-11-10 08:56:03 +0000 |
|---|---|---|
| committer | GitHub | 2020-11-10 08:56:03 +0000 |
| commit | 449aef5dea7314f3bf4311380aa10c5cf0c3a158 (patch) | |
| tree | 81191c6eed316b32aedcd4e4a988edbd685b9f22 /kernel/nativecode.ml | |
| parent | e38d3bac150b709ffbbe6115723ce97177ace638 (diff) | |
| parent | fb5aa52ab8d870ee3613de325fbab7c98c33a433 (diff) | |
Merge PR #13297: Remove the native symbol registering from the safe environment.
Reviewed-by: SkySkimmer
Diffstat (limited to 'kernel/nativecode.ml')
| -rw-r--r-- | kernel/nativecode.ml | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/kernel/nativecode.ml b/kernel/nativecode.ml index b5c4d6416a..911a879394 100644 --- a/kernel/nativecode.ml +++ b/kernel/nativecode.ml @@ -2192,11 +2192,9 @@ let mk_norm_code env sigma prefix t = [|MLglobal (Ginternal "()")|])) in header::gl, (mind_updates, const_updates) -let mk_library_header dir = - let libname = Format.sprintf "(str_decode \"%s\")" (str_encode dir) in - [Glet(Ginternal "symbols_tbl", - MLapp (MLglobal (Ginternal "get_library_native_symbols"), - [|MLglobal (Ginternal libname)|]))] +let mk_library_header (symbols : Nativevalues.symbols) = + let symbols = Format.sprintf "(str_decode \"%s\")" (str_encode symbols) in + [Glet(Ginternal "symbols_tbl", MLglobal (Ginternal symbols))] let update_location (r,v) = r := v |