Przeglądaj źródła

systems/t_linux.pas, TLinkerLinux:
* WriteResponseFile: if a library has a non standard extension then we need to force the linker to look for this using ":"

git-svn-id: branches/svenbarth/packages@32507 -

svenbarth 9 lat temu
rodzic
commit
0c34a5a5c8
1 zmienionych plików z 5 dodań i 1 usunięć
  1. 5 1
      compiler/systems/t_linux.pas

+ 5 - 1
compiler/systems/t_linux.pas

@@ -499,7 +499,11 @@ begin
                  begin
                    i:=Pos(target_info.sharedlibext,S);
                    if i>0 then
-                    Delete(S,i,255);
+                    Delete(S,i,255)
+                   else
+                     if Pos('.',s)>0 then
+                       { enforce the filename }
+                       s:=':'+s;
                    Add('-l'+s);
                  end
                 else