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

refactor: change debug levels

Browse source
This commit is contained in:
Simon Cruanes 2019-12-01 19:40:31 -06:00
parent a4e3fd5a69
commit 787b9404af
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/cc/Sidekick_cc.ml
View file

@ -337,18 +337,18 @@ module Make (A: CC_ARG)
(* add to signature table. Assume it's not present already *) (* add to signature table. Assume it's not present already *)
let add_signature cc (s:signature) (n:node) : unit = let add_signature cc (s:signature) (n:node) : unit =
assert (not @@ Sig_tbl.mem cc.signatures_tbl s); assert (not @@ Sig_tbl.mem cc.signatures_tbl s);
Log.debugf 15 Log.debugf 50
(fun k->k "(@[cc.add-sig@ %a@ ~~> %a@])" Signature.pp s N.pp n); (fun k->k "(@[cc.add-sig@ %a@ ~~> %a@])" Signature.pp s N.pp n);
on_backtrack cc (fun () -> Sig_tbl.remove cc.signatures_tbl s); on_backtrack cc (fun () -> Sig_tbl.remove cc.signatures_tbl s);
Sig_tbl.add cc.signatures_tbl s n Sig_tbl.add cc.signatures_tbl s n
let push_pending cc t : unit = let push_pending cc t : unit =
Log.debugf 5 (fun k->k "(@[<hv1>cc.push_pending@ %a@])" N.pp t); Log.debugf 50 (fun k->k "(@[<hv1>cc.push-pending@ %a@])" N.pp t);
Vec.push cc.pending t Vec.push cc.pending t
let merge_classes cc t u e : unit = let merge_classes cc t u e : unit =
Log.debugf 5 Log.debugf 50
(fun k->k "(@[<hv1>cc.push_combine@ %a ~@ %a@ :expl %a@])" (fun k->k "(@[<hv1>cc.push-combine@ %a ~@ %a@ :expl %a@])"
N.pp t N.pp u Expl.pp e); N.pp t N.pp u Expl.pp e);
Vec.push cc.combine @@ CT_merge (t,u,e) Vec.push cc.combine @@ CT_merge (t,u,e)
@ -778,7 +778,7 @@ module Make (A: CC_ARG)
otherwise merge the atom with true/false *) otherwise merge the atom with true/false *)
let assert_lit cc lit : unit = let assert_lit cc lit : unit =
let t = Lit.term lit in let t = Lit.term lit in
Log.debugf 5 (fun k->k "(@[cc.assert_lit@ %a@])" Lit.pp lit); Log.debugf 15 (fun k->k "(@[cc.assert-lit@ %a@])" Lit.pp lit);
let sign = Lit.sign lit in let sign = Lit.sign lit in
begin match A.cc_view t with begin match A.cc_view t with
| Eq (a,b) when sign -> | Eq (a,b) when sign ->