diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2014-11-12 15:50:37 +0100 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2014-11-12 15:50:37 +0100 |
| commit | e74d442cc7732cee262921f3dd8cd42a882f75de (patch) | |
| tree | 0411fb0d7237105bf629ec50ba0719f07079d63b /kernel/modops.ml | |
| parent | 21abd69648badb999ea22a77cdaad4630761d0e6 (diff) | |
Cleaner interfaces for linking locations of native compiler.
Stop sharing those references across constants of the same
module, which was triggering some bugs when using native_compute
in interactive mode in a functor declaration.
Diffstat (limited to 'kernel/modops.ml')
| -rw-r--r-- | kernel/modops.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/kernel/modops.ml b/kernel/modops.ml index d91505f89..ccec3c170 100644 --- a/kernel/modops.ml +++ b/kernel/modops.ml @@ -318,7 +318,7 @@ let rec add_structure mp sign resolver linkinfo env = { mib with mind_private = Some true } else mib in - Environ.add_mind_key mind (mib,linkinfo) env + Environ.add_mind_key mind (mib,ref linkinfo) env |SFBmodule mb -> add_module mb linkinfo env (* adds components as well *) |SFBmodtype mtb -> Environ.add_modtype mtb env in @@ -337,10 +337,10 @@ let add_linked_module mb linkinfo env = add_module mb linkinfo env let add_structure mp sign resolver env = - add_structure mp sign resolver (no_link_info ()) env + add_structure mp sign resolver no_link_info env let add_module mb env = - add_module mb (no_link_info ()) env + add_module mb no_link_info env let add_module_type mp mtb env = add_module (module_body_of_type mp mtb) env |