From e74d442cc7732cee262921f3dd8cd42a882f75de Mon Sep 17 00:00:00 2001
From: Maxime Dénès
Date: Wed, 12 Nov 2014 15:50:37 +0100
Subject: 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.
---
 kernel/nativecode.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'kernel/nativecode.ml')

diff --git a/kernel/nativecode.ml b/kernel/nativecode.ml
index 4263b3b508..2ac8e4f934 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
-- 
cgit v1.2.3