From 480200a708885c2d63270a1314808ca0668a65e1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Tue, 18 Mar 2025 15:11:08 +0100
Subject: [PATCH] * Use dyn array of byte for CRC buffer

---
 compiler/link.pas | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/compiler/link.pas b/compiler/link.pas
index 57baf7aa5b..160d31f2df 100644
--- a/compiler/link.pas
+++ b/compiler/link.pas
@@ -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;