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

* Fixed CDATA section splitting which got broken due to excessive optimization in r14194.

Browse Source 
git-svn-id: trunk@14648 -
This commit is contained in:
sergei 2010-01-14 21:38:22 +00:00
parent 61f8a71380
commit a24b84c11b
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

@ -319,7 +319,7 @@ begin
EndPos := 1; EndPos := 1;
while EndPos <= Length(s) do while EndPos <= Length(s) do
begin begin
if (s[EndPos] < 'A') and (Char(ord(s[EndPos])) in SpecialChars) then if (s[EndPos] < #128) and (Char(ord(s[EndPos])) in SpecialChars) then
begin begin
wrtChars(@s[StartPos], EndPos - StartPos); wrtChars(@s[StartPos], EndPos - StartPos);
SpecialCharCallback(Self, s, EndPos); SpecialCharCallback(Self, s, EndPos);