Avoid wrong overflow error when using -Criot options

git-svn-id: trunk@45815 -
This commit is contained in:
pierre 2020-07-21 05:22:26 +00:00
parent 13cb57b2c3
commit 667a010357

View File

@ -358,9 +358,11 @@ implementation
else if (p.objsection=CurrObjSec) and
(p.bind<>AB_COMMON) and
(Reloctype=RELOC_RELATIVE) then
{$push} {$R-}{$Q-}
begin
data:=data+symaddr-len-CurrObjSec.Size;
end
{$pop}
else
begin
objreloc:=TRelRelocation.CreateSection(CurrObjSec.Size,p.objsection,Reloctype);