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

LazDebuggerFpLldb: fixed watch-eval for Mac-M2, if stackwindow is closed. (register PC for M2)

Browse Source
This commit is contained in:
Martin 2024-01-21 00:31:18 +01:00
parent 5afaa37764
commit c4483bf7f4
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/lazdebuggers/lazdebuggerfplldb/fplldbdebugger.pas
View File

@ -1554,6 +1554,9 @@ begin
r := Registers.CurrentRegistersList[AThreadId, AStackFrame]; r := Registers.CurrentRegistersList[AThreadId, AStackFrame];
if (r <> nil) and (r.DataValidity = ddsValid) then begin if (r <> nil) and (r.DataValidity = ddsValid) then begin
try try
if FDwarfInfo.TargetInfo.machineType in [mtARM, mtARM64] then
v := r.EntriesByName['PC'].ValueObjFormat[rdDefault].Value[rdDefault]
else
if TargetWidth = 64 then if TargetWidth = 64 then
v := r.EntriesByName['RIP'].ValueObjFormat[rdDefault].Value[rdDefault] v := r.EntriesByName['RIP'].ValueObjFormat[rdDefault].Value[rdDefault]
else else