paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 20:29:17 +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

8
compiler/link.pas
View File

@ -653,11 +653,19 @@ Implementation
Info.ResName:=ChangeFileExt(inputfilename,'_link.res'); Info.ResName:=ChangeFileExt(inputfilename,'_link.res');
Info.ScriptName:=ChangeFileExt(inputfilename,'_script.res'); Info.ScriptName:=ChangeFileExt(inputfilename,'_script.res');
end end
else
begin
if GetProcessID>0 then
begin
Info.ResName:='link'+tostr(GetProcessID)+'.res';
Info.ScriptName:='script'+tostr(GetProcessID)+'.res';
end
else else
begin begin
Info.ResName:='link.res'; Info.ResName:='link.res';
Info.ScriptName:='script.res'; Info.ScriptName:='script.res';
end; end;
end;
{ set the linker specific defaults } { set the linker specific defaults }
SetDefaultInfo; SetDefaultInfo;
{ Allow Parameter overrides for linker info } { Allow Parameter overrides for linker info }