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

* small verbosity improvements

Browse Source 
git-svn-id: trunk@39708 -
This commit is contained in:
marco 2018-09-03 15:14:45 +00:00
parent 733559b633
commit d2607b0b76
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/chm/src/chmfilewriter.pas
View File

@ -180,9 +180,7 @@ begin
Writer.AppendIndex(FIndexStream);
if MakeBinaryIndex then
begin
{$ifdef chmindex}
Writeln('into binindex ');
{$endif}
Error(chmnote,'CHM has binary index');
Writer.AppendBinaryIndexFromSiteMap(FIndex,False);
end;
end;
@ -191,6 +189,7 @@ begin
Writer.AppendTOC(FTOCStream);
if MakeBinaryTOC then
begin
Error(chmnote,'CHM has binary toc');
Writer.AppendBinaryTOCFromSiteMap(FToc);
end;
end;
@ -1213,6 +1212,7 @@ begin
FreeAndNil(FIndex);
FIndex:=TChmSiteMap.Create(stindex);
FIndex.loadfromfile(FIndexFileName);
Error(chmnote,'Index items:'+inttostr(findex.Items.count));
except
on e: Exception do
begin

2
packages/chm/src/chmwriter.pas
View File

@ -2362,7 +2362,7 @@ begin
IndexStream.Position:=0;
IndexStream.write(hdr,sizeof(hdr));
{$ifdef binindex}
logentry('before append');
logentry('before append '+inttostr(indexstream.size));
{$endif}
AppendBinaryIndexStream(IndexStream,datastream,MapStream,PropertyStream,chw);