paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-06 22:58:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazDebugger[Fp]Lldb: fix for new Apple-LLDB version. Read new format for eval results (e.g. exception data)

Browse Source
This commit is contained in:
Martin 2023-10-10 19:26:48 +02:00
parent 5b43d582a0
commit 07025f3b9c
1 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/lazdebuggers/lazdebuggerlldb/lldbinstructions.pas
View File

@ -1107,17 +1107,27 @@ begin
exit; exit;
end; end;
// error: use of undeclared identifier 'i'
// (int) $0 = 133
// (LONGINT) I = 99
// (ANSISTRING) $1 = 0x005aac80
if StrMatches(AData, ['(', ')', ' = ', ''], found) then begin if StrMatches(AData, ['(', ')', ' = ', ''], found) then begin
FRes := AData; FRes := AData;
FCurly := 0; FCurly := 0;
if ParseStruct(found[2]) then if ParseStruct(found[2]) then
SetContentReceieved; SetContentReceieved;
exit; exit;
end
else
// (char *) 0x0000000111246cd8 "\"\" is not a valid boolean."
// (unsigned long) 0x0000000106e6f8a0
if StrMatches(AData, ['(', ') ', ''], found) then begin
FRes := AData;
FCurly := 0;
if ParseStruct(found[1]) then
SetContentReceieved;
exit;
end; end;
// error: use of undeclared identifier 'i'
// (int) $0 = 133
// (LONGINT) I = 99
// (ANSISTRING) $1 = 0x005aac80
Result := inherited ProcessInputFromDbg(AData); Result := inherited ProcessInputFromDbg(AData);
end; end;