paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 14:09:23 +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_heap,f_init_final,f_rtti,f_classes,f_exceptions,f_exitcode,
f_ansistrings,f_widestrings,f_textio,f_consoleio,f_fileio, f_ansistrings,f_widestrings,f_textio,f_consoleio,f_fileio,
f_random,f_variants,f_objects,f_dynarrays,f_threading,f_commandargs, 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; tfeatures = set of tfeature;
@ -344,11 +345,12 @@ interface
} }
WPOptimizationsNeedingAllUnitInfo = [cs_wpo_devirtualize_calls,cs_wpo_optimize_vmts]; 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', 'HEAP','INITFINAL','RTTI','CLASSES','EXCEPTIONS','EXITCODE',
'ANSISTRINGS','WIDESTRINGS','TEXTIO','CONSOLEIO','FILEIO', 'ANSISTRINGS','WIDESTRINGS','TEXTIO','CONSOLEIO','FILEIO',
'RANDOM','VARIANTS','OBJECTS','DYNARRAYS','THREADING','COMMANDARGS', 'RANDOM','VARIANTS','OBJECTS','DYNARRAYS','THREADING','COMMANDARGS',
'PROCESSES','STACKCHECK','DYNLIBS','SOFTFPU','OBJECTIVEC1','RESOURCES' 'PROCESSES','STACKCHECK','DYNLIBS','SOFTFPU','OBJECTIVEC1','RESOURCES',
'UNICODESTRINGS'
); );
type type

6
rtl/inc/systemh.inc
View File

@ -78,8 +78,14 @@
{$define FPC_HAS_FEATURE_STACKCHECK} {$define FPC_HAS_FEATURE_STACKCHECK}
{$define FPC_HAS_FEATURE_DYNLIBS} {$define FPC_HAS_FEATURE_DYNLIBS}
{$define FPC_HAS_FEATURE_OBJECTIVEC1} {$define FPC_HAS_FEATURE_OBJECTIVEC1}
{$define FPC_HAS_FEATURE_UNICODESTRINGS}
{$endif FPC_HAS_FEATURE_SUPPORT} {$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 Global Types and Constants
****************************************************************************} ****************************************************************************}