paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 09:39:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Karoly Balogh 2024-02-20 03:12:22 +01:00
parent bf57750436
commit 88c7954d9f
2 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/thread.inc
View File

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

2
rtl/inc/ustrings.inc
View File

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