diff --git a/Pm/PmDriver.icl b/Pm/PmDriver.icl index bd4d3e53f13f6fcc249bc886bb609a2ffb430109..0fca069a7ff8f300dcfb05d775fd2a43c44572dc 100644 --- a/Pm/PmDriver.icl +++ b/Pm/PmDriver.icl @@ -940,8 +940,15 @@ step intr (DLink ds=:{ok, newpaths, fileinfo, libsinfo, modpaths, abccache, proj = GetPathNames linkObjFileNames ofiles srcpaths abcPathsCache ps # (_,ofiles`,abcPathsCache, ps) = GetPathNames /*abcLinkInfo.*/linkObjFileNames ofiles` srcpaths abcPathsCache ps + # (shared_libraries,library_files) + = IF_WINDOWS + (Nil, libs) + ( [|l \\ (_,l) <|- libs | isSharedLibrary l] + , Filter (\(_,l) -> not (isSharedLibrary l)) libs + ) + with isSharedLibrary l = size l >= 2 && l.[0]=='-' && l.[1]=='l' # (libPathsOk,lfiles,abcPathsCache, ps) - = GetPathNames libs lfiles srcpaths abcPathsCache ps + = GetPathNames library_files lfiles srcpaths abcPathsCache ps | not objPathsOk # line = Level3 ["Link error: File: '" +++ (Head ofiles) +++ "' not found."] # ps = showInfo line ps @@ -957,6 +964,7 @@ step intr (DLink ds=:{ok, newpaths, fileinfo, libsinfo, modpaths, abccache, proj # ofiles = Concat extraObjectModules ofiles # ofiles` = Concat extraObjectModules ofiles` # lfiles = Concat lo.libraries lfiles + # lfiles = Concat shared_libraries lfiles # (env_static_libs,ps) = getCurrentSlibs ps #! sfiles = Concat (SL_Libs libsinfo) env_static_libs // only if really used?