Browse Source

rtl: add two defines toallow disabling the verbose error of the stub unicodestringmanager and threadmanager

Karoly Balogh 1 year ago
parent
commit
88c7954d9f
2 changed files with 4 additions and 0 deletions
  1. 2 0
      rtl/inc/thread.inc
  2. 2 0
      rtl/inc/ustrings.inc

+ 2 - 0
rtl/inc/thread.inc

@@ -422,11 +422,13 @@ Procedure NoThreadError;
 begin
 {$ifndef EMBEDDED}
 {$ifdef FPC_HAS_FEATURE_CONSOLEIO}
+{$ifndef FPC_SYSTEM_NO_VERBOSE_THREADERROR}
   If IsConsole then
     begin
     Writeln(StdErr,SNoThreads);
     Writeln(StdErr,SRecompileWithThreads);
     end;
+{$endif FPC_SYSTEM_NO_VERBOSE_THREADERROR}
 {$endif FPC_HAS_FEATURE_CONSOLEIO}
 {$endif EMBEDDED}
   RunError(232)

+ 2 - 0
rtl/inc/ustrings.inc

@@ -2227,11 +2227,13 @@ procedure unimplementedunicodestring;
   begin
 {$ifdef FPC_HAS_FEATURE_CONSOLEIO}
 {$ifndef HAS_WIDESTRINGMANAGER}
+{$ifndef FPC_SYSTEM_NO_VERBOSE_UNICODEERROR}
     If IsConsole then
       begin
       Writeln(StdErr,SNoUnicodestrings);
       Writeln(StdErr,SRecompileWithUnicodestrings);
       end;
+{$endif FPC_SYSTEM_NO_VERBOSE_UNICODEERROR}
 {$endif HAS_WIDESTRINGMANAGER}
 {$endif FPC_HAS_FEATURE_CONSOLEIO}
     HandleErrorAddrFrameInd(234{RuntimeErrorExitCodes[reCodesetConversion]},get_pc_addr,get_frame);