mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-19 11:59:13 +02:00
codetools: added modeswitche unicodestrings
git-svn-id: trunk@34301 -
This commit is contained in:
parent
d4efb55fc4
commit
bc77735837
@ -168,7 +168,8 @@ type
|
|||||||
cmsAdvancedRecords, { advanced record syntax with visibility sections, methods and properties }
|
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 }
|
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 }
|
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;
|
TCompilerModeSwitches = set of TCompilerModeSwitch;
|
||||||
const
|
const
|
||||||
@ -578,7 +579,7 @@ const
|
|||||||
'DUPLICATELOCALS', 'PROPERTIES', 'ALLOWINLINE', 'EXCEPTIONS',
|
'DUPLICATELOCALS', 'PROPERTIES', 'ALLOWINLINE', 'EXCEPTIONS',
|
||||||
'OBJECTIVEC1', 'OBJECTIVEC2', 'NESTEDPROCVARS', 'NONLOCALGOTO',
|
'OBJECTIVEC1', 'OBJECTIVEC2', 'NESTEDPROCVARS', 'NONLOCALGOTO',
|
||||||
'ADVANCEDRECORDS', 'ISOLIKE_UNARY_MINUS', 'SYSTEMCODEPAGE',
|
'ADVANCEDRECORDS', 'ISOLIKE_UNARY_MINUS', 'SYSTEMCODEPAGE',
|
||||||
'CS_POINTERMATH');
|
'CS_POINTERMATH', 'UNICODESTRINGS');
|
||||||
|
|
||||||
// upper case
|
// upper case
|
||||||
PascalCompilerNames: array[TPascalCompiler] of shortstring=(
|
PascalCompilerNames: array[TPascalCompiler] of shortstring=(
|
||||||
|
Loading…
Reference in New Issue
Block a user