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

* implementation of TInternalLinkerWasi.DefaultLinkScript. Create a script that reads all the object files.

Browse Source
This commit is contained in:
Nikolay Nikolov 2023-12-24 12:45:18 +02:00
parent 54eb8de658
commit 34445a912a
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/systems/t_wasi.pas
View File

@ -289,8 +289,15 @@ end;
{ TInternalLinkerWasi }
procedure TInternalLinkerWasi.DefaultLinkScript;
var
s: TCmdStr;
begin
{TODO}
while not ObjectFiles.Empty do
begin
s:=ObjectFiles.GetFirst;
if s<>'' then
LinkScript.Concat('READOBJECT ' + maybequoted(s));
end;
end;
function TInternalLinkerWasi.GetCodeSize(aExeOutput: TExeOutput): QWord;