From 1c6efc9edc4db0dfaedfbafb2b7c696a9783007f Mon Sep 17 00:00:00 2001
From: Martin <laz.git@mfriebe.de>
Date: Thu, 26 Sep 2024 00:06:46 +0200
Subject: [PATCH] FpDebug: Improve the display of types (in watches) for
 structure-types in pointer to struct. Issue #40882

---
 components/fpdebug/fppascalbuilder.pas | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/components/fpdebug/fppascalbuilder.pas b/components/fpdebug/fppascalbuilder.pas
index b882492c59..d7d774a8a6 100644
--- a/components/fpdebug/fppascalbuilder.pas
+++ b/components/fpdebug/fppascalbuilder.pas
@@ -287,8 +287,10 @@ var
     while (i < c) and Result do begin
       m := ADbgSymbol.NestedSymbol[i];
       AddVisibility(m.MemberVisibility, i= 0);
-      if tdfStopAfterPointer in ANewFlags then
-        r := GetTypeName(s, m)
+      if tdfStopAfterPointer in ANewFlags then begin
+        r := GetTypeName(s, m);
+        s := m.Name + ': ' + s;
+      end
       else
         r := GetTypeAsDeclaration(s, m, [tdfIncludeVarName, tdfStopAfterPointer] + ANewFlags, AnIndent + 4);
       if r then