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

* memleak in chm support fixed, added some comments

Browse Source 
git-svn-id: trunk@11969 -
This commit is contained in:
marco 2008-10-24 15:36:34 +00:00
parent 9235b9a9b0
commit f19e69e7e8
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/wchmhwrap.pas
View File

@ -69,7 +69,7 @@ Constructor TChmWrapper.Create(name:string);
begin
ffs:=Classes.TFileStream.create(name,fmOpenRead);
fchmr:=TChmReader.Create(ffs,True);
fchmr:=TChmReader.Create(ffs,True); // owns ffs
findex:=nil;
if not fchmr.isvalidfile then
begin

5
ide/whtmlhlp.pas
View File

@ -1577,8 +1577,9 @@ end;
constructor TChmHelpFile.Init(AFileName: string; AID: word);
begin
if inherited Init(AID)=false then Fail;
renderer^.done;
if inherited Init(AID)=false then
Fail;
Dispose(renderer,done);
renderer:=New(PCHMTopicRenderer, Init);
DefaultFileName:=AFileName;
if (DefaultFileName='') or not ExistsFile(DefaultFilename) then