* use a process unique name for link.res, so multiple FPCs can be run in parallel in one directory

git-svn-id: trunk@42645 -

compiler/link.pas

@@ -655,8 +655,16 @@ Implementation
           end
         else
           begin
-            Info.ResName:='link.res';
-            Info.ScriptName:='script.res';
+            if GetProcessID>0 then
+              begin
+                Info.ResName:='link'+tostr(GetProcessID)+'.res';
+                Info.ScriptName:='script'+tostr(GetProcessID)+'.res';
+              end
+            else
+              begin
+                Info.ResName:='link.res';
+                Info.ScriptName:='script.res';
+              end;
           end;
         { set the linker specific defaults }
         SetDefaultInfo;