paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 06:19:28 +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); inc(address,relocval);
end; end;
{$ifdef x86_64} {$ifdef x86_64}
RELOC_ABSOLUTE32,
{ 64 bit coff only } { 64 bit coff only }
RELOC_RELATIVE_1: RELOC_RELATIVE_1:
begin begin
@ -836,6 +835,7 @@ const win32stub : array[0..131] of byte=(
address:=address-mempos+relocval; address:=address-mempos+relocval;
dec(address,objreloc.dataoffset+5); dec(address,objreloc.dataoffset+5);
end; end;
RELOC_ABSOLUTE32,
{$endif x86_64} {$endif x86_64}
RELOC_ABSOLUTE : RELOC_ABSOLUTE :
begin begin