From 3cd2c19fc8a7bbbe679fa6647361531e80493662 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Wed, 27 Nov 2019 01:52:39 +0000
Subject: [PATCH] FpDebug: more fixes for Disassembler, broken in r62171
 #a4e3cbb35e

git-svn-id: trunk@62303 -
---
 components/fpdebug/fpdbgdisasx86.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/fpdebug/fpdbgdisasx86.pp b/components/fpdebug/fpdbgdisasx86.pp
index fd71e61873..f518ef918d 100644
--- a/components/fpdebug/fpdbgdisasx86.pp
+++ b/components/fpdebug/fpdbgdisasx86.pp
@@ -3366,7 +3366,7 @@ begin
   S := '';
   while Code < AAddress do
   begin
-    S := S + HexStr(Code[n], 2);
+    S := S + HexStr(Code^, 2);
     inc(Code);
   end;
   ACodeBytes := S;