paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-28 13:27:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* RELOC_RVA fix for ARM cpu.

Browse Source 
* Added offset overflow check for RELOC_RELATIVE_24.

git-svn-id: trunk@3827 -
This commit is contained in:
yury 2006-06-09 11:06:10 +00:00
parent ef160f44a3
commit e80e5be980
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/ogcoff.pas
View File

@ -808,13 +808,21 @@ const win32stub : array[0..131] of byte=(
{ fixup address when the symbol was known in defined object }
if (relocsec.objdata=objdata) then
dec(address,TCoffObjSection(relocsec).orgmempos);
inc(address,relocval);
{$ifdef arm}
if (relocsec.objdata=objdata) then
inc(address, relocsec.MemPos)
else
{$endif arm}
inc(address,relocval);
end;
{$ifdef arm}
RELOC_RELATIVE_24:
begin
relocval:=(relocval - mempos - objreloc.dataoffset) shr 2 - 2;
address:=address or relocval and $ffffff;
relocval:=relocval shr 24;
if (relocval<>$3f) and (relocval<>0) then
internalerror(200606085); { offset overflow }
end;
RELOC_NONE:
; { nothing to do }