paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-01 15:39:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ reading of winx64 coff object files generated by MS-VC

Browse Source 
git-svn-id: trunk@3426 -
This commit is contained in:
florian 2006-05-06 07:59:37 +00:00
parent da02375f57
commit cae35add51
2 changed files with 31 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/ogbase.pas
View File

@ -48,6 +48,12 @@ interface
{$ifdef x86_64}
{ 32bit Relocation to absolute address }
RELOC_ABSOLUTE32,
{ 64 bit coff only }
RELOC_RELATIVE_1,
RELOC_RELATIVE_2,
RELOC_RELATIVE_3,
RELOC_RELATIVE_4,
RELOC_RELATIVE_5,
{$endif x86_64}
{ Relative relocation }
RELOC_RELATIVE,

21
compiler/ogcoff.pas
View File

@ -1197,6 +1197,16 @@ const win32stub : array[0..131] of byte=(
rel.reloctype:=IMAGE_REL_AMD64_ADDR64;
RELOC_RVA :
rel.reloctype:=IMAGE_REL_AMD64_ADDR32NB;
RELOC_RELATIVE_1 :
rel.reloctype:=IMAGE_REL_AMD64_REL32_1;
RELOC_RELATIVE_2 :
rel.reloctype:=IMAGE_REL_AMD64_REL32_2;
RELOC_RELATIVE_3 :
rel.reloctype:=IMAGE_REL_AMD64_REL32_3;
RELOC_RELATIVE_4 :
rel.reloctype:=IMAGE_REL_AMD64_REL32_4;
RELOC_RELATIVE_5 :
rel.reloctype:=IMAGE_REL_AMD64_REL32_5;
{$endif x86_64}
else
internalerror(200603312);
@ -1475,6 +1485,7 @@ const win32stub : array[0..131] of byte=(
rel_type : TObjRelocationType;
i : longint;
p : TObjSymbol;
extradist : longint;
begin
for i:=1 to s.coffrelocs do
begin
@ -1501,6 +1512,16 @@ const win32stub : array[0..131] of byte=(
rel_type:=RELOC_ABSOLUTE;
IMAGE_REL_AMD64_ADDR32NB:
rel_type:=RELOC_RVA;
IMAGE_REL_AMD64_REL32_1:
rel_type:=RELOC_RELATIVE_1;
IMAGE_REL_AMD64_REL32_2:
rel_type:=RELOC_RELATIVE_2;
IMAGE_REL_AMD64_REL32_3:
rel_type:=RELOC_RELATIVE_3;
IMAGE_REL_AMD64_REL32_4:
rel_type:=RELOC_RELATIVE_4;
IMAGE_REL_AMD64_REL32_5:
rel_type:=RELOC_RELATIVE_5;
{$endif x86_64}
else
begin