paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 02:11:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug #33803

Browse Source 
git-svn-id: trunk@39146 -
This commit is contained in:
michael 2018-05-30 04:08:39 +00:00
parent 6ee483279c
commit 133e7e53f0
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-xml/src/xmlwrite.pp
View File

@ -288,7 +288,7 @@ begin
Inc(FNesting); Inc(FNesting);
if FNesting >= Length(FNodes) then if FNesting >= Length(FNodes) then
SetLength(FNodes, FNesting+8); SetLength(FNodes, FNesting+8);
if Length(FIndent) < 2 * FNesting then if (Length(FIndent)-Length(FLineBreak)) < 2 * FNesting then
begin begin
OldLen := Length(FIndent); OldLen := Length(FIndent);
NewLen := 4 * FNesting; NewLen := 4 * FNesting;