paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 00:09:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@42645 -
This commit is contained in:
florian 2019-08-11 15:58:36 +00:00
parent 7173349689
commit 45c4e81b62
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/link.pas
View File

@ -655,8 +655,16 @@ Implementation
end end
else else
begin begin
Info.ResName:='link.res'; if GetProcessID>0 then
Info.ScriptName:='script.res'; 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; end;
{ set the linker specific defaults } { set the linker specific defaults }
SetDefaultInfo; SetDefaultInfo;