diff options
| author | Emilio Jesus Gallego Arias | 2019-02-08 18:54:13 +0100 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2019-02-08 18:54:13 +0100 |
| commit | d8cf6da35a1b1c697e8bd3017de607c4a2d89691 (patch) | |
| tree | 91246b016eddb78b63a91c9c6836257d6d0887eb /kernel/safe_typing.ml | |
| parent | 92df98da23057a47a6cd2053618fd97efe54ba30 (diff) | |
| parent | 6e052101b827a0abef83bc6a54da83e30f70bc94 (diff) | |
Merge PR #9525: Remove global output_native_objects flag.
Reviewed-by: ejgallego
Reviewed-by: maximedenes
Diffstat (limited to 'kernel/safe_typing.ml')
| -rw-r--r-- | kernel/safe_typing.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/safe_typing.ml b/kernel/safe_typing.ml index 474ce3e871..18a257047d 100644 --- a/kernel/safe_typing.ml +++ b/kernel/safe_typing.ml @@ -1114,7 +1114,7 @@ let start_library dir senv = modvariant = LIBRARY; required = senv.required } -let export ?except senv dir = +let export ?except ~output_native_objects senv dir = let senv = try join_safe_environment ?except senv with e -> @@ -1136,7 +1136,7 @@ let export ?except senv dir = } in let ast, symbols = - if !Flags.output_native_objects then + if output_native_objects then Nativelibrary.dump_library mp dir senv.env str else [], Nativecode.empty_symbols in |