paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 03:19:29 +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); Writer.AppendIndex(FIndexStream);
if MakeBinaryIndex then if MakeBinaryIndex then
begin begin
{$ifdef chmindex} Error(chmnote,'CHM has binary index');
Writeln('into binindex ');
{$endif}
Writer.AppendBinaryIndexFromSiteMap(FIndex,False); Writer.AppendBinaryIndexFromSiteMap(FIndex,False);
end; end;
end; end;
@ -191,6 +189,7 @@ begin
Writer.AppendTOC(FTOCStream); Writer.AppendTOC(FTOCStream);
if MakeBinaryTOC then if MakeBinaryTOC then
begin begin
Error(chmnote,'CHM has binary toc');
Writer.AppendBinaryTOCFromSiteMap(FToc); Writer.AppendBinaryTOCFromSiteMap(FToc);
end; end;
end; end;
@ -1213,6 +1212,7 @@ begin
FreeAndNil(FIndex); FreeAndNil(FIndex);
FIndex:=TChmSiteMap.Create(stindex); FIndex:=TChmSiteMap.Create(stindex);
FIndex.loadfromfile(FIndexFileName); FIndex.loadfromfile(FIndexFileName);
Error(chmnote,'Index items:'+inttostr(findex.Items.count));
except except
on e: Exception do on e: Exception do
begin begin

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

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