Prechádzať zdrojové kódy

+ emit an error message if the ihxutil is not found when compiling an ZX Spectrum executable with the internal linker
+ emit a 'tried' message (fpc -vt) when using ihxutil for ZX Spectrum

Nikolay Nikolov 3 rokov pred
rodič
commit
3c91a7c01e
1 zmenil súbory, kde vykonal 5 pridanie a 0 odobranie
  1. 5 0
      compiler/systems/t_zxspectrum.pas

+ 5 - 0
compiler/systems/t_zxspectrum.pas

@@ -441,8 +441,13 @@ function TInternalLinkerZXSpectrum.postprocessexecutable(const fn: string): bool
 
     if Found then
       begin
+        Message1(exec_t_using_util,FoundBin);
         exitcode:=RequotedExecuteProcess(foundbin,' '+fn);
         result:=exitcode<>0;
+      end
+    else
+      begin
+        Message1(exec_e_util_not_found,utilexe);
       end;
   end;