Skip to content

Commit

Permalink
tc: print sigelt (in short form) for --timing/--profile
Browse files Browse the repository at this point in the history
This allows to distinguish a `val x` from a `let x`, and is in general
clearer at the cost of not much more verbosity.
  • Loading branch information
mtzguido committed Jun 29, 2023
1 parent 344ccd2 commit 3f7a999
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion src/typechecker/FStar.TypeChecker.Tc.fst
Original file line number Diff line number Diff line change
Expand Up @@ -1075,7 +1075,7 @@ let tc_decls env ses =
let r =
Profiling.profile
(fun () -> process_one_decl acc se)
(Some (Ident.string_of_lid (Env.current_module env)))
(Some (Print.sigelt_to_string_short se))
"FStar.TypeChecker.Tc.process_one_decl"
// ^ See a special case for this phase in FStar.Options. --timing
// enables it.
Expand Down

0 comments on commit 3f7a999

Please sign in to comment.