|
@@ -196,6 +196,7 @@ let hash ctx sid =
|
|
in
|
|
in
|
|
let h = loop (hl_hash ctx.hlcode.strings.(sid)) in
|
|
let h = loop (hl_hash ctx.hlcode.strings.(sid)) in
|
|
Hashtbl.add ctx.hash_cache sid h;
|
|
Hashtbl.add ctx.hash_cache sid h;
|
|
|
|
+ Hashtbl.add ctx.hash_mem h true;
|
|
ctx.hash_cache_list <- sid :: ctx.hash_cache_list;
|
|
ctx.hash_cache_list <- sid :: ctx.hash_cache_list;
|
|
h
|
|
h
|
|
|
|
|