Преглед на файлове

+ print 'linking' message for the WASI target

git-svn-id: branches/wasm@48247 -
nickysn преди 4 години
родител
ревизия
c89a049102
променени са 1 файла, в които са добавени 6 реда и са изтрити 0 реда
  1. 6 0
      compiler/systems/t_wasi.pas

+ 6 - 0
compiler/systems/t_wasi.pas

@@ -73,6 +73,9 @@ type
 
 implementation
 
+uses
+  verbose;
+
 { timportlibwasi }
 
   procedure timportlibwasi.generatelib;
@@ -105,6 +108,9 @@ var
   tmp : TCmdStrListItem;
   tempFileName : ansistring;
 begin
+  if not(cs_link_nolink in current_settings.globalswitches) then
+    Message1(exec_i_linking,current_module.exefilename);
+
   if (cs_link_smart in current_settings.globalswitches) and
      create_smartlink_sections then
    GCSectionsStr:='--gc-sections'