diff options
| author | mdenes | 2013-02-24 11:54:28 +0000 |
|---|---|---|
| committer | mdenes | 2013-02-24 11:54:28 +0000 |
| commit | 0a9dd11b1500455bdc98ad5769e3a572a5705d8f (patch) | |
| tree | 1b37e1d06f411ab79d62c683e04505c6778fe415 /library | |
| parent | a19c384d3cc5b2b5539bd0df74d9e99cf95ebbc3 (diff) | |
Reduced the noise level when dynlinking in bytecode mode or when
-no-native-compiler flag is on.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16239 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library')
| -rw-r--r-- | library/library.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/library/library.ml b/library/library.ml index 92104348e5..9938333f23 100644 --- a/library/library.ml +++ b/library/library.ml @@ -222,7 +222,8 @@ let register_loaded_library m = let prefix = Nativecode.mod_uid_of_dirpath m.library_name ^ "." in let f = prefix ^ "cmo" in let f = Dynlink.adapt_filename f in - Nativelib.call_linker ~fatal:false prefix (Filename.concat dirname f) None + if not !Flags.no_native_compiler then + Nativelib.call_linker ~fatal:false prefix (Filename.concat dirname f) None in let rec aux = function | [] -> link m; [m] |