mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-11 10:18:45 +02:00
* Fixes compilation problem
git-svn-id: trunk@13839 -
This commit is contained in:
parent
cba72c423d
commit
54b8628671
@ -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;
|
||||||
|
Loading…
Reference in New Issue
Block a user