From 45ecc78e147cd544be36a922c2bba609ad736c17 Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sat, 14 Mar 2009 22:51:58 +0000
Subject: FPC (Windows only) support for TntUnicodeUtils

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1638 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 .../src/lib/TntUnicodeControls/TntCompilers.inc    | 24 +++++++++++++++++++++-
 1 file changed, 23 insertions(+), 1 deletion(-)

(limited to 'unicode/src/lib/TntUnicodeControls/TntCompilers.inc')

diff --git a/unicode/src/lib/TntUnicodeControls/TntCompilers.inc b/unicode/src/lib/TntUnicodeControls/TntCompilers.inc
index 39eb95e9..06f4d9ab 100644
--- a/unicode/src/lib/TntUnicodeControls/TntCompilers.inc
+++ b/unicode/src/lib/TntUnicodeControls/TntCompilers.inc
@@ -147,6 +147,10 @@
     {$define DELPHI_1}
   {$endif}
 
+  {$ifdef FPC}
+    {.$define DELPHI}
+  {$endif}
+    
   {$ifdef DELPHI_2}
     {$define DELPHI_2_UP}
   {$endif}
@@ -350,7 +354,25 @@
 {$ENDIF}
 
 {$IFDEF COMPILER_7_UP}
+{$IFDEF FPC}
+  {$DEFINE UNSAFE_WARNINGS_OFF}
+{$ENDIF}
+{$ENDIF}
+
+{$IFDEF UNSAFE_WARNINGS_OFF}
 {$WARN UNSAFE_CODE OFF} { We are not going to be "safe"! }
 {$WARN UNSAFE_TYPE OFF}
 {$WARN UNSAFE_CAST OFF}
-{$ENDIF}
\ No newline at end of file
+{$ENDIF}
+
+{$IFDEF FPC}
+{$HINTS OFF}
+{$ENDIF}
+
+{$IFNDEF FPC}
+  // Delphi system function overrides might (not tested) cause problems on
+  // CPUs with code protection (NX-bit). So disable by default. 
+  {.$DEFINE USE_SYSTEM_OVERRIDES}
+{$ENDIF}
+
+
-- 
cgit v1.2.3