Browse Source

Define FPC_IS_SYSTEM at start of all system.pp source

git-svn-id: trunk@43203 -
pierre 5 years ago
parent
commit
84ebe96d41

+ 1 - 0
rtl/atari/system.pp

@@ -18,6 +18,7 @@ unit System;
 
 
 interface
 interface
 
 
+{$define FPC_IS_SYSTEM}
 {$define FPC_STDOUT_TRUE_ALIAS}
 {$define FPC_STDOUT_TRUE_ALIAS}
 {$define FPC_ANSI_TEXTFILEREC}
 {$define FPC_ANSI_TEXTFILEREC}
 {$define FPC_ATARI_USE_TINYHEAP}
 {$define FPC_ATARI_USE_TINYHEAP}

+ 1 - 0
rtl/go32v2/system.pp

@@ -24,6 +24,7 @@ interface
     - list of args
     - list of args
     - list of env variables  (PM) }
     - list of env variables  (PM) }
 
 
+{$define FPC_IS_SYSTEM}
 {$ifndef NO_EXCEPTIONS_IN_SYSTEM}
 {$ifndef NO_EXCEPTIONS_IN_SYSTEM}
 {$define EXCEPTIONS_IN_SYSTEM}
 {$define EXCEPTIONS_IN_SYSTEM}
 {$endif NO_EXCEPTIONS_IN_SYSTEM}
 {$endif NO_EXCEPTIONS_IN_SYSTEM}

+ 1 - 0
rtl/macos/system.pp

@@ -16,6 +16,7 @@ unit System;
 
 
 interface
 interface
 
 
+{$define FPC_IS_SYSTEM}
 {$DEFINE FPC_ANSI_TEXTFILEREC}
 {$DEFINE FPC_ANSI_TEXTFILEREC}
 
 
 { include system-independent routine headers }
 { include system-independent routine headers }

+ 1 - 0
rtl/msdos/system.pp

@@ -3,6 +3,7 @@ unit System;
 
 
 interface
 interface
 
 
+{$define FPC_IS_SYSTEM}
 { The heap for MSDOS is implemented
 { The heap for MSDOS is implemented
   in tinyheap.inc include file,
   in tinyheap.inc include file,
   but it uses default SysGetMem names }
   but it uses default SysGetMem names }

+ 1 - 0
rtl/nativent/system.pp

@@ -15,6 +15,7 @@
 unit System;
 unit System;
 interface
 interface
 
 
+{$define FPC_IS_SYSTEM}
 {$ifdef SYSTEMDEBUG}
 {$ifdef SYSTEMDEBUG}
   {$define SYSTEMEXCEPTIONDEBUG}
   {$define SYSTEMEXCEPTIONDEBUG}
 {$endif SYSTEMDEBUG}
 {$endif SYSTEMDEBUG}

+ 1 - 0
rtl/netware/system.pp

@@ -17,6 +17,7 @@ unit System;
 
 
 interface
 interface
 
 
+{$define FPC_IS_SYSTEM}
 {$define StdErrToConsole}
 {$define StdErrToConsole}
 {$define useLongNamespaceByDefault}
 {$define useLongNamespaceByDefault}
 {$define autoHeapRelease}
 {$define autoHeapRelease}

+ 1 - 0
rtl/netwlibc/system.pp

@@ -17,6 +17,7 @@ unit System;
 
 
 interface
 interface
 
 
+{$define FPC_IS_SYSTEM}
 {$define netware}
 {$define netware}
 {$define netware_libc}
 {$define netware_libc}
 
 

+ 1 - 0
rtl/palmos/system.pp

@@ -16,6 +16,7 @@ unit System;
 
 
 interface
 interface
 
 
+{$define FPC_IS_SYSTEM}
 {$DEFINE HAS_MEMORYMANAGER}
 {$DEFINE HAS_MEMORYMANAGER}
 {$DEFINE FPC_ANSI_TEXTFILEREC}
 {$DEFINE FPC_ANSI_TEXTFILEREC}
 
 

+ 1 - 0
rtl/qnx/system.pp

@@ -20,6 +20,7 @@ unit System;
 
 
 interface
 interface
 
 
+{$define FPC_IS_SYSTEM}
 { include system-independent routine headers }
 { include system-independent routine headers }
 
 
 {$I systemh.inc}
 {$I systemh.inc}

+ 1 - 0
rtl/symbian/system.pp

@@ -16,6 +16,7 @@ unit System;
 
 
 interface
 interface
 
 
+{$define FPC_IS_SYSTEM}
 {$ifdef SYSTEMDEBUG}
 {$ifdef SYSTEMDEBUG}
   {$define SYSTEMEXCEPTIONDEBUG}
   {$define SYSTEMEXCEPTIONDEBUG}
 {$endif SYSTEMDEBUG}
 {$endif SYSTEMDEBUG}

+ 1 - 0
rtl/watcom/system.pp

@@ -17,6 +17,7 @@ unit System;
 
 
 INTERFACE
 INTERFACE
 
 
+{$define FPC_IS_SYSTEM}
 {$ifndef NO_EXCEPTIONS_IN_SYSTEM}
 {$ifndef NO_EXCEPTIONS_IN_SYSTEM}
 {$define EXCEPTIONS_IN_SYSTEM}
 {$define EXCEPTIONS_IN_SYSTEM}
 {$endif NO_EXCEPTIONS_IN_SYSTEM}
 {$endif NO_EXCEPTIONS_IN_SYSTEM}

+ 1 - 0
rtl/win16/system.pp

@@ -2,6 +2,7 @@ unit system;
 
 
 interface
 interface
 
 
+{$define FPC_IS_SYSTEM}
 {$DEFINE FPC_NO_DEFAULT_HEAP}
 {$DEFINE FPC_NO_DEFAULT_HEAP}
 {$DEFINE FPC_NO_DEFAULT_MEMORYMANAGER}
 {$DEFINE FPC_NO_DEFAULT_MEMORYMANAGER}
 {$DEFINE HAS_MEMORYMANAGER}
 {$DEFINE HAS_MEMORYMANAGER}

+ 1 - 0
rtl/win32/system.pp

@@ -16,6 +16,7 @@
 unit System;
 unit System;
 interface
 interface
 
 
+{$define FPC_IS_SYSTEM}
 {$ifdef SYSTEMDEBUG}
 {$ifdef SYSTEMDEBUG}
   {$define SYSTEMEXCEPTIONDEBUG}
   {$define SYSTEMEXCEPTIONDEBUG}
 {$endif SYSTEMDEBUG}
 {$endif SYSTEMDEBUG}

+ 1 - 0
rtl/win64/system.pp

@@ -17,6 +17,7 @@ unit System;
 interface
 interface
 
 
 
 
+{$define FPC_IS_SYSTEM}
 { $define SYSTEMEXCEPTIONDEBUG}
 { $define SYSTEMEXCEPTIONDEBUG}
 
 
 {$ifdef SYSTEMDEBUG}
 {$ifdef SYSTEMDEBUG}