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

feat: some spans in main/process

Browse source
This commit is contained in:
Simon Cruanes 2022-08-20 00:21:45 -04:00
parent 28ce38002f
commit e0faf6ba72
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
2 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/main/main.ml
View file

@ -198,7 +198,13 @@ let main_smt ~config () : _ result =
if !check then if !check then
(* might have to check conflicts *) (* might have to check conflicts *)
Solver.add_theory solver Process.Check_cc.theory; Solver.add_theory solver Process.Check_cc.theory;
Sidekick_smtlib.parse tst !file >>= fun input ->
let parse_res =
let@ () = Profile.with_ "parse" ~args:[ "file", !file ] in
Sidekick_smtlib.parse tst !file
in
parse_res >>= fun input ->
(* process statements *) (* process statements *)
let res = let res =
try try

1
src/smtlib/Process.ml
View file

@ -245,6 +245,7 @@ let known_logics =
let process_stmt ?gc ?restarts ?(pp_cnf = false) ?proof_file ?pp_model let process_stmt ?gc ?restarts ?(pp_cnf = false) ?proof_file ?pp_model
?(check = false) ?time ?memory ?progress (solver : Solver.t) ?(check = false) ?time ?memory ?progress (solver : Solver.t)
(stmt : Statement.t) : unit or_error = (stmt : Statement.t) : unit or_error =
let@ () = Profile.with_ "smtlib.process-stmt" in
Log.debugf 5 (fun k -> Log.debugf 5 (fun k ->
k "(@[smtlib.process-statement@ %a@])" Statement.pp stmt); k "(@[smtlib.process-statement@ %a@])" Statement.pp stmt);
let decl_sort c n : unit = let decl_sort c n : unit =