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
---
 unicode/src/lib/TntUnicodeControls/TntWideStrUtils.pas | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'unicode/src/lib/TntUnicodeControls/TntWideStrUtils.pas')

diff --git a/unicode/src/lib/TntUnicodeControls/TntWideStrUtils.pas b/unicode/src/lib/TntUnicodeControls/TntWideStrUtils.pas
index ede13f30..99f63aea 100644
--- a/unicode/src/lib/TntUnicodeControls/TntWideStrUtils.pas
+++ b/unicode/src/lib/TntUnicodeControls/TntWideStrUtils.pas
@@ -11,6 +11,10 @@
 
 unit TntWideStrUtils;
 
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
 {$INCLUDE TntCompilers.inc}
 
 interface
-- 
cgit v1.2.3