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

* fcl-xml: Fixed parsing DTD, whitespace after name is mandatory only if followed by ExternalID. Mantis #29569.

Browse Source 
git-svn-id: trunk@33040 -
This commit is contained in:
sergei 2016-02-02 02:27:28 +00:00
parent 2e64c63993
commit 9b25ce2007
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-xml/src/xmltextreader.pp
View File

@ -1911,12 +1911,15 @@ begin
CheckName; CheckName;
SetString(FDocType.FName, FName.Buffer, FName.Length); SetString(FDocType.FName, FName.Buffer, FName.Length);
DTDName := FNameTable.FindOrAdd(FName.Buffer, FName.Length); DTDName := FNameTable.FindOrAdd(FName.Buffer, FName.Length);
SkipS(True);
if SkipS then
begin
StoreLocation(Locs[0]); StoreLocation(Locs[0]);
HasAtts := ParseExternalID(FDocType.FSystemID, FDocType.FPublicID, Locs[1], False); HasAtts := ParseExternalID(FDocType.FSystemID, FDocType.FPublicID, Locs[1], False);
if HasAtts then if HasAtts then
Locs[2] := FTokenStart; Locs[2] := FTokenStart;
SkipS; SkipS;
end;
if CheckForChar('[') then if CheckForChar('[') then
begin begin