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

+ handle RELOC_FARPTR48 relocations as well in TOmfObjData.writeReloc; this is

Browse Source 
not used yet, but is added for completeness (and might be useful, if we add an
  i386 target, that uses the OMF object format)

git-svn-id: trunk@32935 -
This commit is contained in:
nickysn 2016-01-13 15:07:41 +00:00
parent 85f9eb655c
commit 4f8baf29c6
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/ogomf.pas
View File

@ -569,12 +569,21 @@ implementation
objreloc: TOmfRelocation; objreloc: TOmfRelocation;
symaddr: AWord; symaddr: AWord;
begin begin
{ RELOC_FARPTR = RELOC_ABSOLUTE+RELOC_SEG } { RELOC_FARPTR = RELOC_ABSOLUTE16+RELOC_SEG }
if Reloctype=RELOC_FARPTR then if Reloctype=RELOC_FARPTR then
begin begin
if len<>4 then if len<>4 then
internalerror(2015041502); internalerror(2015041502);
writeReloc(Data,2,p,RELOC_ABSOLUTE); writeReloc(Data,2,p,RELOC_ABSOLUTE16);
writeReloc(0,2,p,RELOC_SEG);
exit;
end
{ RELOC_FARPTR48 = RELOC_ABSOLUTE16+RELOC_SEG }
else if Reloctype=RELOC_FARPTR48 then
begin
if len<>6 then
internalerror(2015041502);
writeReloc(Data,4,p,RELOC_ABSOLUTE32);
writeReloc(0,2,p,RELOC_SEG); writeReloc(0,2,p,RELOC_SEG);
exit; exit;
end; end;