+ PS1: show linking message

compiler/systems/t_ps1.pas

@@ -351,6 +351,9 @@ var
     binstr, cmdstr, mapstr : TCmdStr;
     success : boolean;
 begin
+    if not (cs_link_nolink in current_settings.globalswitches) then
+      Message1(exec_i_linking,current_module.exefilename);
+
     if (cs_link_map in current_settings.globalswitches) then
       mapstr:='-Map '+maybequoted(ChangeFileExt(current_module.exefilename,'.map'))
     else