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

perf: some basic optimizations

Browse source
This commit is contained in:
Simon Cruanes 2019-05-15 13:02:40 -05:00
parent 6bd3b2e67b
commit 9c78c6f7bb
1 changed files with 5 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/core/Internal.ml
View file

@ -1366,7 +1366,9 @@ module Make(Plugin : PLUGIN)
assert (decision_level st > 0); assert (decision_level st > 0);
Vec.clear to_unmark; Vec.clear to_unmark;
let conflict_level = let conflict_level =
Array.fold_left (fun acc p -> max acc p.var.v_level) 0 c_clause.atoms if Plugin.mcsat
then Array.fold_left (fun acc p -> max acc p.var.v_level) 0 c_clause.atoms
else decision_level st
in in
Log.debugf debug Log.debugf debug
(fun k -> k "(@[sat.analyze-conflict@ :c-level %d@ :clause %a@])" conflict_level Clause.debug c_clause); (fun k -> k "(@[sat.analyze-conflict@ :c-level %d@ :clause %a@])" conflict_level Clause.debug c_clause);
@ -1613,7 +1615,7 @@ module Make(Plugin : PLUGIN)
Vec.push ak.neg.watched c; Vec.push ak.neg.watched c;
assert (Vec.get a.watched i == c); assert (Vec.get a.watched i == c);
Vec.fast_remove a.watched i; Vec.fast_remove a.watched i;
raise Exit raise_notrace Exit
) )
done; done;
(* no watch lit found *) (* no watch lit found *)
@ -1816,14 +1818,11 @@ module Make(Plugin : PLUGIN)
if st.elt_head = Vec.size st.trail then ( if st.elt_head = Vec.size st.trail then (
theory_propagate st theory_propagate st
) else ( ) else (
let num_props = ref 0 in
match match
while st.elt_head < Vec.size st.trail do while st.elt_head < Vec.size st.trail do
begin match Vec.get st.trail st.elt_head with begin match Vec.get st.trail st.elt_head with
| Lit _ -> () | Lit _ -> ()
| Atom a -> | Atom a -> propagate_atom st a
incr num_props;
propagate_atom st a
end; end;
st.elt_head <- st.elt_head + 1; st.elt_head <- st.elt_head + 1;
done; done;