paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 23:46:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed win64 coff writing

Browse Source 
git-svn-id: trunk@3493 -
This commit is contained in:
florian 2006-05-13 16:04:33 +00:00
parent 10520ba9a7
commit 688547953d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ogcoff.pas
View File

@ -809,7 +809,6 @@ const win32stub : array[0..131] of byte=(
inc(address,relocval);
end;
{$ifdef x86_64}
RELOC_ABSOLUTE32,
{ 64 bit coff only }
RELOC_RELATIVE_1:
begin
@ -836,6 +835,7 @@ const win32stub : array[0..131] of byte=(
address:=address-mempos+relocval;
dec(address,objreloc.dataoffset+5);
end;
RELOC_ABSOLUTE32,
{$endif x86_64}
RELOC_ABSOLUTE :
begin