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

Merged revision(s) 54215 #b694bd2d46 from trunk:

Browse Source 
Debugger: fix for gdb 7.12 issue #0031386 / patch by Cyrax
........

git-svn-id: branches/fixes_1_6@54240 -
This commit is contained in:
maxim 2017-02-21 21:44:06 +00:00
parent 43cdc44672
commit f88d32abdc
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/lazdebuggergdbmi/gdbmidebugger.pp
View File

@ -4966,6 +4966,14 @@ function TGDBMIDebuggerCommandStartDebugging.DoExecute: Boolean;
if TargetInfo^.TargetPID <> 0 then exit;
end;
// gdb server
if ExecuteCommand('info proc', [], R, [cfCheckState]) and (R.State <> dsError)
then begin
s := GetPart(['process '], [#10,#13#10], R.Values, True);
TargetInfo^.TargetPID := StrToIntDef(s, 0);
if TargetInfo^.TargetPID <> 0 then exit;
end;
// apple / MacPort 7.1 / 32 bit dwarf
if ExecuteCommand('info threads', [], R, [cfCheckState]) and (R.State <> dsError)
then begin
@ -4974,7 +4982,7 @@ function TGDBMIDebuggerCommandStartDebugging.DoExecute: Boolean;
if TargetInfo^.TargetPID <> 0 then exit;
// returned by gdb server (maybe others)
s := GetPart(['Thread '], [' '], R.Values, True);
s := GetPart(['Thread '], [' ', '.'], R.Values, True);
TargetInfo^.TargetPID := StrToIntDef(s, 0);
if TargetInfo^.TargetPID <> 0 then exit;
end;