From 1ba6c2f11a75d8afc8d65f1c8caf25b93d890968 Mon Sep 17 00:00:00 2001
From: Martin <laz.git@mfriebe.de>
Date: Mon, 21 Mar 2022 17:43:43 +0100
Subject: [PATCH] FpDebug: Fix for FpGdbmi (Windows). FpGdbmi does not knew the
 LoadedAddr, replace the nil value with the default ImageBase.

---
 components/fpdebug/fpimgreaderbase.pas | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/components/fpdebug/fpimgreaderbase.pas b/components/fpdebug/fpimgreaderbase.pas
index c64d0ae218..a7412f5bd1 100644
--- a/components/fpdebug/fpimgreaderbase.pas
+++ b/components/fpdebug/fpimgreaderbase.pas
@@ -426,6 +426,8 @@ end;
 procedure TDbgImageReader.SetImageBase(ABase: QWord);
 begin
   FImageBase := ABase;
+  if FLoadedTargetImageAddr = 0 then
+    FLoadedTargetImageAddr := ABase;
 end;
 
 procedure TDbgImageReader.SetImageSize(ASize: QWord);