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

* Correct allocation size for IsHandled, index is 1-based

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-03-24 16:46:49 +01:00
parent cafaa9f5b8
commit 6314d69c40
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/link.pas
View File

@ -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;