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

+ wasm internal linker: count the 'fpc.reshandles' section towards the bss size

Browse Source 
of the binary
This commit is contained in:
Nikolay Nikolov 2024-06-27 23:42:46 +03:00
parent 2828752587
commit 924d4b9b53
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/systems/t_wasi.pas
View File

@ -79,6 +79,7 @@ type
procedure DefaultLinkScript;override; procedure DefaultLinkScript;override;
function GetDataSize(aExeOutput: TExeOutput): QWord;override; function GetDataSize(aExeOutput: TExeOutput): QWord;override;
function GetBssSize(aExeOutput: TExeOutput): QWord;override;
public public
constructor create;override; constructor create;override;
@ -313,6 +314,12 @@ begin
aExeOutput.findexesection('fpc.resources').size; aExeOutput.findexesection('fpc.resources').size;
end; end;
function TInternalLinkerWasi.GetBssSize(aExeOutput: TExeOutput): QWord;
begin
Result:=aExeOutput.findexesection('.bss').size +
aExeOutput.findexesection('fpc.reshandles').size;
end;
constructor TInternalLinkerWasi.create; constructor TInternalLinkerWasi.create;
begin begin
inherited create; inherited create;