paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 16:49:07 +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 begin
ffs:=Classes.TFileStream.create(name,fmOpenRead); ffs:=Classes.TFileStream.create(name,fmOpenRead);
fchmr:=TChmReader.Create(ffs,True); fchmr:=TChmReader.Create(ffs,True); // owns ffs
findex:=nil; findex:=nil;
if not fchmr.isvalidfile then if not fchmr.isvalidfile then
begin begin

5
ide/whtmlhlp.pas
View File

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