From 4dd92cbcb49f080b3fa13f1a5988c620c5921359 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Sat, 17 Nov 2018 20:13:01 +0000
Subject: [PATCH] FpDebug: format structured values (class) as one line per
 field

git-svn-id: branches/fixes_2_0@59576 -
---
 components/fpdebug/fppascalbuilder.pas | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/components/fpdebug/fppascalbuilder.pas b/components/fpdebug/fppascalbuilder.pas
index c9b7490090..c9945977d7 100644
--- a/components/fpdebug/fppascalbuilder.pas
+++ b/components/fpdebug/fppascalbuilder.pas
@@ -739,7 +739,8 @@ function TFpPascalPrettyPrinter.InternalPrintValue(out APrintedValue: String;
         if (m = nil) or (m.Kind in [skProcedure, skFunction]) then
           continue;
         s := '';
-        InternalPrintValue(MbVal, m, AnAddressSize, fl, ANestLevel+1, AnIndent, ADisplayFormat, -1, nil, AOptions);
+        // ppoStackParam: Do not expand nested structures // may need ppoSingleLine?
+        InternalPrintValue(MbVal, m, AnAddressSize, fl, ANestLevel+1, AnIndent, ADisplayFormat, -1, nil, AOptions+[ppoStackParam]);
         if m.DbgSymbol <> nil then begin
           MbName := m.DbgSymbol.Name;
           s := MbName + ' = ' + MbVal;
@@ -752,7 +753,7 @@ function TFpPascalPrettyPrinter.InternalPrintValue(out APrintedValue: String;
         if not Result then begin
           if APrintedValue = ''
           then APrintedValue := s
-          else APrintedValue := APrintedValue + '; ' + s2 + s;
+          else APrintedValue := APrintedValue + ';' + LineEnding + s2 + s;
         end;
         if (ppvCreateDbgType in AFlags) then begin
           s := '';