paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-30 08:42:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

* forgot to init P buffer variable = crash

Browse Source
This commit is contained in:
carl 2002-10-31 13:08:04 +00:00
parent b53d789e1d
commit 630f9266bd
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/objects.pp
View File

@ -1549,7 +1549,7 @@ VAR Success: Integer; W, Bw: Sw_Word; P: PByteArray;
BEGIN BEGIN
If Status <> StOk then If Status <> StOk then
begin begin
FillChar(P^, Count, #0); { Error clear buffer } FillChar(Buf, Count, #0); { Error clear buffer }
exit; exit;
end; end;
If (Position + Count > StreamSize) Then { Read pas stream end } If (Position + Count > StreamSize) Then { Read pas stream end }
@ -2901,7 +2901,10 @@ END;
END. END.
{ {
$Log$ $Log$
Revision 1.15 2002-10-31 12:47:30 carl Revision 1.16 2002-10-31 13:08:04 carl
* forgot to init P buffer variable = crash
Revision 1.15 2002/10/31 12:47:30 carl
* more compatibility fixes for objects unit * more compatibility fixes for objects unit
Revision 1.14 2002/10/30 22:44:44 carl Revision 1.14 2002/10/30 22:44:44 carl