From f01c8411908099b369e7c0d83733ddb78bcaefaf Mon Sep 17 00:00:00 2001
From: Nikolay Nikolov <nickysn@gmail.com>
Date: Wed, 16 Feb 2022 02:32:18 +0200
Subject: [PATCH] * set and use ExeCmd instead of DllCmd when making an WASI
 executable

---
 compiler/systems/t_wasi.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/systems/t_wasi.pas b/compiler/systems/t_wasi.pas
index 144981e5cf..adf6a9b302 100644
--- a/compiler/systems/t_wasi.pas
+++ b/compiler/systems/t_wasi.pas
@@ -96,6 +96,7 @@ procedure tlinkerwasi.SetDefaultInfo;
 begin
   with Info do
     begin
+      ExeCmd[1] := 'wasm-ld $SONAME $GCSECTIONS $MAP -o $EXE';
       DllCmd[1] := 'wasm-ld $SONAME $GCSECTIONS $MAP -o $EXE';
     end;
 end;
@@ -132,7 +133,7 @@ begin
     GCSectionsStr:='';
 
   SoNameStr:='';
-  SplitBinCmd(Info.DllCmd[1],binstr,cmdstr);
+  SplitBinCmd(Info.ExeCmd[1],binstr,cmdstr);
   Replace(cmdstr,'$EXE',maybequoted(current_module.exefilename));
 
   tmp := TCmdStrListItem(ObjectFiles.First);