diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2014-11-10 12:23:10 +0100 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2014-11-10 12:23:10 +0100 |
| commit | f361f6b0316ed32a120b9133d5583caea777207f (patch) | |
| tree | 332ed6667fdd4fce552784cba7925b6e24935412 /kernel/nativelib.ml | |
| parent | 7f56dfb365e58f8dbb1db99faecec2a126bab0e5 (diff) | |
Better printing of dynlink errors in native compiler.
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 0ad345795..811319a9b 100644 --- a/kernel/nativelib.ml +++ b/kernel/nativelib.ml @@ -107,8 +107,8 @@ let call_linker ?(fatal=true) prefix f upds = let msg = "Dynlink error, " ^ Dynlink.error_message e in if fatal then anomaly (Pp.str msg) else Pp.msg_warning (Pp.str msg) | e when Errors.noncritical e -> - let msg = "Dynlink error" in - if fatal then anomaly (Pp.str msg) else Pp.msg_warning (Pp.str msg)); + if fatal then anomaly (Errors.print e) + else Pp.msg_warning (Errors.print_no_report e)); match upds with Some upds -> update_locations upds | _ -> () let link_library ~prefix ~dirname ~basename = |