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

- removed the TOmfObjSectionGroup class, because it is not used

Browse Source 
git-svn-id: trunk@31419 -
This commit is contained in:
nickysn 2015-08-25 11:32:30 +00:00
parent 5900a7f3db
commit dad0f015a9
1 changed files with 4 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
compiler/ogomf.pas
View File

@ -85,15 +85,6 @@ interface
property MZExeUnifiedLogicalSegment: TMZExeUnifiedLogicalSegment read FMZExeUnifiedLogicalSegment write FMZExeUnifiedLogicalSegment;
end;
{ TOmfObjSectionGroup }
TOmfObjSectionGroup = class(TObjSectionGroup)
public
Size,
MemPos: qword;
procedure CalcMemPos;
end;
{ TOmfObjData }
TOmfObjData = class(TObjData)
@ -510,32 +501,6 @@ implementation
HexStr(MemPos-MZExeUnifiedLogicalSegment.MemBasePos,4);
end;
{****************************************************************************
TOmfObjSectionGroup
****************************************************************************}
procedure TOmfObjSectionGroup.CalcMemPos;
var
MinMemPos: qword=high(qword);
MaxMemPos: qword=0;
objsec: TOmfObjSection;
i: Integer;
begin
if Length(members)=0 then
internalerror(2015082201);
for i:=low(members) to high(members) do
begin
objsec:=TOmfObjSection(members[i]);
if objsec.MemPos<MinMemPos then
MinMemPos:=objsec.MemPos;
if (objsec.MemPos+objsec.Size)>MaxMemPos then
MaxMemPos:=objsec.MemPos+objsec.Size;
end;
{ align *down* on a paragraph boundary }
MemPos:=(MinMemPos shr 4) shl 4;
Size:=MaxMemPos-MemPos;
end;
{****************************************************************************
TOmfObjData
****************************************************************************}
@ -559,7 +524,6 @@ implementation
begin
inherited create(n);
CObjSection:=TOmfObjSection;
CObjSectionGroup:=TOmfObjSectionGroup;
end;
function TOmfObjData.sectiontype2align(atype: TAsmSectiontype): shortint;
@ -1499,7 +1463,7 @@ implementation
sym: TObjSymbol;
RelocType: TObjRelocationType;
target_section: TOmfObjSection;
target_group: TOmfObjSectionGroup;
target_group: TObjSectionGroup;
begin
Result:=False;
@ -1660,7 +1624,7 @@ implementation
end
else if Fixup.TargetMethod in [ftmGroupIndex,ftmGroupIndexNoDisp] then
begin
target_group:=TOmfObjSectionGroup(objdata.GroupsList[Fixup.TargetDatum-1]);
target_group:=TObjSectionGroup(objdata.GroupsList[Fixup.TargetDatum-1]);
if target_group.Name<>'DGROUP' then
begin
InputError('Fixup target group other than "DGROUP" is not supported');
@ -2095,7 +2059,7 @@ implementation
var
objdataidx,groupidx,secidx: Integer;
ObjData: TObjData;
ObjGroup: TOmfObjSectionGroup;
ObjGroup: TObjSectionGroup;
ObjSec: TOmfObjSection;
UniGrp: TMZExeUnifiedLogicalGroup;
begin
@ -2105,7 +2069,7 @@ implementation
if assigned(ObjData.GroupsList) then
for groupidx:=0 to ObjData.GroupsList.Count-1 do
begin
ObjGroup:=TOmfObjSectionGroup(ObjData.GroupsList[groupidx]);
ObjGroup:=TObjSectionGroup(ObjData.GroupsList[groupidx]);
for secidx:=low(ObjGroup.members) to high(ObjGroup.members) do
begin
ObjSec:=TOmfObjSection(ObjGroup.members[secidx]);