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

Avec -output-obj, ne pas executer les fonctions at_exit, car ca peut invalider des callbacks C->Caml apres (PR#525) 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4052 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 2001-11-27 13:47:13 +00:00
parent 3a30d97231
commit 2e5daf9bad
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
asmcomp/asmlink.ml
View File

@ -271,13 +271,14 @@ let object_file_name name =
(* Main entry point *)
let link ppf objfiles =
let stdlib =
if !Clflags.gprofile then "stdlib.p.cmxa" else "stdlib.cmxa" in
let stdexit =
if !Clflags.gprofile then "std_exit.p.cmx" else "std_exit.cmx" in
let objfiles =
if !Clflags.nopervasives then
objfiles
else if !Clflags.gprofile then
"stdlib.p.cmxa" :: (objfiles @ ["std_exit.p.cmx"])
else
"stdlib.cmxa" :: (objfiles @ ["std_exit.cmx"]) in
if !Clflags.nopervasives then objfiles
else if !Clflags.output_c_object then stdlib :: objfiles
else stdlib :: (objfiles @ [stdexit]) in
let units_tolink = List.fold_right scan_file objfiles [] in
Array.iter remove_required Runtimedef.builtin_exceptions;
begin match extract_missing_globals() with