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

* Patch from Sergei Gorelkin:

Browse Source 
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 -
This commit is contained in:
michael 2009-03-06 10:32:49 +00:00
parent 5f2f4a8cbb
commit 9662260088
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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