diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2015-07-10 00:00:30 +0200 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2015-07-10 00:01:22 +0200 |
commit | 8c7fa14c87dff113222469d138fee054b6c1ccb5 (patch) | |
tree | 63442709ac5ce22949a8ddb7bf746002c119c897 /kernel/nativelib.ml | |
parent | c4486dfda07b872d20746778df5c443b052b92b9 (diff) |
Native compiler: make non-fatal linking errors silent except in debug mode.
Diffstat (limited to 'kernel/nativelib.ml')
-rw-r--r-- | kernel/nativelib.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/nativelib.ml b/kernel/nativelib.ml index 70920f1bb..b2142b43c 100644 --- a/kernel/nativelib.ml +++ b/kernel/nativelib.ml @@ -113,7 +113,7 @@ let call_linker ?(fatal=true) prefix f upds = begin let msg = "Cannot find native compiler file " ^ f in if fatal then Errors.error msg - else if !Flags.native_compiler then Pp.msg_warning (Pp.str msg) + else if !Flags.debug then Pp.msg_debug (Pp.str msg) end else (try @@ -123,7 +123,7 @@ let call_linker ?(fatal=true) prefix f upds = let exn = Errors.push exn in let msg = "Dynlink error, " ^ Dynlink.error_message e in if fatal then (Pp.msg_error (Pp.str msg); iraise exn) - else Pp.msg_warning (Pp.str msg)); + else if !Flags.debug then Pp.msg_debug (Pp.str msg)); match upds with Some upds -> update_locations upds | _ -> () let link_library ~prefix ~dirname ~basename = |