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

* set and use ExeCmd instead of DllCmd when making an WASI executable

Browse Source
This commit is contained in:
Nikolay Nikolov 2022-02-16 02:32:18 +02:00
parent f7b7c39129
commit f01c841190
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/systems/t_wasi.pas
View File

@ -96,6 +96,7 @@ procedure tlinkerwasi.SetDefaultInfo;
begin begin
with Info do with Info do
begin begin
ExeCmd[1] := 'wasm-ld $SONAME $GCSECTIONS $MAP -o $EXE';
DllCmd[1] := 'wasm-ld $SONAME $GCSECTIONS $MAP -o $EXE'; DllCmd[1] := 'wasm-ld $SONAME $GCSECTIONS $MAP -o $EXE';
end; end;
end; end;
@ -132,7 +133,7 @@ begin
GCSectionsStr:=''; GCSectionsStr:='';
SoNameStr:=''; SoNameStr:='';
SplitBinCmd(Info.DllCmd[1],binstr,cmdstr); SplitBinCmd(Info.ExeCmd[1],binstr,cmdstr);
Replace(cmdstr,'$EXE',maybequoted(current_module.exefilename)); Replace(cmdstr,'$EXE',maybequoted(current_module.exefilename));
tmp := TCmdStrListItem(ObjectFiles.First); tmp := TCmdStrListItem(ObjectFiles.First);