* override and implement TInternalLinkerWasi.InitSysInitUnitName

compiler/systems/t_wasi.pas

@@ -79,6 +79,8 @@ type
     procedure DefaultLinkScript;override;
   public
     constructor create;override;
+
+    procedure InitSysInitUnitName;override;
   end;
 
 
@@ -294,6 +296,14 @@ begin
   CObjInput:=TWasmObjInput;
 end;
 
+procedure TInternalLinkerWasi.InitSysInitUnitName;
+begin
+  if current_module.islibrary then
+    sysinitunit:='si_dll'
+  else
+    sysinitunit:='si_prc';
+end;
+
 initialization
   RegisterTarget(system_wasm32_wasi_info);
   RegisterImport(system_wasm32_wasi, timportlibwasi);