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

* fixed relocation fixup for x86_64

Browse Source 
git-svn-id: trunk@3107 -
This commit is contained in:
florian 2006-04-01 13:41:11 +00:00
parent 3324a4a14b
commit 79b2432369
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/ogcoff.pas
View File

@ -773,6 +773,7 @@ const win32stub : array[0..131] of byte=(
dec(address,TCoffObjSection(relocsec).orgmempos);
inc(address,relocval);
end;
RELOC_ABSOLUTE32,
RELOC_ABSOLUTE :
begin
if oso_common in relocsec.secoptions then
@ -786,6 +787,8 @@ const win32stub : array[0..131] of byte=(
inc(address,relocval);
inc(address,relocsec.objdata.imagebase);
end;
else
internalerror(200604014);
end;
data.Seek(r.dataoffset);
data.Write(address,4);