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

DBG: pid with gdb7.1 on Mac 32 bit

Browse Source 
git-svn-id: trunk@28617 -
This commit is contained in:
martin 2010-12-04 14:14:05 +00:00
parent 4e1a941852
commit 6cee875ace
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
debugger/gdbmidebugger.pp
View File

@ -3049,6 +3049,15 @@ begin
List.Free; List.Free;
end; end;
// apple / MacPort 7.1 / 32 bit dwarf
if (TargetInfo^.TargetPID = 0)
and ExecuteCommand('info threads', [], R, [cfCheckState])
and (R.State <> dsError)
then begin
TargetPIDPart := GetPart(['of process '], [' '], R.Values, True);
TargetInfo^.TargetPID := StrToIntDef(TargetPIDPart, 0);
end;
if TargetInfo^.TargetPID = 0 if TargetInfo^.TargetPID = 0
then begin then begin
Result := False; Result := False;