From 21438b7ca8862ef5b9f789e138efdbab15939a40 Mon Sep 17 00:00:00 2001
From: k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sun, 3 Jan 2016 19:41:52 +0000
Subject: fix compilation

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@3177 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 src/base/UUnicodeUtils.pas | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

(limited to 'src/base/UUnicodeUtils.pas')

diff --git a/src/base/UUnicodeUtils.pas b/src/base/UUnicodeUtils.pas
index 52e40847..2fb87467 100644
--- a/src/base/UUnicodeUtils.pas
+++ b/src/base/UUnicodeUtils.pas
@@ -667,25 +667,33 @@ begin
   end;
 end;
 
-function AnsiToAscii(const s:AnsiString):AnsiString;
+function AnsiToAscii(const s :AnsiString): AnsiString;
 begin
   Result := s;
 
   if Result <> '' then
   begin
     UniqueString(Result);
+{$IFDEF Windows}
     CharToOem(Pchar(Result), Pchar(Result));
+{$ELSE}
+// todo
+{$ENDIF}
   end;
 end;
 
-function AsciiToAnsi(const s:AnsiString):AnsiString;
+function AsciiToAnsi(const s: AnsiString): AnsiString;
 begin
   Result := s;
 
   if Result <> '' then
   begin
     UniqueString(Result);
+{$IFDEF Windows}
     OemToChar(Pchar(Result), Pchar(Result));
+{$ELSE}
+// todo
+{$ENDIF}
   end;
 end;
 
-- 
cgit v1.2.3