paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-26 22:30:01 +01:00
Code Issues Packages Projects Releases Wiki Activity

* override DoRelocationFixup in TMZExeOutput - doing nothing for now, but

Browse Source 
prevents the "abstract method called" error

git-svn-id: trunk@31350 -
This commit is contained in:
nickysn 2015-08-20 20:55:24 +00:00
parent e7a61ff2d4
commit 7d586df038
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/ogomf.pas
View File

@ -206,6 +206,7 @@ interface
TMZExeOutput = class(TExeOutput)
protected
procedure DoRelocationFixup(objsec:TObjSection);override;
function writeData:boolean;override;
public
constructor create;override;
@ -1660,6 +1661,18 @@ implementation
TMZExeOutput
****************************************************************************}
procedure TMZExeOutput.DoRelocationFixup(objsec: TObjSection);
var
i: Integer;
objreloc: TOmfRelocation;
begin
for i:=0 to objsec.ObjRelocations.Count-1 do
begin
objreloc:=TOmfRelocation(objsec.ObjRelocations[i]);
{todo}
end;
end;
function TMZExeOutput.writeData: boolean;
var
Header: TMZExeHeader;