diff options
| author | Emilio Jesus Gallego Arias | 2019-04-16 20:54:07 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2019-04-16 20:54:07 +0200 |
| commit | 3dc819375ceeb02f6f565b0d5d1fbf99752a6ffa (patch) | |
| tree | 44c7beb990b1734704db3680dc2e87b10c5bd664 /library | |
| parent | 4b9119d8090e366ecd2e803ad30a9dd839bc8ec9 (diff) | |
| parent | 8af91e636038cb113bbd16f7f8225196190bb2d4 (diff) | |
Merge PR #9898: Better error message when OCaml compiler not found for native compute
Reviewed-by: ejgallego
Diffstat (limited to 'library')
| -rw-r--r-- | library/library.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/library/library.ml b/library/library.ml index 37dadadb76..04e38296d9 100644 --- a/library/library.ml +++ b/library/library.ml @@ -718,8 +718,7 @@ let save_library_to ?todo ~output_native_objects dir f otab = (* Writing native code files *) if output_native_objects then let fn = Filename.dirname f'^"/"^Nativecode.mod_uid_of_dirpath dir in - if not (Nativelib.compile_library dir ast fn) then - user_err Pp.(str "Could not compile the library to native code.") + Nativelib.compile_library dir ast fn with reraise -> let reraise = CErrors.push reraise in let () = Feedback.msg_warning (str "Removed file " ++ str f') in |