paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-05 11:18:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Use dyn array of byte for CRC buffer

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-03-18 15:11:08 +01:00
parent 1068015c4d
commit 480200a708
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/link.pas
View File

@ -191,7 +191,7 @@ Implementation
fs : TCStream;
bufcount,
bufsize : Integer;
buf : pbyte;
buf : TByteDynArray;
begin
result:=0;
bufsize:=64*1024;
@ -202,12 +202,12 @@ Implementation
Comment(V_Error,'Can''t open file: '+fn);
exit;
end;
getmem(buf,bufsize);
setlength(buf,bufsize);
repeat
bufcount:=fs.Read(buf^,bufsize);
result:=UpdateCrc32(result,buf^,bufcount);
bufcount:=fs.Read(buf[0],bufsize);
result:=UpdateCrc32(result,buf[0],bufcount);
until bufcount<bufsize;
freemem(buf);
buf:=nil;
fs.Free;
end;