codetools: added modeswitche unicodestrings

git-svn-id: trunk@34301 -
This commit is contained in:
mattias 2011-12-19 23:39:23 +00:00
parent d4efb55fc4
commit bc77735837

View File

@ -168,7 +168,8 @@ type
cmsAdvancedRecords, { advanced record syntax with visibility sections, methods and properties }
cmsISOLike_unary_minus,{ unary minus like in iso pascal: same precedence level as binary minus/plus }
cmsSystemcodepage, { use system codepage as compiler codepage by default, emit ansistrings with system codepage }
cmsCS_Pointermath { ? see http://wiki.freepascal.org/FPC_JVM/Language }
cmsCS_Pointermath, { ? see http://wiki.freepascal.org/FPC_JVM/Language }
cmsUnicodeStrings { ? see http://wiki.freepascal.org/FPC_JVM/Language }
);
TCompilerModeSwitches = set of TCompilerModeSwitch;
const
@ -578,7 +579,7 @@ const
'DUPLICATELOCALS', 'PROPERTIES', 'ALLOWINLINE', 'EXCEPTIONS',
'OBJECTIVEC1', 'OBJECTIVEC2', 'NESTEDPROCVARS', 'NONLOCALGOTO',
'ADVANCEDRECORDS', 'ISOLIKE_UNARY_MINUS', 'SYSTEMCODEPAGE',
'CS_POINTERMATH');
'CS_POINTERMATH', 'UNICODESTRINGS');
// upper case
PascalCompilerNames: array[TPascalCompiler] of shortstring=(