paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-22 21:09:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

fixed debugging under fedora core from Colin

Browse Source 
git-svn-id: trunk@5407 -
This commit is contained in:
mattias 2004-04-13 20:14:26 +00:00
parent f9b13e171e
commit 55f6eb6906
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
debugger/gdbmidebugger.pp
View File

@ -1545,7 +1545,10 @@ begin
then begin then begin
TargetPIDPart := GetPart(['child process ', 'child thread '], [' ', '.'], S, True); TargetPIDPart := GetPart(['child process ', 'child thread '], [' ', '.'], 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
@ -2261,6 +2264,9 @@ initialization
end. end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.45 2004/04/13 20:14:26 mattias
fixed debugging under fedora core from Colin
Revision 1.44 2004/03/13 00:01:53 marc Revision 1.44 2004/03/13 00:01:53 marc
* fixed debugtarget PID parsing (for win32) * fixed debugtarget PID parsing (for win32)