From 88c7954d9f85db24e61d9d6dad069bed663b00c4 Mon Sep 17 00:00:00 2001
From: Karoly Balogh <karoly@freepascal.org>
Date: Tue, 20 Feb 2024 03:12:22 +0100
Subject: [PATCH] rtl: add two defines toallow disabling the verbose error of
 the stub unicodestringmanager and threadmanager

---
 rtl/inc/thread.inc   | 2 ++
 rtl/inc/ustrings.inc | 2 ++
 2 files changed, 4 insertions(+)

diff --git a/rtl/inc/thread.inc b/rtl/inc/thread.inc
index f7e7b91f7e..a5ed545152 100644
--- a/rtl/inc/thread.inc
+++ b/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)
diff --git a/rtl/inc/ustrings.inc b/rtl/inc/ustrings.inc
index 3858d14cbe..7dd84fc2c0 100644
--- a/rtl/inc/ustrings.inc
+++ b/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);