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

* free doc before calling a readxmlfile procedure routine with OUT parameter. Fixes #40126

Browse Source 
(cherry picked from commit 8c888d9744)
This commit is contained in:
marcoonthegit 2023-01-23 18:48:08 +01:00
parent 66bfb69e96
commit 3aa9e1dc62
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -167,6 +167,7 @@ begin
F:=TFileStream.Create(AFileName,fmOpenread or fmShareDenyWrite);
try
FFileName := '';
Doc.Free;
ReadXMLFile(Doc, AFilename);
FFileName:=AFileName;
finally
@ -176,6 +177,7 @@ end;
procedure TXMLConfig.LoadFromStream(S: TStream);
begin
Doc.Free;
ReadXMLFile(Doc,S);
FModified := False;
if (Doc.DocumentElement.NodeName<>FRootName) then