simon/sidekick
1
0
Fork 0
mirror of https://github.com/c-cube/sidekick.git synced 2025-12-06 03:05:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix(core-logic): ensure store IDs fit in 5 bits

Browse source
This commit is contained in:
Simon Cruanes 2022-08-13 13:29:49 -04:00
parent 7d46a38e2c
commit 632d5e3f40
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/core-logic/term.ml
View file

@ -161,7 +161,8 @@ module Store = struct
let n = ref 0 let n = ref 0
let create ?(size = 256) () : t = let create ?(size = 256) () : t =
let s_uid = !n in (* store id, modulo 2^5 *)
let s_uid = !n land store_id_mask in
incr n; incr n;
{ s_uid; s_exprs = Hcons.create ~size () } { s_uid; s_exprs = Hcons.create ~size () }