diff options
| author | sergei <sergei@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-10-18 20:19:32 +0000 |
|---|---|---|
| committer | sergei <sergei@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2010-10-18 20:19:32 +0000 |
| commit | a5ef926797abcb634c353fcedb4ba76bf799e82f (patch) | |
| tree | 98227a41a41e82706de937faeec50e4ddfc4254f /packages/fcl-xml/src | |
| parent | 29bd3f255f2c43289676e851c385ed054f08103e (diff) | |
| download | fpc-a5ef926797abcb634c353fcedb4ba76bf799e82f.tar.gz | |
xmlread.pp, r16175 caused a regression in level1/core/commentgetcomment; we should ignore comments in DTD, but not between DTD and root element. Fixed.
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@16183 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-xml/src')
| -rw-r--r-- | packages/fcl-xml/src/xmlread.pp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/packages/fcl-xml/src/xmlread.pp b/packages/fcl-xml/src/xmlread.pp index 44925e0dc0..cca98f5ba7 100644 --- a/packages/fcl-xml/src/xmlread.pp +++ b/packages/fcl-xml/src/xmlread.pp @@ -317,7 +317,7 @@ type TNodeDataDynArray = array of TNodeData; - TXMLReadState = (rsProlog, rsDTD, rsRoot, rsEpilog); + TXMLReadState = (rsProlog, rsDTD, rsAfterDTD, rsRoot, rsEpilog); TElementContentType = ( ctUndeclared, @@ -2183,6 +2183,7 @@ begin end; ValidateDTD; FDocType.SetReadOnly(True); + FState := rsAfterDTD; end; procedure TXMLReader.ExpectEq; // [25] |