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

+ added property that determines the resident name table size in bytes and use

Browse Source 
it to fill the offset to the start of the module reference table in NewExe
  files

git-svn-id: trunk@42607 -
This commit is contained in:
nickysn 2019-08-08 21:37:14 +00:00
parent 251a93456e
commit 1736950d58
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/ogomf.pas
View File

@ -501,8 +501,10 @@ interface
TNewExeResidentNameTable = class(TFPHashObjectList)
private
function GetSize: QWord;
public
procedure WriteTo(aWriter: TObjectWriter);
property Size: QWord read GetSize;
end;
{ These are fake "meta sections" used by the linker script. The actual
@ -3700,6 +3702,17 @@ cleanup:
TNewExeResidentNameTable
****************************************************************************}
function TNewExeResidentNameTable.GetSize: QWord;
var
i: Integer;
begin
{ the end of table mark is 1 byte }
Result:=1;
{ each entry is 3 bytes, plus the length of the name }
for i:=0 to Count-1 do
Inc(Result,3+Length(TNewExeResidentNameTableEntry(Items[i]).Name));
end;
procedure TNewExeResidentNameTable.WriteTo(aWriter: TObjectWriter);
var
i: Integer;
@ -3885,6 +3898,7 @@ cleanup:
Header.SegmentTableEntriesCount:=ExeSectionList.Count;
Header.ResourceTableStart:=Header.SegmentTableStart+NewExeSegmentHeaderSize*Header.SegmentTableEntriesCount;
Header.ResidentNameTableStart:=Header.ResourceTableStart+ResourceTable.Size;
Header.ModuleReferenceTableStart:=Header.ResidentNameTableStart+ResidentNameTable.Size;
Header.WriteTo(FWriter);