paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 01:39:30 +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

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

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