paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-26 21:09:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazUtils, allow laz2_xmlread to parse internal DOCTYPE definition

Browse Source 
git-svn-id: trunk@46084 -
This commit is contained in:
jesus 2014-08-28 19:29:59 +00:00
parent 09e3438275
commit 29f3fc79ef
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/lazutils/laz2_xmlread.pas
View File

@ -2498,9 +2498,10 @@ begin
FState := rsDTD;
try
FDocType.FName := ExpectName;
SkipS(True);
ParseExternalID(FDocType.FSystemID, FDocType.FPublicID, False);
SkipS;
if SkipS(false) then begin
ParseExternalID(FDocType.FSystemID, FDocType.FPublicID, False);
SkipS;
end;
finally
// DONE: append node after its name has been set; always append to avoid leak
if FCanonical then