paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 15:47:51 +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; 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);
StoreLocation(Locs[0]); if SkipS then
HasAtts := ParseExternalID(FDocType.FSystemID, FDocType.FPublicID, Locs[1], False); begin
if HasAtts then StoreLocation(Locs[0]);
Locs[2] := FTokenStart; HasAtts := ParseExternalID(FDocType.FSystemID, FDocType.FPublicID, Locs[1], False);
SkipS; if HasAtts then
Locs[2] := FTokenStart;
SkipS;
end;
if CheckForChar('[') then if CheckForChar('[') then
begin begin