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

* fix for case that none of the two indexes are present.

Browse Source 
git-svn-id: trunk@13844 -
This commit is contained in:
marco 2009-10-11 13:03:25 +00:00
parent 7e731c78b6
commit 49aacb4a24
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/chm/src/chmreader.pas
View File

@ -938,7 +938,9 @@ begin
Result := TChmSiteMap.Create(stIndex); Result := TChmSiteMap.Create(stIndex);
Result.LoadFromStream(Index); Result.LoadFromStream(Index);
Index.Free; Index.Free;
end; end
else
result:=nil;
end; end;
procedure createentry(Name:ansistring;CharIndex:integer;Topic,Title:ansistring); procedure createentry(Name:ansistring;CharIndex:integer;Topic,Title:ansistring);