paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 23:21:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added class TNewExeEntryPoint and methods/properties to TNewExeEntryTable to

Browse Source 
make it hold a list of entry points

git-svn-id: trunk@42626 -
This commit is contained in:
nickysn 2019-08-09 23:01:34 +00:00
parent 3da4cf0792
commit 8f3aa92678
1 changed files with 66 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

67
compiler/ogomf.pas
View File

@ -570,14 +570,44 @@ interface
property Size: QWord read GetSize;
end;
TNewExeEntryPointFlag = (
neepfMovableSegment,
neepfExported,
neepfSingleData
);
TNewExeEntryPointFlags = set of TNewExeEntryPointFlag;
{ TNewExeEntryPoint }
TNewExeEntryPoint = class
private
FFlags: TNewExeEntryPointFlag;
FSegment: Byte;
FOffset: Word;
public
property Flags: TNewExeEntryPointFlag read FFlags write FFlags;
property Segment: Byte read FSegment write FSegment;
property Offset: Word read FOffset write FOffset;
end;
{ TNewExeEntryTable }
TNewExeEntryTable = class
private
strict private
FItems: array of TNewExeEntryPoint;
function GetCount: Word;
function GetItems(i: Integer): TNewExeEntryPoint;
function GetSize: QWord;
procedure SetItems(i: Integer; AValue: TNewExeEntryPoint);
public
destructor Destroy;override;
procedure WriteTo(aWriter: TObjectWriter);
procedure GrowTo(aNewCount: Word);
property Size: QWord read GetSize;
property Count: Word read GetCount;
property Items[i: Integer]: TNewExeEntryPoint read GetItems write SetItems;default;
end;
{ These are fake "meta sections" used by the linker script. The actual
@ -3961,11 +3991,46 @@ cleanup:
Result:=0;
end;
procedure TNewExeEntryTable.SetItems(i: Integer; AValue: TNewExeEntryPoint);
begin
if (i<1) or (i>Length(FItems)) then
internalerror(2019081002);
FItems[i-1]:=AValue;
end;
function TNewExeEntryTable.GetCount: Word;
begin
Result:=Length(FItems);
end;
function TNewExeEntryTable.GetItems(i: Integer): TNewExeEntryPoint;
begin
if (i<1) or (i>Length(FItems)) then
internalerror(2019081002);
Result:=FItems[i-1];
end;
destructor TNewExeEntryTable.Destroy;
var
i: Integer;
begin
for i:=low(FItems) to high(FItems) do
FreeAndNil(FItems[i]);
inherited Destroy;
end;
procedure TNewExeEntryTable.WriteTo(aWriter: TObjectWriter);
begin
{ todo: implement }
end;
procedure TNewExeEntryTable.GrowTo(aNewCount: Word);
begin
if aNewCount<Count then
internalerror(2019081003);
SetLength(FItems,aNewCount);
end;
{****************************************************************************
TNewExeSection
****************************************************************************}