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

LLDB Debugger: fix parsing frame

Browse Source 
git-svn-id: trunk@58340 -
This commit is contained in:
martin 2018-06-19 18:13:38 +00:00
parent e887c43e0d
commit fd1571d1e5
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazdebuggers/lazdebuggerlldb/lldbhelper.pas
View File

@ -157,6 +157,12 @@ begin
AnInput := Copy(AnInput, i, Length(AnInput));
end;
if StrStartsWith(AnInput, ' + ') and (Length(AnInput) >= 4) and (AnInput[4] in ['0'..'9']) then begin
i := 4;
while (Length(AnInput) > i) and (AnInput[i+1] in ['0'..'9']) do inc(i);
delete(AnInput, 1, i);
end;
if StrMatches(AnInput, [' at ', ':', ''], found) then begin
AFile := found[0];
i := pos(', ', found[1]);