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

LazDebuggerLldb, FP: fix register for Apple M1 (arm64). Required to get exception class and message.

Browse Source 
(cherry picked from commit 699b7e240a)
This commit is contained in:
Martin 2022-02-22 01:00:17 +01:00
parent 1adfc8ebac
commit b464aafe69
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2344,6 +2344,14 @@ begin
Debugger.FTargetRegisters[2] := '$ecx';
end
else
if StrContains(found[1], 'arm64') then begin
DebugLn(DBG_VERBOSE, ['Target ARM/M1: ', found[1]]);
Debugger.FTargetWidth := 64;
Debugger.FTargetRegisters[0] := '$x0';
Debugger.FTargetRegisters[1] := '$x1';
Debugger.FTargetRegisters[2] := '$x2';
end
else
if (found[1] = '(x86_64)') or (found[1] = 'x86_64') then begin
DebugLn(DBG_VERBOSE, ['Target 64 bit: ', found[1]]);
Debugger.FTargetWidth := 64;