paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 17:49:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ UNICODESTRINGS feature flag

Browse Source 
git-svn-id: trunk@27026 -
This commit is contained in:
florian 2014-03-07 21:25:38 +00:00
parent 7abbb341a5
commit 7eace968e7
2 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/globtype.pas
View File

@ -253,7 +253,8 @@ interface
f_heap,f_init_final,f_rtti,f_classes,f_exceptions,f_exitcode,
f_ansistrings,f_widestrings,f_textio,f_consoleio,f_fileio,
f_random,f_variants,f_objects,f_dynarrays,f_threading,f_commandargs,
f_processes,f_stackcheck,f_dynlibs,f_softfpu,f_objectivec1,f_resources
f_processes,f_stackcheck,f_dynlibs,f_softfpu,f_objectivec1,f_resources,
f_unicodestring
);
tfeatures = set of tfeature;
@ -344,11 +345,12 @@ interface
}
WPOptimizationsNeedingAllUnitInfo = [cs_wpo_devirtualize_calls,cs_wpo_optimize_vmts];
featurestr : array[tfeature] of string[12] = (
featurestr : array[tfeature] of string[14] = (
'HEAP','INITFINAL','RTTI','CLASSES','EXCEPTIONS','EXITCODE',
'ANSISTRINGS','WIDESTRINGS','TEXTIO','CONSOLEIO','FILEIO',
'RANDOM','VARIANTS','OBJECTS','DYNARRAYS','THREADING','COMMANDARGS',
'PROCESSES','STACKCHECK','DYNLIBS','SOFTFPU','OBJECTIVEC1','RESOURCES'
'PROCESSES','STACKCHECK','DYNLIBS','SOFTFPU','OBJECTIVEC1','RESOURCES',
'UNICODESTRINGS'
);
type

6
rtl/inc/systemh.inc
View File

@ -78,8 +78,14 @@
{$define FPC_HAS_FEATURE_STACKCHECK}
{$define FPC_HAS_FEATURE_DYNLIBS}
{$define FPC_HAS_FEATURE_OBJECTIVEC1}
{$define FPC_HAS_FEATURE_UNICODESTRINGS}
{$endif FPC_HAS_FEATURE_SUPPORT}
{ bootstrapping, the starting compiler cannot be a downstripped compiler without unicodestring support }
{$ifdef VER2_6}
{$define FPC_HAS_FEATURE_UNICODESTRINGS}
{$endif VER2_6}
{****************************************************************************
Global Types and Constants
****************************************************************************}