paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 11:29:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* commented a forgotten debug writeln

Browse Source 
git-svn-id: trunk@13840 -
This commit is contained in:
marco 2009-10-10 21:26:36 +00:00
parent 54b8628671
commit 5d1eb35734
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1816,7 +1816,7 @@ begin
for i:=0 to Indexblocknr-1 do for i:=0 to Indexblocknr-1 do
begin begin
Entrybytes:=ScanIndexBlock(@blockn[i][0]); Entrybytes:=ScanIndexBlock(@blockn[i][0]);
writeln('after scan ,',i, ' bytes: ',entrybytes,' blocknr:',blocknr,' indexblocknr:',indexblocknr,' to:',blocknr+i); // writeln('after scan ,',i, ' bytes: ',entrybytes,' blocknr:',blocknr,' indexblocknr:',indexblocknr,' to:',blocknr+i);
MoveIndexEntry(i,Entrybytes,blocknr+i); MoveIndexEntry(i,Entrybytes,blocknr+i);
indexStream.Write(blockn[i][0],defblocksize); indexStream.Write(blockn[i][0],defblocksize);
end; end;