paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-09 19:28:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

Removed some writeln's that were added by mistake from chmwriter

Browse Source 
git-svn-id: trunk@12099 -
This commit is contained in:
andrew 2008-11-15 02:05:13 +00:00
parent 1f44d74d8c
commit 1e1fe2eacf
1 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -549,7 +549,6 @@ begin
PostAddStreamToArchive('#TOPICS', '/', FTopicsStream);
AWord := FIndexedFiles.FirstWord;
WriteLn('Writing TOPICS');
while AWord <> nil do
begin
FHits := 0;
@ -719,8 +718,6 @@ begin
SearchWriter.WriteToStream;
SearchWriter.Free;
WriteLn('FIftiMain Size = ', FFiftiMainStream.Size);
if FFiftiMainStream.Size = 0 then
Exit;
@ -835,7 +832,6 @@ function TChmWriter.AddURL ( AURL: String; TopicsIndex: DWord ) : LongWord;
Len: LongWord;
begin
Rem := $4000 - (FURLSTRStream.Size mod $4000);
WriteLn(Rem);
Len := 9 + Length(AString);
if Rem < Len then
while Rem > 0 do
@ -1011,7 +1007,6 @@ type
begin
if Pos('.ht', AFileEntry.Name) > 0 then
begin
WriteLn('Should Search ', AFileEntry.Name);
ATitle := FIndexedFiles.IndexFile(AStream, GetNewTopicsIndex);
if ATitle <> '' then
TopicEntry.StringsOffset := AddString(ATitle)
@ -1026,8 +1021,7 @@ begin
FTopicsStream.WriteDWord(LEtoN(TopicEntry.URLTableOffset));
FTopicsStream.WriteWord(LEtoN(TopicEntry.InContents));
FTopicsStream.WriteWord(LEtoN(TopicEntry.Unknown));
end
else WriteLn('Don''t Search ', AFileEntry.Name);
end;
end;
constructor TChmWriter.Create(OutStream: TStream; FreeStreamOnDestroy: Boolean);