paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-07 08:16:15 +01:00
Code Issues Packages Projects Releases Wiki Activity

Use PID to generate unique GDB script names

Browse Source 
Limit this to cases when -vj or -vJ option is
used to call the compiler, which adds a PID prefix
to all compiler output.
  This feature is useful to debug parallel make issues.
This commit is contained in:
Pierre Muller 2023-09-13 08:45:27 +02:00
parent c6fbebf6ad
commit 224a7a8a54
1 changed files with 23 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
compiler/utils/gppc386.pp
View File

@ -65,7 +65,7 @@ const
{ If you add a gdb.fpc file in a given directory }
{ GDB will read it; this allows you to add }
{ special tests in specific directories PM }
FpcGDBIniName = 'gdb.fpc';
FpcGDBIniName : string = 'gdb.fpc';
GDBIniTempName : string = 'gdb4fpc.ini';
@ -86,11 +86,27 @@ var
{$ifdef linux}
argv0 : pchar;
{$endif}
Dir,Name,Ext : ShortString;
Dir,Name,Ext,PIDSuffix,Param : ShortString;
GDBError,GDBExitCode,i : longint;
PidSpecificNamesRequired : Boolean;
begin
PIDSuffix:='';
PidSpecificNamesRequired:=False;
{ Check if -vj or -vJ is used, this is for parallel make,
so use PID specific file names in that case }
for i:=1 to Paramcount do
begin
Param:=Paramstr(i);
if (Copy(Param,1,2)='-v') and ((pos('j',Param)>0) or (pos('J',Param)>0)) then
PidSpecificNamesRequired:=True;
end;
if PidSpecificNamesRequired then
begin
system.str(GetProcessId,PIDSuffix);
FPCGDBIniName:=FPCGDBIniName+PIDSuffix;
GDBIniTempName:=GDBIniTempName+PIDSuffix;
end;
fsplit(paramstr(0),Dir,Name,Ext);
{$ifdef linux}
argv0:=argv[0];
@ -152,10 +168,11 @@ begin
{ this will not work correctly if there are " or '' inside the command line :( }
for i:=1 to Paramcount do
begin
if pos(' ',Paramstr(i))>0 then
Write(fpcgdbini,' "'+ParamStr(i)+'"')
Param:=Paramstr(i);
if pos(' ',Param)>0 then
Write(fpcgdbini,' "'+Param+'"')
else
Write(fpcgdbini,' '+ParamStr(i));
Write(fpcgdbini,' '+Param);
end;
Writeln(fpcgdbini);
Writeln(fpcgdbini,'b SYSTEM_EXIT');