paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 01:39:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Correct the wrong code commented out by last commit

Browse Source
This commit is contained in:
pierre 2002-11-28 08:44:19 +00:00
parent 18fd47a47a
commit 84b5d460ea
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/wwinhelp.pas
View File

@ -268,7 +268,7 @@ end;
procedure TTopicBlock.Read(var Buf; Count: longint); procedure TTopicBlock.Read(var Buf; Count: longint);
begin begin
{FillChar(Buf,Sizeof(Buf),Count);} FillChar(Buf,Count,0);
if Count>(DataSize-CurOfs) then if Count>(DataSize-CurOfs) then
begin begin
Count:=Max(0,DataSize-CurOfs); Count:=Max(0,DataSize-CurOfs);
@ -1677,7 +1677,10 @@ end;
END. END.
{ {
$Log$ $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 * removed wrong fillchar statement
Revision 1.3 2002/09/07 15:40:50 peter Revision 1.3 2002/09/07 15:40:50 peter