Michael Van Canneyt wrote:
>
> On Wed, 12 Dec 2007, Andrew Haines wrote:
>
>> Andrew Haines wrote:
>>> Hi, the last patch had a couple of writeln's that were left in by
>>> accident :( Here's a patch.
>>>
>>>
>> bump :)
>
> Can you resend the patch ? I didn't see it ?
>
Attached.
Andrew
Index: packages/extra/chm/chmreader.pas
===================================================================
--- packages/extra/chm/chmreader.pas (revision 9423)
+++ packages/extra/chm/chmreader.pas (working copy)
@@ -671,7 +671,7 @@
I: Integer;
begin
Result := 0;
- WriteLn('Looking for URL : ', Name);
+ //WriteLn('Looking for URL : ', Name);
if Name = '' then Exit;
if fDirectoryHeader.DirectoryChunkCount = 0 then exit;
@@ -1117,7 +1117,7 @@
Found := True;
end;
if not Found then exit;
- WriteLn('Looking for URL ', URL, ' in ', AFileName);
+ //WriteLn('Looking for URL ', URL, ' in ', AFileName);
if CheckOpenFile(AFileName) then
Result := fLastChm.ObjectExists(URL);
if Result > 0 then NAme := Url;
_______________________________________________
fpc-devel maillist - [email protected]
http://lists.freepascal.org/mailman/listinfo/fpc-devel
