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

Make name of object file for package initialization unique (needed for the MSVC port) 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@7945 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 2007-03-01 13:38:54 +00:00
parent 578cc03cf9
commit 25bb3c6f12
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
asmcomp/asmpackager.ml
View File

@ -80,7 +80,10 @@ let check_units members =
(* Make the .o file for the package *) (* Make the .o file for the package *)
let make_package_object ppf members targetobj targetname coercion = let make_package_object ppf members targetobj targetname coercion =
let objtemp = Filename.temp_file "camlpackage" Config.ext_obj in (* Put the full name of the module in the temporary file name
to avoid collisions with MSVC's link /lib in case of successive packs *)
let objtemp =
Filename.temp_file (Compilenv.make_symbol (Some "")) Config.ext_obj in
let components = let components =
List.map List.map
(fun m -> (fun m ->