1 Don't recognize directories as libraries. eg. If we have system
2 libvirt and OCaml bindings in $OCAML_LIB_DIR/libvirt, then we don't
3 want '-lvirt' to "discover" the OCaml bindings directory.
5 diff -ur flexdll/reloc.ml flexdll.mingw/reloc.ml
6 --- flexdll/reloc.ml 2008-11-16 18:41:01.000000000 +0000
7 +++ flexdll.mingw/reloc.ml 2008-11-16 18:39:18.000000000 +0000
9 Filename.dirname (get_output1 (Printf.sprintf "i686-pc-mingw32-gcc %s-print-libgcc-file-name" extra))
\r
11 let file_exists fn =
\r
12 - if Sys.file_exists fn then Some fn
\r
13 + if Sys.file_exists fn && not (Sys.is_directory fn) then Some fn
\r
14 else if !use_cygpath && Sys.file_exists (fn ^ ".lnk") then
\r
15 Some (get_output1 (Printf.sprintf "cygpath -m %s" fn))
\r