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

* ReadAllBytes was not reading all bytes. Fixes issue #40789

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-05-18 13:57:18 +02:00
parent e29d1ecda9
commit 9eb77599e1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/vcl-compat/src/system.ioutils.pp
View File

@ -1991,7 +1991,7 @@ begin
With OpenRead(aPath) do With OpenRead(aPath) do
try try
SetLength(Result,Size); SetLength(Result,Size);
ReadBuffer(Result,0); ReadBuffer(Result,Size);
finally finally
Free; Free;
end; end;