paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 13:49:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* get rid of TOmfRelocation.GetGroupIndex; instead, read the index property of

Browse Source 
the group object. This adds support for groups, other than DGROUP, when
  writing omf relocations.

git-svn-id: trunk@39276 -
This commit is contained in:
nickysn 2018-06-22 14:29:09 +00:00
parent c8fc7c84c8
commit f07658d3dc
1 changed files with 3 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/ogomf.pas
View File

@ -55,7 +55,6 @@ interface
private
FFrameGroup: string;
FOmfFixup: TOmfSubRecord_FIXUP;
function GetGroupIndex(const groupname: string): Integer;
public
destructor Destroy; override;
@ -396,14 +395,6 @@ implementation
TOmfRelocation
****************************************************************************}
function TOmfRelocation.GetGroupIndex(const groupname: string): Integer;
begin
if groupname='DGROUP' then
Result:=1
else
internalerror(2014040703);
end;
destructor TOmfRelocation.Destroy;
begin
FOmfFixup.Free;
@ -440,7 +431,7 @@ implementation
if TOmfObjSection(ObjSection).PrimaryGroup<>nil then
begin
FOmfFixup.FrameMethod:=ffmGroupIndex;
FOmfFixup.FrameDatum:=GetGroupIndex(TOmfObjSection(ObjSection).PrimaryGroup.Name);
FOmfFixup.FrameDatum:=TOmfObjSection(ObjSection).PrimaryGroup.index;
end
else
FOmfFixup.FrameMethod:=ffmTarget;
@ -451,7 +442,7 @@ implementation
if TOmfObjSection(ObjSection).PrimaryGroup<>nil then
begin
FOmfFixup.TargetMethod:=ftmGroupIndexNoDisp;
FOmfFixup.TargetDatum:=GetGroupIndex(TOmfObjSection(ObjSection).PrimaryGroup.Name);
FOmfFixup.TargetDatum:=TOmfObjSection(ObjSection).PrimaryGroup.index;
end
else
begin
@ -504,7 +495,7 @@ implementation
internalerror(2015041401);
FOmfFixup.FrameMethod:=ffmTarget;
FOmfFixup.TargetMethod:=ftmGroupIndexNoDisp;
FOmfFixup.TargetDatum:=GetGroupIndex(group.Name);
FOmfFixup.TargetDatum:=group.index;
end
else
internalerror(2015040702);