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

xmlread.pp, r16175 caused a regression in level1/core/commentgetcomment; we should ignore comments in DTD, but not between DTD and root element. Fixed.

Browse Source 
git-svn-id: trunk@16183 -
This commit is contained in:
sergei 2010-10-18 20:19:32 +00:00
parent 56cd935acf
commit dfe1c0f228
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-xml/src/xmlread.pp
View File

@ -317,7 +317,7 @@ type
TNodeDataDynArray = array of TNodeData; TNodeDataDynArray = array of TNodeData;
TXMLReadState = (rsProlog, rsDTD, rsRoot, rsEpilog); TXMLReadState = (rsProlog, rsDTD, rsAfterDTD, rsRoot, rsEpilog);
TElementContentType = ( TElementContentType = (
ctUndeclared, ctUndeclared,
@ -2183,6 +2183,7 @@ begin
end; end;
ValidateDTD; ValidateDTD;
FDocType.SetReadOnly(True); FDocType.SetReadOnly(True);
FState := rsAfterDTD;
end; end;
procedure TXMLReader.ExpectEq; // [25] procedure TXMLReader.ExpectEq; // [25]