paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-06 17:10:50 +01:00
Code Issues Packages Projects Releases Wiki Activity

* misc chm binindex logging (under ifdef)

Browse Source 
git-svn-id: trunk@32446 -
This commit is contained in:
marco 2015-11-21 19:39:24 +00:00
parent 49f8d574db
commit b371c43c3e
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2071,6 +2071,7 @@ begin
entrysize:=p-pbyte(@testblock[0]);
{$ifdef binindex}
writeln(curind, ' ',entrysize, ' ',defblocksize);
writeln('curstr ',str,' ',commaatposition);
{$endif}
if (curind+entrysize)>=Defblocksize then
begin
@ -2200,6 +2201,9 @@ begin
end;
{$endif}
begin
{$ifdef binindex}
writeln('starting index');
{$endif}
IndexStream:=TMemoryStream.Create;
indexstream.size:=sizeof(TBTreeHeader);
IndexStream.position:=Sizeof(TBTreeHeader);
@ -2367,6 +2371,10 @@ begin
MapStream.Free;
DataStream.Free;
FHasKLinks:=TotalEntries>0;
{$ifdef binindex}
writeln('end index');
{$endif}
end;
procedure TChmWriter.AppendBinaryTOCStream(AStream: TStream);