paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 21:49:15 +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); PostAddStreamToArchive('#TOPICS', '/', FTopicsStream);
AWord := FIndexedFiles.FirstWord; AWord := FIndexedFiles.FirstWord;
WriteLn('Writing TOPICS');
while AWord <> nil do while AWord <> nil do
begin begin
FHits := 0; FHits := 0;
@ -719,8 +718,6 @@ begin
SearchWriter.WriteToStream; SearchWriter.WriteToStream;
SearchWriter.Free; SearchWriter.Free;
WriteLn('FIftiMain Size = ', FFiftiMainStream.Size);
if FFiftiMainStream.Size = 0 then if FFiftiMainStream.Size = 0 then
Exit; Exit;
@ -835,7 +832,6 @@ function TChmWriter.AddURL ( AURL: String; TopicsIndex: DWord ) : LongWord;
Len: LongWord; Len: LongWord;
begin begin
Rem := $4000 - (FURLSTRStream.Size mod $4000); Rem := $4000 - (FURLSTRStream.Size mod $4000);
WriteLn(Rem);
Len := 9 + Length(AString); Len := 9 + Length(AString);
if Rem < Len then if Rem < Len then
while Rem > 0 do while Rem > 0 do
@ -1011,7 +1007,6 @@ type
begin begin
if Pos('.ht', AFileEntry.Name) > 0 then if Pos('.ht', AFileEntry.Name) > 0 then
begin begin
WriteLn('Should Search ', AFileEntry.Name);
ATitle := FIndexedFiles.IndexFile(AStream, GetNewTopicsIndex); ATitle := FIndexedFiles.IndexFile(AStream, GetNewTopicsIndex);
if ATitle <> '' then if ATitle <> '' then
TopicEntry.StringsOffset := AddString(ATitle) TopicEntry.StringsOffset := AddString(ATitle)
@ -1026,8 +1021,7 @@ begin
FTopicsStream.WriteDWord(LEtoN(TopicEntry.URLTableOffset)); FTopicsStream.WriteDWord(LEtoN(TopicEntry.URLTableOffset));
FTopicsStream.WriteWord(LEtoN(TopicEntry.InContents)); FTopicsStream.WriteWord(LEtoN(TopicEntry.InContents));
FTopicsStream.WriteWord(LEtoN(TopicEntry.Unknown)); FTopicsStream.WriteWord(LEtoN(TopicEntry.Unknown));
end end;
else WriteLn('Don''t Search ', AFileEntry.Name);
end; end;
constructor TChmWriter.Create(OutStream: TStream; FreeStreamOnDestroy: Boolean); constructor TChmWriter.Create(OutStream: TStream; FreeStreamOnDestroy: Boolean);