paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-29 13:00:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazDebugger(Fp)LLDB: fix getting class-name for exceptions

Browse Source 
git-svn-id: trunk@59679 -
This commit is contained in:
martin 2018-11-27 18:37:53 +00:00
parent 7716b8a149
commit ca2eda8348
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -682,11 +682,13 @@ var
i: SizeInt;
begin
// (char * ) $2 = 0x005c18d0 "\tException"
// (char *) $10 = 0x00652d44 "\x04TXXX"
s := TLldbInstructionReadExpression(Sender).Res;
i := pos('"', s);
if i > 0 then begin
if s[i+1] = '\' then inc(i);
s := copy(s, i+2, Length(s)-i-2);
if s[i+1] = '\' then inc(i, 2);
if s[i] = 'x' then inc(i, 2);
s := copy(s, i+1, Length(s)-i-1);
end;
FCurrentExceptionInfo.FExceptClass := s;
Include(FCurrentExceptionInfo.FHasCommandData, exiClass);