st/lama_byterun
1
0
Fork 0
mirror of https://github.com/ProgramSnail/Lama.git synced 2025-12-06 06:48:48 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixed ref in X86.ml

Browse source
This commit is contained in:
Dmitry Boulytchev 2018-10-23 14:29:30 +03:00
parent 1ac302ac46
commit ee402687de
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/X86.ml
View file

@ -393,7 +393,7 @@ class env =
(* tag hash: gets a hash for a string tag *) (* tag hash: gets a hash for a string tag *)
method hash 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 for i = 0 to min (String.length tag - 1) 4 do
h := (!h lsl 6) lor (String.index chars tag.[i]) h := (!h lsl 6) lor (String.index chars tag.[i])
done; done;