paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-18 22:59:28 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ partial implementation of DoRelocationFixups for the i8086-msdos internal linker

Browse Source 
git-svn-id: trunk@31375 -
This commit is contained in:
nickysn 2015-08-24 00:23:56 +00:00
parent 78cbb1ba2b
commit f08e98bfd0
1 changed files with 44 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
compiler/ogomf.pas
View File

@ -2041,17 +2041,60 @@ implementation
FWriter.writearray(ObjSec.Data);
end;
end;
Result:=True;
end;
procedure TMZExeOutput.DoRelocationFixup(objsec: TObjSection);
var
i: Integer;
omfsec: TOmfObjSection absolute objsec;
objreloc: TOmfRelocation;
target: DWord;
framebase: DWord;
fixupamount: Integer;
w: Word;
begin
for i:=0 to objsec.ObjRelocations.Count-1 do
begin
objreloc:=TOmfRelocation(objsec.ObjRelocations[i]);
{todo}
if assigned(objreloc.symbol) then
begin
target:=objreloc.symbol.address;
if assigned(objreloc.symbol.group) then
framebase:=TMZExeUnifiedLogicalGroup(ExeUnifiedLogicalGroups.Find(objreloc.symbol.group.Name)).MemPos
else
framebase:=TOmfObjSection(objreloc.symbol.objsection).MZExeUnifiedLogicalSegment.MemBasePos;
if framebase<>0 then
begin
framebase:=0;
Writeln(objreloc.symbol.name);
end;
case objreloc.typ of
RELOC_ABSOLUTE:
fixupamount:=target-framebase;
RELOC_RELATIVE:
fixupamount:=target-(omfsec.MemPos+objreloc.DataOffset)-2;
else
internalerror(2015082402);
end;
case objreloc.typ of
RELOC_ABSOLUTE,
RELOC_RELATIVE:
begin
omfsec.Data.seek(objreloc.DataOffset);
omfsec.Data.read(w,2);
w:=LEtoN(w);
Inc(w,fixupamount);
w:=LEtoN(w);
omfsec.Data.seek(objreloc.DataOffset);
omfsec.Data.write(w,2);
end;
else
internalerror(2015082403);
end;
end
else
{todo};
end;
end;