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

PR#282: les -ccopt de l'utilisateur doivent etre passes en premier au compilateur C 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3428 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 2001-02-20 09:40:52 +00:00
parent eb7578b8db
commit b0b5847fe0
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
asmcomp/asmlink.ml
View File

@ -285,7 +285,7 @@ let link ppf objfiles =
| mg -> raise(Error(Missing_implementations mg))
end;
Clflags.ccobjs := !Clflags.ccobjs @ !lib_ccobjs;
Clflags.ccopts := !Clflags.ccopts @ !lib_ccopts;
Clflags.ccopts := !lib_ccopts @ !Clflags.ccopts; (* put user's opts first *)
let startup = Filename.temp_file "camlstartup" ext_asm in
make_startup_file ppf startup units_tolink;
let startup_obj = Filename.temp_file "camlstartup" ext_obj in

2
bytecomp/bytelink.ml
View File

@ -508,7 +508,7 @@ let link objfiles =
else "stdlib.cma" :: (objfiles @ ["std_exit.cmo"]) in
let tolink = List.fold_right scan_file objfiles [] in
Clflags.ccobjs := !Clflags.ccobjs @ !lib_ccobjs;
Clflags.ccopts := !Clflags.ccopts @ !lib_ccopts;
Clflags.ccopts := !lib_ccopts @ !Clflags.ccopts; (* put user's opts first *)
if not !Clflags.custom_runtime then
link_bytecode tolink !Clflags.exec_name true
else if not !Clflags.output_c_object then begin