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

Flexdll now takes care of /subsystem:console 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@8519 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Alain Frisch 2007-11-13 17:18:50 +00:00
parent bec9b43e7e
commit 9b8a606bdb
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
utils/ccomp.ml
View File

@ -93,12 +93,7 @@ let expand_libname name =
let make_link_options optlist =
let rec split linkopts otheropts = function
| [] -> String.concat " " otheropts
^ " -- " ^
(match Config.system with
| "win32"
| "win64" -> "/subsystem:console " (* This is needed to compile with /MD, cf bug #0003821. *)
| _ -> "")
^ String.concat " " linkopts
^ " -- " ^ String.concat " " linkopts
| opt :: rem ->
if String.length opt >= 5 && String.sub opt 0 5 = "/link"
then split (String.sub opt 5 (String.length opt - 5) :: linkopts)