simon/sidekick
1
0
Fork 0
mirror of https://github.com/c-cube/sidekick.git synced 2026-01-27 11:54:49 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix: bugfix in construction of slices in SAT/theory interface

Browse source
This commit is contained in:
Simon Cruanes 2019-01-25 22:01:17 -06:00 • committed by Guillaume Bury
parent 5e1508ff2b
commit f26f74e119
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/core/Internal.ml
View file

@ -1644,8 +1644,8 @@ module Make(Plugin : PLUGIN)
invalid_arg "Msat.Internal.slice_propagate" invalid_arg "Msat.Internal.slice_propagate"
) )
let[@specialise] slice_iter st ~full f : unit = let[@specialise] slice_iter st ~full head f : unit =
for i = (if full then 0 else st.th_head) to Vec.size st.trail-1 do for i = (if full then 0 else head) to Vec.size st.trail-1 do
let e = match Vec.get st.trail i with let e = match Vec.get st.trail i with
| Atom a -> | Atom a ->
Solver_intf.Lit a.lit Solver_intf.Lit a.lit
@ -1658,7 +1658,7 @@ module Make(Plugin : PLUGIN)
let[@inline] current_slice st : (_,_,_) Solver_intf.slice = { let[@inline] current_slice st : (_,_,_) Solver_intf.slice = {
Solver_intf. Solver_intf.
iter_assumptions=slice_iter st ~full:false; iter_assumptions=slice_iter st ~full:false st.th_head;
push = slice_push st; push = slice_push st;
propagate = slice_propagate st; propagate = slice_propagate st;
raise_conflict=slice_raise st; raise_conflict=slice_raise st;
@ -1667,7 +1667,7 @@ module Make(Plugin : PLUGIN)
(* full slice, for [if_sat] final check *) (* full slice, for [if_sat] final check *)
let[@inline] full_slice st : (_,_,_) Solver_intf.slice = { let[@inline] full_slice st : (_,_,_) Solver_intf.slice = {
Solver_intf. Solver_intf.
iter_assumptions=slice_iter st ~full:true; iter_assumptions=slice_iter st ~full:true st.th_head;
push = slice_push st; push = slice_push st;
propagate = slice_propagate st; propagate = slice_propagate st;
raise_conflict=slice_raise st; raise_conflict=slice_raise st;