* Fixes compilation problem

git-svn-id: trunk@13839 -
This commit is contained in:
marco 2009-10-10 19:23:30 +00:00
parent cba72c423d
commit 54b8628671

View File

@ -240,7 +240,7 @@ begin
end; end;
end; end;
if not nobintoc then if not fnobintoc then
fchm.AppendBinaryTOCFromSiteMap(Toc); fchm.AppendBinaryTOCFromSiteMap(Toc);
TOC.SaveToStream(Stream); TOC.SaveToStream(Stream);
TOC.Free; TOC.Free;
@ -416,7 +416,7 @@ begin
// save // save
Index.SaveToStream(Stream); Index.SaveToStream(Stream);
if not nobinindex then if not fnobinindex then
fchm.AppendBinaryindexFromSitemap(index,false); fchm.AppendBinaryindexFromSitemap(index,false);
Index.Free; Index.Free;
Stream.Position :=0 ; Stream.Position :=0 ;
@ -455,8 +455,8 @@ begin
FChm.TempRawStream := FTempUncompressed; FChm.TempRawStream := FTempUncompressed;
FChm.OnGetFileData := @RetrieveOtherFiles; FChm.OnGetFileData := @RetrieveOtherFiles;
FChm.OnLastFile := @LastFileAdded; FChm.OnLastFile := @LastFileAdded;
fchm.hasbinarytoc:=not nobinarytoc;; fchm.hasbinarytoc:=not fnobintoc;;
fchm.hasbinaryindex:=not nobinaryindex; fchm.hasbinaryindex:=not fnobinindex;
ProcessOptions; ProcessOptions;
FileStream := TMemoryStream.Create; FileStream := TMemoryStream.Create;