From ffc50c888cab34cf947a778a913387ddad7725cc Mon Sep 17 00:00:00 2001
From: Martin <laz.git@mfriebe.de>
Date: Sun, 27 Feb 2022 18:56:41 +0100
Subject: [PATCH] FpDebug: Fix RangeCheck, TByteArray has an upper limit of
 32k.

(cherry picked from commit 27f4c50dbd70c2d232077b1c0303616485b96a8e)
---
 components/fpdebug/fpdbgclasses.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/fpdebug/fpdbgclasses.pp b/components/fpdebug/fpdbgclasses.pp
index 7308b7e888..787116fd2c 100644
--- a/components/fpdebug/fpdbgclasses.pp
+++ b/components/fpdebug/fpdbgclasses.pp
@@ -2415,7 +2415,7 @@ var
 begin
   for Brk in FBreakMap do begin
     if (Brk.Location >= AAdress) and (Brk.Location < (AAdress+ASize)) then
-      TByteArray(AData)[Brk.Location-AAdress] := Brk.OrigValue;
+      PByte(@AData)[Brk.Location-AAdress] := Brk.OrigValue;
   end;
 end;