From 6314d69c400ff08dfe231a1a67e85e9185e2e819 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Mon, 24 Mar 2025 16:46:49 +0100
Subject: [PATCH] * Correct allocation size for IsHandled, index is 1-based

---
 compiler/link.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/link.pas b/compiler/link.pas
index 5a132d74c6..f75c695510 100644
--- a/compiler/link.pas
+++ b/compiler/link.pas
@@ -1820,7 +1820,7 @@ Implementation
             hp:=TCmdStrListItem(hp.next);
           end;
         ScriptCount:=i;
-        SetLength(IsHandled,ScriptCount);
+        SetLength(IsHandled,ScriptCount+1); // 1-based index used.
       end;
 
     procedure TInternalLinker.ParseScript_PostCheck;