Browse Source

+ show a "linking" message before invoking the linker for the wasm32-embedded target

Nikolay Nikolov 3 years ago
parent
commit
dba189f4af
1 changed files with 4 additions and 2 deletions
  1. 4 2
      compiler/systems/t_embed.pas

+ 4 - 2
compiler/systems/t_embed.pas

@@ -2172,8 +2172,10 @@ function TLinkerEmbedded_Wasm.MakeSharedLibrary: boolean;
     tmp : TCmdStrListItem;
     tempFileName : ansistring;
   begin
-    //Result := true;
-    //Result:=inherited MakeSharedLibrary;
+    Result:=false;
+    if not(cs_link_nolink in current_settings.globalswitches) then
+      Message1(exec_i_linking,current_module.sharedlibfilename);
+
     mapstr:='';
     if (cs_link_map in current_settings.globalswitches) then
       mapstr:='-Map '+maybequoted(ChangeFileExt(current_module.sharedlibfilename,'.map'));