paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-23 08:40:04 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed getting target PID for fpc1.1 programs

Browse Source 
git-svn-id: trunk@3076 -
This commit is contained in:
mattias 2002-08-18 08:57:30 +00:00
parent d864feaa80
commit 8e208104bd
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
debugger/gdbmidebugger.pp
View File

@ -518,6 +518,7 @@ var
S: String; S: String;
ResultState: TDBGState; ResultState: TDBGState;
ResultList, BkptList: TStringList; ResultList, BkptList: TStringList;
TargetPIDPart: String;
begin begin
if State in [dsStop] if State in [dsStop]
then begin then begin
@ -553,7 +554,11 @@ begin
// try to find PID // try to find PID
if ExecuteCommand('info program', [], True, ResultState, S, True) if ExecuteCommand('info program', [], True, ResultState, S, True)
then begin then begin
FTargetPID := StrToIntDef(GetPart('child process ', '.', S), 0); TargetPIDPart:=GetPart('child process ', '.', S);
if TargetPIDPart='' then
TargetPIDPart:=GetPart('child Thread ', ' ', S);
FTargetPID := StrToIntDef(TargetPIDPart, 0);
WriteLN('Target PID: ', FTargetPID); WriteLN('Target PID: ', FTargetPID);
end end
else begin else begin
@ -1663,6 +1668,9 @@ end;
end. end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.12 2003/05/27 17:53:44 mattias
fixed getting target PID for fpc1.1 programs
Revision 1.11 2003/05/27 08:01:31 marc Revision 1.11 2003/05/27 08:01:31 marc
MWE: + Added exception break MWE: + Added exception break
* Reworked adding/removing breakpoints * Reworked adding/removing breakpoints