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

* avoid double free when reusing chmsitemap objects

Browse Source 
git-svn-id: trunk@11884 -
This commit is contained in:
marco 2008-10-12 10:02:18 +00:00
parent 9ab9c1517c
commit d6c5cacd80
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/chm/src/chmsitemap.pas
View File

@ -277,6 +277,7 @@ begin
FSiteMapType := AType; FSiteMapType := AType;
FSiteMapTags := [smtNone]; FSiteMapTags := [smtNone];
FSiteMapBodyTags := [smbtNone]; FSiteMapBodyTags := [smbtNone];
FHTMLParser:=nil;
FItems := TChmSiteMapItems.Create(Self, nil); ; FItems := TChmSiteMapItems.Create(Self, nil); ;
end; end;
@ -302,7 +303,7 @@ begin
FHTMLParser.OnFoundTag := @FoundTag; FHTMLParser.OnFoundTag := @FoundTag;
FHTMLParser.OnFoundText := @FoundText; FHTMLParser.OnFoundText := @FoundText;
FHTMLParser.Exec; FHTMLParser.Exec;
FHTMLParser.Free; FreeAndNil(FHTMLParser);
end; end;
procedure TChmSiteMap.LoadFromStream(AStream: TStream); procedure TChmSiteMap.LoadFromStream(AStream: TStream);
@ -316,7 +317,7 @@ begin
FHTMLParser.OnFoundTag := @FoundTag; FHTMLParser.OnFoundTag := @FoundTag;
FHTMLParser.OnFoundText := @FoundText; FHTMLParser.OnFoundText := @FoundText;
FHTMLParser.Exec; FHTMLParser.Exec;
FHTMLParser.Free; FreeAndNil(FHTMLParser);
end; end;
end; end;