paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-04 20:47:24 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ define UNICODE as well as FPC_UNICODESTRINGS

Browse Source 
git-svn-id: trunk@24214 -
This commit is contained in:
florian 2013-04-09 13:05:29 +00:00
parent c25f56fa64
commit 7ac7d8a4b6
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/scanner.pas
View File

@ -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;