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

Fixed internal error in GOT related code for ARM internal assembler.

Browse Source 
git-svn-id: trunk@30188 -
This commit is contained in:
Jeppe Johansen 2015-03-14 16:03:16 +00:00
parent 439027a8de
commit 52e505bff7
4 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/aasmtai.pas
View File

@ -1861,6 +1861,8 @@ implementation
result:=LengthSleb128(value);
aitconst_half16bit:
result:=2;
aitconst_got:
result:=sizeof(pint);
aitconst_gotoff_symbol:
result:=4;
else

2
compiler/arm/cpuelf.pas
View File

@ -331,6 +331,8 @@ implementation
result:=R_ARM_CALL;
RELOC_RELATIVE_CALL_THUMB:
result:=R_ARM_THM_CALL;
RELOC_GOT32:
result:=R_ARM_GOT_BREL;
else
result:=0;
writeln(objrel.typ);

4
compiler/assemble.pas
View File

@ -1497,6 +1497,10 @@ Implementation
{ Required for DWARF2 support under Windows }
ObjData.writereloc(Tai_const(hp).symofs,sizeof(longint),Objdata.SymbolRef(tai_const(hp).sym),RELOC_SECREL32);
end;
{$ifdef arm}
aitconst_got:
ObjData.writereloc(Tai_const(hp).symofs,sizeof(longint),Objdata.SymbolRef(tai_const(hp).sym),RELOC_GOT32);
{$endif arm}
aitconst_gotoff_symbol:
ObjData.writereloc(Tai_const(hp).symofs,sizeof(longint),Objdata.SymbolRef(tai_const(hp).sym),RELOC_GOTOFF);
aitconst_uleb128bit,

1
compiler/ogbase.pas
View File

@ -70,6 +70,7 @@ interface
RELOC_RELATIVE_24,
RELOC_RELATIVE_24_THUMB,
RELOC_RELATIVE_CALL_THUMB,
RELOC_GOT32,
{$endif arm}
{ Relative relocation }
RELOC_RELATIVE,