From 7ac7d8a4b612cf9bce9d9d149da627304df1352d Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Tue, 9 Apr 2013 13:05:29 +0000
Subject: [PATCH] + define UNICODE as well as FPC_UNICODESTRINGS

git-svn-id: trunk@24214 -
---
 compiler/scanner.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/compiler/scanner.pas b/compiler/scanner.pas
index 648eba17a2..0bd783f6e6 100644
--- a/compiler/scanner.pas
+++ b/compiler/scanner.pas
@@ -347,7 +347,10 @@ implementation
                 if changeinit then
                   include(init_settings.localswitches,cs_refcountedstrings);
                 if m_default_unicodestring in current_settings.modeswitches then
-                  def_system_macro('FPC_UNICODESTRINGS');
+                  begin
+                    def_system_macro('FPC_UNICODESTRINGS');
+                    def_system_macro('UNICODE');
+                  end;
               end
             else
               begin
@@ -355,6 +358,7 @@ implementation
                 if changeinit then
                   exclude(init_settings.localswitches,cs_refcountedstrings);
                 undef_system_macro('FPC_UNICODESTRINGS');
+                undef_system_macro('UNICODE');
               end;
           end;