mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-22 19:29:24 +02:00
* removed wrong fillchar statement
This commit is contained in:
parent
1b116848d8
commit
5e61e1cc80
@ -268,7 +268,7 @@ end;
|
||||
|
||||
procedure TTopicBlock.Read(var Buf; Count: longint);
|
||||
begin
|
||||
FillChar(Buf,Sizeof(Buf),Count);
|
||||
{FillChar(Buf,Sizeof(Buf),Count);}
|
||||
if Count>(DataSize-CurOfs) then
|
||||
begin
|
||||
Count:=Max(0,DataSize-CurOfs);
|
||||
@ -1677,7 +1677,10 @@ end;
|
||||
END.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.3 2002-09-07 15:40:50 peter
|
||||
Revision 1.4 2002-11-27 20:07:03 peter
|
||||
* removed wrong fillchar statement
|
||||
|
||||
Revision 1.3 2002/09/07 15:40:50 peter
|
||||
* old logs removed and tabs fixed
|
||||
|
||||
}
|
||||
|
Loading…
Reference in New Issue
Block a user