From 302ef5dca165e988a92fa56d73c70fb26aa100a3 Mon Sep 17 00:00:00 2001 From: Dmitry Boulytchev Date: Tue, 23 Oct 2018 14:29:30 +0300 Subject: [PATCH] Fixed ref in X86.ml --- src/X86.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/X86.ml b/src/X86.ml index 9dd20f23e..e54463571 100644 --- a/src/X86.ml +++ b/src/X86.ml @@ -393,7 +393,7 @@ class env = (* tag hash: gets a hash for a string tag *) method hash tag = - let h = ref 0 in + let h = Pervasives.ref 0 in for i = 0 to min (String.length tag - 1) 4 do h := (!h lsl 6) lor (String.index chars tag.[i]) done;