paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 05:49:36 +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

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

@ -319,7 +319,7 @@ begin
EndPos := 1;
while EndPos <= Length(s) do
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
wrtChars(@s[StartPos], EndPos - StartPos);
SpecialCharCallback(Self, s, EndPos);