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/nativecode.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/nativecode.ml')
-rw-r--r-- | kernel/nativecode.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/nativecode.ml b/kernel/nativecode.ml index 4263b3b50..2ac8e4f93 100644 --- a/kernel/nativecode.ml +++ b/kernel/nativecode.ml @@ -1430,7 +1430,7 @@ let string_of_dirpath s = "N"^string_of_dirpath s let mod_uid_of_dirpath dir = string_of_dirpath (repr_dirpath dir) let link_info_of_dirpath dir = - ref (Linked (mod_uid_of_dirpath dir ^ ".")) + Linked (mod_uid_of_dirpath dir ^ ".") let string_of_name x = match x with |