paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 02:51:37 +01: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;
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;