diff options
| author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2009-03-14 22:51:58 +0000 |
|---|---|---|
| committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2009-03-14 22:51:58 +0000 |
| commit | 45ecc78e147cd544be36a922c2bba609ad736c17 (patch) | |
| tree | 57cbfb33ca2d4890f22eed3f11d2ac39f1be3505 /unicode/src/lib/TntUnicodeControls/TntCompilers.inc | |
| parent | dc62978bd7c88883cf27593ad229bbded84aa2c9 (diff) | |
| download | usdx-45ecc78e147cd544be36a922c2bba609ad736c17.tar.gz usdx-45ecc78e147cd544be36a922c2bba609ad736c17.tar.xz usdx-45ecc78e147cd544be36a922c2bba609ad736c17.zip | |
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
Diffstat (limited to '')
| -rw-r--r-- | unicode/src/lib/TntUnicodeControls/TntCompilers.inc | 24 |
1 files changed, 23 insertions, 1 deletions
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} + + |