瀏覽代碼

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

Nikolay Nikolov 3 年之前
父節點
當前提交
f01c841190
共有 1 個文件被更改,包括 2 次插入1 次删除
  1. 2 1
      compiler/systems/t_wasi.pas

+ 2 - 1
compiler/systems/t_wasi.pas

@@ -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);