diff options
author | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-07-18 12:18:05 +0200 |
---|---|---|
committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2015-07-18 12:18:05 +0200 |
commit | 88e2da8c1b9403f5eac19df4f6c55fedca948bcc (patch) | |
tree | 01f750142359361f800e0dc2dfe422f145f491c5 /kernel/nativelib.ml | |
parent | 139c92bebd3f3d22c9f4d8220647bb7dd4e43890 (diff) | |
parent | fdd6a17b272995237c9f95fc465bb1ff6871bedc (diff) |
Merge branch 'v8.5'
Diffstat (limited to 'kernel/nativelib.ml')
-rw-r--r-- | kernel/nativelib.ml | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/kernel/nativelib.ml b/kernel/nativelib.ml index ce9e4e2b0..331598d85 100644 --- a/kernel/nativelib.ml +++ b/kernel/nativelib.ml @@ -107,9 +107,11 @@ let call_linker ?(fatal=true) prefix f upds = rt1 := dummy_value (); rt2 := dummy_value (); if not (Sys.file_exists f) then - let msg = "Cannot find native compiler file " ^ f in - if fatal then Errors.error msg - else Pp.msg_warning (Pp.str msg) + begin + let msg = "Cannot find native compiler file " ^ f in + if fatal then Errors.error msg + else if !Flags.debug then Pp.msg_debug (Pp.str msg) + end else (try if Dynlink.is_native then Dynlink.loadfile f else !load_obj f; @@ -118,7 +120,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 = |