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

* Merged Getpart for target PID form Colin Western

Browse Source 
git-svn-id: trunk@5409 -
This commit is contained in:
marc 2004-04-14 23:07:20 +00:00
parent b0e5db0b68
commit 9043e56a4d
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
debugger/gdbmidebugger.pp
View File

@ -1543,12 +1543,9 @@ begin
// try to find PID // try to find PID
if ExecuteCommand('info program', [], ResultState, S, [cfIgnoreError, cfNoMICommand]) if ExecuteCommand('info program', [], ResultState, S, [cfIgnoreError, cfNoMICommand])
then begin then begin
TargetPIDPart := GetPart(['child process ', 'child thread '], [' ', '.'], S, True); TargetPIDPart := GetPart(['child process ', 'child thread ', 'lwp '],
[' ', '.', ')'], S, True);
FTargetPID := StrToIntDef(TargetPIDPart, 0); FTargetPID := StrToIntDef(TargetPIDPart, 0);
if FTargetPID <= 0 then begin
TargetPIDPart := GetPart(['LWP '], [' ', ')'], S, True);
FTargetPID := StrToIntDef(TargetPIDPart, 0);
end;
WriteLN('[Debugger] Target PID: ', FTargetPID); WriteLN('[Debugger] Target PID: ', FTargetPID);
end end
else begin else begin
@ -2264,6 +2261,9 @@ initialization
end. end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.46 2004/04/14 23:07:20 marc
* Merged Getpart for target PID form Colin Western
Revision 1.45 2004/04/13 20:14:26 mattias Revision 1.45 2004/04/13 20:14:26 mattias
fixed debugging under fedora core from Colin fixed debugging under fedora core from Colin