diff --git a/components/lazdebuggers/lazdebuggerfplldb/fplldbdebugger.pas b/components/lazdebuggers/lazdebuggerfplldb/fplldbdebugger.pas
index e127c0da9e..e097073330 100644
--- a/components/lazdebuggers/lazdebuggerfplldb/fplldbdebugger.pas
+++ b/components/lazdebuggers/lazdebuggerfplldb/fplldbdebugger.pas
@@ -1546,6 +1546,9 @@ begin
   r := Registers.CurrentRegistersList[AThreadId, AStackFrame];
   if (r <> nil) and (r.DataValidity = ddsValid) then begin
     try
+      if FDwarfInfo.TargetInfo.machineType in [mtARM, mtARM64] then
+        v := r.EntriesByName['PC'].ValueObjFormat[rdDefault].Value[rdDefault]
+      else
       if TargetWidth = 64 then
         v := r.EntriesByName['RIP'].ValueObjFormat[rdDefault].Value[rdDefault]
       else