diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-10-02 16:01:46 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-10-02 16:01:46 +0200 |
| commit | 16c88c9be5c37ee2e4fe04f7342365964031e7dd (patch) | |
| tree | 7b5c07362dad323acae516718b9cebe94bd639af /stm | |
| parent | a3d7630d74b720b771e880dcf0fcad05de553a6e (diff) | |
| parent | 88abc50ece70405d71777d5350ca2fa70c1ff437 (diff) | |
Merge branch 'v8.5'
Diffstat (limited to 'stm')
| -rw-r--r-- | stm/vio_checking.ml | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/stm/vio_checking.ml b/stm/vio_checking.ml index 4df9603dc..06bf955c8 100644 --- a/stm/vio_checking.ml +++ b/stm/vio_checking.ml @@ -104,9 +104,7 @@ let schedule_vio_compilation j fs = let f = if Filename.check_suffix f ".vio" then Filename.chop_extension f else f in - let paths = Loadpath.get_paths () in - let _, long_f_dot_v = - System.find_file_in_path ~warn:(Flags.is_verbose()) paths (f^".v") in + let long_f_dot_v = Loadpath.locate_file (f^".v") in let aux = Aux_file.load_aux_file_for long_f_dot_v in let eta = try float_of_string (Aux_file.get aux Loc.ghost "vo_compile_time") |