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

fix bug introduced in 1946a5e7

Browse source
This commit is contained in:
Simon Cruanes 2022-08-16 23:23:21 -04:00
parent ff6dc527bd
commit 7fb557ae8b
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 32 additions and 28 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/smt-solver/Sidekick_smt_solver.ml
View file

@ -741,7 +741,10 @@ module Make (A : ARG) :
List.iter (fun f -> f self acts lits) self.on_final_check; List.iter (fun f -> f self acts lits) self.on_final_check;
CC.check cc acts; CC.check cc acts;
(match check_th_combination_ self acts with let new_work = has_delayed_actions self in
(* do actual theory combination if nothing changed by pure "final check" *)
if not new_work then (
match check_th_combination_ self acts with
| Ok m -> self.last_model <- Some m | Ok m -> self.last_model <- Some m
| Error { lits; semantic } -> | Error { lits; semantic } ->
(* bad model, we add a clause to remove it *) (* bad model, we add a clause to remove it *)
@ -771,7 +774,8 @@ module Make (A : ARG) :
k "(@[solver.th-comb.add-semantic-conflict-clause@ %a@])" k "(@[solver.th-comb.add-semantic-conflict-clause@ %a@])"
(Util.pp_list Lit.pp) c); (Util.pp_list Lit.pp) c);
(* will add a delayed action *) (* will add a delayed action *)
add_clause_temp self acts c pr); add_clause_temp self acts c pr
);
Perform_delayed_th.top self acts Perform_delayed_th.top self acts
) else ( ) else (