mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 01:38:07 +02:00
Avoid wrong overflow error when using -Criot options
git-svn-id: trunk@45815 -
This commit is contained in:
parent
13cb57b2c3
commit
667a010357
@ -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);
|
||||
|
Loading…
Reference in New Issue
Block a user