hlcgcpu.pas: uses unit systems + t_ps1.pas: correct Message3

compiler/mips/hlcgcpu.pas

@@ -57,7 +57,7 @@ implementation
     cgobj,
     cpubase,
     cpuinfo,
-    cgcpu;
+    cgcpu,systems;
 
   function thlcgmips.a_call_name(list: TAsmList; pd: tprocdef; const s: TSymStr; const paras: array of pcgpara; forceresdef: tdef; weak: boolean): tcgpara;
     var

compiler/msg/errore.msg

@@ -3207,7 +3207,7 @@ execinfo_x_stackcommit=09134_X_Stack space committed: $1 bytes
 #
 # Internal linker messages
 #
-# 09223 is the last used one
+# 09224 is the last used one
 #
 # BeginOfTeX
 % \section{Linker messages}
@@ -3274,6 +3274,8 @@ link_e_undefined_symbol=09222_E_Undefined symbol: $1
 % The specified symbol is used, but not defined.
 link_w_unsupported_cross_endian_internal_linker=09223_W_Internal linker in cross-endian configuration is work in progress
 % The internal linker does not correctly handle endianess conversion.
+link_f_executable_too_big_exceeds_X_by_Y_bytes=09224_F_Executable image size is too big for $1 target (exceeds $2 by $3 bytes).
+% The result File is too big
 % \end{description}
 # EndOfTeX
 

compiler/systems/t_ps1.pas

@@ -264,7 +264,7 @@ begin
   if ioResult <> 0 then exit;
 
   if filesize(f) >= $200000 then begin
-    writeln('Binary size if bigger than 2 097 152 bytes');
+    Message3(link_f_executable_too_big_exceeds_X_by_Y_bytes,'PS1','2097152',tostr(filesize(f)-$200000));
     exit;
   end;