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

* the COMDAT record contains the section number which is off-by-one to the section index

Browse Source
This commit is contained in:
Sven/Sarah Barth 2024-06-07 15:31:18 +02:00
parent 52c5a0932d
commit f5beaa80d8
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/ogcoff.pas
View File

@ -2598,7 +2598,7 @@ const pemagic : array[0..3] of byte = (
if (secrec.assoc<>0) and not assigned(objsym.objsection.AssociativeSection) then
begin
objsym.objsection.AssociativeSection:=GetSection(secrec.assoc);
objsym.objsection.AssociativeSection:=GetSection(secrec.assoc-1);
if not assigned(objsym.objsection.AssociativeSection) then
Message1(link_e_comdat_associative_section_not_found,objsym.objsection.Name);
end;