소스 검색

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

Nikolay Nikolov 3 년 전
부모
커밋
dba189f4af
1개의 변경된 파일4개의 추가작업 그리고 2개의 파일을 삭제
  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'));