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: trunk@16183 -

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]