Commit 214d73d8 authored by POTTIER Francois's avatar POTTIER Francois
Browse files

Fix DWordBitSet.union and QWordBitSet.union in the same way,

although it is not clear whether this is necessary.
parent d2e463dd
Pipeline #153439 passed with stages
in 26 seconds
......@@ -144,7 +144,9 @@ let union s1 s2 =
| s, E ->
| D (hi1, lo1), D (hi2, lo2) ->
D (A.union hi1 hi2, A.union lo1 lo2)
let hi = A.union hi1 hi2
and lo = A.union lo1 lo2 in
if hi == hi2 && lo == lo2 then s2 else D (hi, lo)
let inter s1 s2 =
match s1, s2 with
......@@ -194,8 +194,12 @@ let union s1 s2 =
| s, E ->
| Q (hhi1, hlo1, lhi1, llo1), Q (hhi2, hlo2, lhi2, llo2) ->
Q (A.union hhi1 hhi2, A.union hlo1 hlo2,
A.union lhi1 lhi2, A.union llo1 llo2)
let hhi = A.union hhi1 hhi2
and hlo = A.union hlo1 hlo2
and lhi = A.union lhi1 lhi2
and llo = A.union llo1 llo2 in
if hhi == hhi2 && hlo == hlo2 && lhi == lhi2 && llo == llo2 then s2
else Q (hhi, hlo, lhi, llo)
let inter s1 s2 =
match s1, s2 with
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment