paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-20 10:59:23 +01:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: remove double line break from formatted watches.

Browse Source 
git-svn-id: trunk@65488 -
This commit is contained in:
martin 2021-07-22 00:29:26 +00:00
parent d7b4f956ca
commit e61ab5d73d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpdebug/fppascalbuilder.pas
View File

@ -1117,7 +1117,7 @@ function TFpPascalPrettyPrinter.InternalPrintValue(out APrintedValue: String;
end;
s2 := LineEnding;
if AFlags <> [] then s2 := ' ';;
if AOptions * [ppoStackParam] <> [] then s2 := ' ';
fl := [ppvSkipClassBody];
//if ppvSkipClassBody in AFlags then
// fl := [ppvSkipClassBody, ppvSkipRecordBody];
@ -1154,7 +1154,7 @@ function TFpPascalPrettyPrinter.InternalPrintValue(out APrintedValue: String;
if not Result then begin
if APrintedValue = ''
then APrintedValue := s
else APrintedValue := APrintedValue + ';' + LineEnding + s2 + s;
else APrintedValue := APrintedValue + ';' + s2 + s;
end;
if (ppvCreateDbgType in AFlags) then begin
s := '';