diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-07-20 15:16:05 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2017-07-20 15:19:44 +0200 |
| commit | c3ca30ca418ed0eca804d09fe6f1ff9d3ff0aa32 (patch) | |
| tree | 00643f67f2cd0a410b23c970933a590ffeb7d7da /toplevel | |
| parent | f6a4599b852a32351163eb272d14718e32b58cec (diff) | |
Also a less intrusive Profile.init_profile.
Calling it only when there is something to profile, or when profiling
is explicitly required with the profile flags, so that profiling in
plugins is possible.
Diffstat (limited to 'toplevel')
| -rw-r--r-- | toplevel/coqtop.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/toplevel/coqtop.ml b/toplevel/coqtop.ml index 08c235023..d79257b5c 100644 --- a/toplevel/coqtop.ml +++ b/toplevel/coqtop.ml @@ -613,6 +613,7 @@ let parse_args arglist = with any -> fatal_error any let init_toplevel arglist = + Profile.init_profile (); init_gc (); Sys.catch_break false; (* Ctrl-C is fatal during the initialisation *) let init_feeder = Feedback.add_feeder coqtop_init_feed in |