* Patch from Sergei Gorelkin:

  Fixes a bug in internal DTD subset processing, which was preventing
  tokens that cross input buffer boundary from being correctly added to
  DocType.InternalSubset (the first part of such tokens was dropped).

git-svn-id: trunk@12860 -

packages/fcl-xml/src/xmlread.pp

@@ -2047,7 +2047,7 @@ begin
       Inc(p);
     FDTDStartPos := p;
   end;
-  FDTDStartPos := TXMLDecodingSource(FSource).FBufStart + (FSource.FBufEnd-FSource.FBuf);
+  FDTDStartPos := TXMLDecodingSource(FSource).FBufStart;
 end;
 
 procedure TXMLReader.ParseDoctypeDecl;    // [28]