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

XML reader, forgot to pass current settings to the nested reader (although it doesn't seem to change test suite behavior).

Browse Source 
git-svn-id: trunk@16048 -
This commit is contained in:
sergei 2010-09-26 19:50:37 +00:00
parent f3713b9f5e
commit 3648247faf
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1275,6 +1275,8 @@ constructor TXMLReader.Create(AParser: TDOMParser);
begin
Create;
FCtrl := AParser;
if FCtrl = nil then
Exit;
FValidate := FCtrl.Options.Validate;
FPreserveWhitespace := FCtrl.Options.PreserveWhitespace;
FExpandEntities := FCtrl.Options.ExpandEntities;
@ -1681,7 +1683,7 @@ begin
if not Result.FResolved then
begin
// To build children of the entity itself, we must parse it "out of context"
InnerReader := TXMLReader.Create;
InnerReader := TXMLReader.Create(FCtrl);
try
EntityToSource(Result, Src);
Result.SetReadOnly(False);