From 753201d93a49336fbc702de00e616e5d1fe7b895 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Mon, 31 Mar 2014 23:05:20 +0000
Subject: [PATCH] FpDebug: fix dyn array len / 64 bit

git-svn-id: trunk@44573 -
---
 components/fpdebug/fpdbgdwarf.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/fpdebug/fpdbgdwarf.pas b/components/fpdebug/fpdbgdwarf.pas
index e299034595..d911546564 100644
--- a/components/fpdebug/fpdbgdwarf.pas
+++ b/components/fpdebug/fpdbgdwarf.pas
@@ -1994,7 +1994,7 @@ begin
     then begin
       if not (IsReadableMem(Addr) and (LocToAddr(Addr) > 4)) then
         exit;
-      Addr.Address := Addr.Address - 4;
+      Addr.Address := Addr.Address - AddressSize;
       if MemManager.ReadSignedInt(Addr, 4, i) then begin
         Result := Integer(i)+1;
         exit;