1 let emit_endline = ref prerr_endline
3 let process_link_output s
=
4 if s
<> "LINK : warning LNK4044: unrecognized option '/nologo'; ignored"
8 let invoke argv arg_start
=
11 if i
= String.length s
15 if s
.[i
] = ' '
|| s
.[i
] = '
\t'
24 let find_from pred arr pos
=
26 if i
>= Array.length arr
30 pred arr
.(i
) || loop (succ i
)
36 if find_from (fun s
-> s
= "/dump" || s
= "-dump") argv arg_start
38 emit_endline := print_endline
41 let args = Utils.make_arg_string
Path.check_and_modify_absolute argv arg_start
in
42 let tool = Utils.tool_name
"link" in
48 Wine.command tool ^
" " ^
args ^
" /nologo"
50 let ic = Unix.open_process_in
command in
51 Utils.iter_crlf_chan
ic process_link_output;
52 let code = Utils.close_process_in
ic in