From c7e123fd8de1adb54b6c3cac35b7559bbe5ccb5e Mon Sep 17 00:00:00 2001
From: Martin <laz.git@mfriebe.de>
Date: Wed, 23 Mar 2022 17:22:18 +0100
Subject: [PATCH] FpDebug: Fix stack-overflow for types with recursive
 declaration.

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

diff --git a/components/fpdebug/fpdbgdwarf.pas b/components/fpdebug/fpdbgdwarf.pas
index 2fbfe58f5d..5f7c561365 100644
--- a/components/fpdebug/fpdbgdwarf.pas
+++ b/components/fpdebug/fpdbgdwarf.pas
@@ -4439,6 +4439,8 @@ procedure TFpSymbolDwarfType.ResetValueBounds;
 var
   ti: TFpSymbolDwarfType;
 begin
+  if FNestedTypeInfo = nil then
+    exit;
   ti := NestedTypeInfo;
   if (ti <> nil) then
     ti.ResetValueBounds;