From 190a7267c4c9e99b8fb189e9d3c1f150eb314071 Mon Sep 17 00:00:00 2001
From: Joost van der Sluis <joost@cnoc.nl>
Date: Tue, 14 Dec 2021 10:35:59 +0100
Subject: [PATCH] FpDebug: Fixed compilation on Windows

---
 components/fpdebug/fpimgreaderwinpe.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/components/fpdebug/fpimgreaderwinpe.pas b/components/fpdebug/fpimgreaderwinpe.pas
index 74d1cdbd90..2e3f8c8b2d 100644
--- a/components/fpdebug/fpimgreaderwinpe.pas
+++ b/components/fpdebug/fpimgreaderwinpe.pas
@@ -228,10 +228,10 @@ var
 {$ENDIF}
 begin
   {$ifdef windows}
-  if LoadedTargetImageAddr = 0 then
+  if ImageBase = 0 then
     exit;
 
-  SetImageBase(LoadedTargetImageAddr);
+  SetImageBase(ImageBase);
   FFileLoader.LoadMemory(0, 1, hBase); // size does not matter, only obtain address
   if (hBase = nil) or (hBase^.e_magic <> IMAGE_DOS_SIGNATURE) then
     exit;
@@ -292,7 +292,7 @@ begin
     if FuncAddr = 0 then
       Continue;
 
-    AFpSymbolInfo.Add(FuncName, LoadedTargetImageAddr + FuncAddr);
+    AFpSymbolInfo.Add(FuncName, ImageBase + FuncAddr);
   end;
   {$ENDIF}
 end;