From a92d9807237a024106b67f045822679f7ee4df54 Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sat, 14 Mar 2009 21:18:50 +0000
Subject: merge with current trunk (just update)

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1634 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 unicode/plugins/SDK/StrUtils.pas | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

(limited to 'unicode/plugins/SDK/StrUtils.pas')

diff --git a/unicode/plugins/SDK/StrUtils.pas b/unicode/plugins/SDK/StrUtils.pas
index a5735b8f..069c89c3 100644
--- a/unicode/plugins/SDK/StrUtils.pas
+++ b/unicode/plugins/SDK/StrUtils.pas
@@ -2,7 +2,9 @@ unit StrUtils;
 
 interface
 
-{$I switches.inc}
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
 
 uses ModiSDK;
 
@@ -12,6 +14,10 @@ procedure FreeStr(Str: PChar);
 
 implementation
 
+{$IFDEF FPC}
+  {$ASMMODE Intel}
+{$ENDIF}
+
 {function StrToAChar(Str: String): AChar;
 var
   L, I: Integer;
@@ -70,4 +76,4 @@ begin
   FreeMem(Str);
 end;
 
-end.
\ No newline at end of file
+end.
-- 
cgit v1.2.3