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

* Fixes compilation problem

Browse Source 
git-svn-id: trunk@13839 -
This commit is contained in:
marco 2009-10-10 19:23:30 +00:00
parent cba72c423d
commit 54b8628671
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
utils/fpdoc/dw_htmlchm.inc
View File

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