paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 14:39:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

Avoid wrong overflow error when using -Criot options

Browse Source 
git-svn-id: trunk@45815 -
This commit is contained in:
pierre 2020-07-21 05:22:26 +00:00
parent 13cb57b2c3
commit 667a010357
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ogrel.pas
View File

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