WIP: support -l:

Needs to be extended not to try alternate extensions (i.e. to take the basename literally)
ocaml · Sep 22, 2022 · 6b5da46 · 6b5da46
1 parent f624a8a
commit 6b5da46
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/reloc.ml b/reloc.ml
@@ -296,7 +296,9 @@ let find_file =
         let fns =
           if String.length fn > 2 && String.sub fn 0 2 = "-l" then
             let base = String.sub fn 2 (String.length fn - 2) in
-            if !toolchain = `MSVC || !toolchain = `MSVC64 then
+            if String.length base > 0 && base.[0] = ':' then
+              [String.sub base 1 (String.length base - 1)]
+            else if !toolchain = `MSVC || !toolchain = `MSVC64 then
               ["lib" ^ base; base]
             else
               ["lib" ^ base]