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

* assemble.pas (TInternalAssembler.TreePass0): Avoid range/overflow check error.

Browse Source 
(TInternalAssembler.TreePass2): Check that objsymend and objsym are in same section
    and avoid range/overflow check error.

git-svn-id: trunk@43028 -
This commit is contained in:
pierre 2019-09-17 21:06:18 +00:00
parent 94832d5eea
commit eb3a470f45
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/assemble.pas
View File

@ -1615,9 +1615,11 @@ Implementation
(objsym.objsection<>ObjData.CurrObjSec) then
InternalError(200404124);
end
{$push} {$R-}{$Q-}
else
Tai_const(hp).value:=objsymend.address-objsym.address+Tai_const(hp).symofs;
end;
{$pop}
end;
end;
ObjData.alloc(tai_const(hp).size);
@ -1768,9 +1770,11 @@ Implementation
(objsym.objsection<>ObjData.CurrObjSec) then
internalerror(200905042);
end
{$push} {$R-}{$Q-}
else
Tai_const(hp).value:=objsymend.address-objsym.address+Tai_const(hp).symofs;
end;
{$pop}
if (Tai_const(hp).consttype in [aitconst_uleb128bit,aitconst_sleb128bit]) then
Tai_const(hp).fixsize;
ObjData.alloc(tai_const(hp).size);
@ -1981,8 +1985,17 @@ Implementation
objsym:=Objdata.SymbolRef(tai_const(hp).sym);
objsymend:=Objdata.SymbolRef(tai_const(hp).endsym);
relative_reloc:=(objsym.objsection<>objsymend.objsection);
Tai_const(hp).value:=objsymend.address-objsym.address+Tai_const(hp).symofs;
if objsymend.objsection<>objsym.objsection then
begin
if (Tai_const(hp).consttype in [aitconst_uleb128bit,aitconst_sleb128bit]) or
(objsym.objsection<>ObjData.CurrObjSec) then
internalerror(2019010301);
end
else
{$push} {$R-}{$Q-}
Tai_const(hp).value:=objsymend.address-objsym.address+Tai_const(hp).symofs;
end;
{$pop}
case tai_const(hp).consttype of
aitconst_64bit,
aitconst_32bit,