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

* Allow to disable monitor

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-06-18 14:51:34 +02:00
parent ec2e645719
commit e80ce5f61f
9 changed files with 26 additions and 2 deletions

3
rtl/aix/system.pp
View File

@ -17,7 +17,10 @@ unit System;
interface
{$define FPC_IS_SYSTEM}
{$IFNDEF FPC_DISABLE_MONITOR}
{$DEFINE SYSTEM_HAS_FEATURE_MONITOR}
{$ENDIF}
{$linklib m}

2
rtl/bsd/system.pp
View File

@ -24,7 +24,9 @@ Unit System;
Interface
{$IFNDEF FPC_DISABLE_MONITOR}
{$DEFINE SYSTEM_HAS_FEATURE_MONITOR}
{$ENDIF}
{$define FPC_USE_SIGPROCMASK}
{$define FPC_USE_SIGALTSTACK}

3
rtl/linux/system.pp
View File

@ -25,7 +25,10 @@ Unit System;
interface
{*****************************************************************************}
{$IFNDEF FPC_DISABLE_MONITOR}
{$DEFINE SYSTEM_HAS_FEATURE_MONITOR}
{$ENDIF}
{$define FPC_IS_SYSTEM}
{$define HAS_CMDLINE}
{$define USE_NOTHREADMANAGER}

3
rtl/nativent/system.pp
View File

@ -15,7 +15,10 @@
unit System;
interface
{$IFNDEF FPC_DISABLE_MONITOR}
{$DEFINE SYSTEM_HAS_FEATURE_MONITOR}
{$ENDIF}
{$define FPC_IS_SYSTEM}
{$ifdef SYSTEMDEBUG}
{$define SYSTEMEXCEPTIONDEBUG}

2
rtl/solaris/system.pp
View File

@ -17,7 +17,9 @@ unit System;
interface
{$IFNDEF FPC_DISABLE_MONITOR}
{$DEFINE SYSTEM_HAS_FEATURE_MONITOR}
{$ENDIF}
{$define FPC_IS_SYSTEM}
{$linklib m}

3
rtl/wasi/system.pp
View File

@ -18,7 +18,10 @@ unit system;
interface
{$IFNDEF FPC_DISABLE_MONITOR}
{$DEFINE SYSTEM_HAS_FEATURE_MONITOR}
{$ENDIF}
{$define FPC_IS_SYSTEM}
{$ifdef FPC_WASM_THREADS}
{$define DISABLE_NO_THREAD_MANAGER}

3
rtl/win32/system.pp
View File

@ -17,7 +17,10 @@ unit System;
interface
{$IFNDEF FPC_DISABLE_MONITOR}
{$DEFINE SYSTEM_HAS_FEATURE_MONITOR}
{$ENDIF}
{$define FPC_IS_SYSTEM}
{$ifdef SYSTEMDEBUG}
{$define SYSTEMEXCEPTIONDEBUG}

6
rtl/win64/system.pp
View File

@ -14,11 +14,13 @@
**********************************************************************}
unit System;
interface
{$IFNDEF FPC_DISABLE_MONITOR}
{$DEFINE SYSTEM_HAS_FEATURE_MONITOR}
{$ENDIF}
{$define FPC_IS_SYSTEM}
{ $define SYSTEMEXCEPTIONDEBUG}

3
rtl/wince/system.pp
View File

@ -17,7 +17,10 @@ unit System;
interface
{$IFNDEF FPC_DISABLE_MONITOR}
{$DEFINE SYSTEM_HAS_FEATURE_MONITOR}
{$ENDIF}
{$define FPC_IS_SYSTEM}
{$ifdef SYSTEMDEBUG}
{$define SYSTEMEXCEPTIONDEBUG}