paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-15 08:43:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: format structured values (class) as one line per field

Browse Source 
git-svn-id: branches/fixes_2_0@59576 -
This commit is contained in:
mattias 2018-11-17 20:13:01 +00:00
parent bed1e0f8fc
commit 4dd92cbcb4
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/fpdebug/fppascalbuilder.pas
View File

@ -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 := '';