From 84b5d460ea0614dbf325137a50705d704cefadf3 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Thu, 28 Nov 2002 08:44:19 +0000
Subject: [PATCH]  * Correct the wrong code commented out by last commit

---
 ide/wwinhelp.pas | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/ide/wwinhelp.pas b/ide/wwinhelp.pas
index e1150e7e60..dce324ed43 100644
--- a/ide/wwinhelp.pas
+++ b/ide/wwinhelp.pas
@@ -268,7 +268,7 @@ end;
 
 procedure TTopicBlock.Read(var Buf; Count: longint);
 begin
-  {FillChar(Buf,Sizeof(Buf),Count);}
+  FillChar(Buf,Count,0);
   if Count>(DataSize-CurOfs) then
   begin
     Count:=Max(0,DataSize-CurOfs);
@@ -1677,7 +1677,10 @@ end;
 END.
 {
   $Log$
-  Revision 1.4  2002-11-27 20:07:03  peter
+  Revision 1.5  2002-11-28 08:44:19  pierre
+   * Correct the wrong code commented out by last commit
+
+  Revision 1.4  2002/11/27 20:07:03  peter
     * removed wrong fillchar statement
 
   Revision 1.3  2002/09/07 15:40:50  peter