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

[bugfix/major] Clauses can be added at level > 0

Browse source
This commit is contained in:
Guillaume Bury 2016-04-15 12:49:38 +02:00
parent ec7c6602e9
commit 63d8dc1dc2
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
solver/internal.ml
View file

@ -858,6 +858,7 @@ module Make
if satisfied c then remove_clause c if satisfied c then remove_clause c
done done
(*
let simplify () = let simplify () =
assert (decision_level () = 0); assert (decision_level () = 0);
if is_unsat () then raise Unsat; if is_unsat () then raise Unsat;
@ -873,6 +874,7 @@ module Make
env.simpDB_assigns <- Vec.size env.elt_queue; env.simpDB_assigns <- Vec.size env.elt_queue;
env.simpDB_props <- env.clauses_literals + env.learnts_literals; env.simpDB_props <- env.clauses_literals + env.learnts_literals;
end end
*)
(* Decide on a new litteral *) (* Decide on a new litteral *)
let rec pick_branch_aux atom = let rec pick_branch_aux atom =
@ -956,8 +958,11 @@ module Make
let aux cl = let aux cl =
let c = make_clause ?tag (fresh_hname ()) cl (List.length cl) false (History []) (current_level ()) in let c = make_clause ?tag (fresh_hname ()) cl (List.length cl) false (History []) (current_level ()) in
add_clause c; add_clause c;
(* Clauses can be added after search has begun (and thus we are not at level 0,
so better not do anything at this point.
match propagate () with match propagate () with
| None -> () | Some confl -> report_unsat confl | None -> () | Some confl -> report_unsat confl
*)
in in
List.iter aux cnf List.iter aux cnf