paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 21:39:23 +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 
(cherry picked from commit c4483bf7f4)
This commit is contained in:
Martin 2024-01-21 00:31:18 +01:00
parent ca859f5b3e
commit 910afda1b3
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

@ -1546,6 +1546,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