paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 19:49:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: fix DebugLnEnter/Exit

Browse Source 
git-svn-id: trunk@28252 -
This commit is contained in:
martin 2010-11-15 19:37:38 +00:00
parent b467185a27
commit 78878863ea
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/lclproc.pas
View File

@ -2420,7 +2420,7 @@ begin
write(DebugText^, s); write(DebugText^, s);
end; end;
{$endif} {$endif}
DebugNestAtBOL := (s <> '') and not (s[length(s)] in [#10,#13]); DebugNestAtBOL := (s = '') or (s[length(s)] in [#10,#13]);
end; end;
procedure DBGOut(const s1, s2: string); procedure DBGOut(const s1, s2: string);