From 6a8ce4db97d4d16441a8c827a8dd0a532ad49d40 Mon Sep 17 00:00:00 2001 From: Dmitry Bely Date: Wed, 28 Oct 2015 10:20:28 +0300 Subject: [PATCH] -custom-crt regression --- reloc.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/reloc.ml b/reloc.ml index 358f6b9..1f2855b 100644 --- a/reloc.ml +++ b/reloc.ml @@ -698,12 +698,12 @@ let build_dll link_exe output_file files exts extra_args = (* Iterates through DEFAULTLIB directives *) let register_deflib fn = - if not (is_crt_lib fn) then + if not !custom_crt || not (is_crt_lib fn) then let fn = find_file fn in if not (Hashtbl.mem loaded_filenames fn) then (Hashtbl.add loaded_filenames fn (); collect_file fn) in - if not !builtin_linker && !use_default_libs && not !custom_crt then + if not !builtin_linker && !use_default_libs then List.iter (fun (cmd, args) -> if String.uppercase_ascii cmd = "DEFAULTLIB" then List.iter register_deflib args