Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Si aucun module d'un .cma est utilise, ne pas linker les bibliotheques C specifiees dans le .cma (PR#3556) 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@7078 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 2005-09-24 16:28:21 +00:00
parent 271f100eb6
commit d805f2e984
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
bytecomp/bytelink.ml
View File

@ -133,7 +133,6 @@ let scan_file obj_name tolink =
seek_in ic pos_toc;
let toc = (input_value ic : library) in
close_in ic;
add_ccobjs toc;
let required =
List.fold_right
(fun compunit reqd ->
@ -147,6 +146,7 @@ let scan_file obj_name tolink =
end else
reqd)
toc.lib_units [] in
if required <> [] || !Clflags.link_everything then add_ccobjs toc;
Link_archive(file_name, required) :: tolink
end
else raise(Error(Not_an_object_file file_name))