paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-07 11:36:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: updated default modeswitches

Browse Source 
git-svn-id: trunk@41127 -
This commit is contained in:
mattias 2013-05-11 08:59:02 +00:00
parent cd01c5a825
commit 676c8f278e
1 changed files with 23 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
components/codetools/linkscanner.pas
View File

@ -181,30 +181,41 @@ type
cmsFinalFields, { allows declaring fields as "final", which means they must be initialised cmsFinalFields, { allows declaring fields as "final", which means they must be initialised
in the (class) constructor and are constant from then on (same as final in the (class) constructor and are constant from then on (same as final
fields in Java) } fields in Java) }
cmsUnicodeStrings { ? see http://wiki.freepascal.org/FPC_JVM/Language } cmsDefault_unicodestring { ? see http://wiki.freepascal.org/FPC_JVM/Language }
); );
TCompilerModeSwitches = set of TCompilerModeSwitch; TCompilerModeSwitches = set of TCompilerModeSwitch;
const const
// see fpc/compiler/globals.pp
DefaultCompilerModeSwitches: array[TCompilerMode] of TCompilerModeSwitches = ( DefaultCompilerModeSwitches: array[TCompilerMode] of TCompilerModeSwitches = (
// cmFPC // cmFPC
[cmsResult,cmsProperty,cmsNested_comment,cmsCvar_support], [cmsString_pchar,cmsNested_comment,cmsRepeat_forward,cmsCvar_support,
cmsInitfinal,cmsHintdirective,cmsProperty,cmsDefault_inline,
cmsResult],
// cmDELPHI // cmDELPHI
[cmsDefault_ansistring,cmsResult,cmsAdvancedRecords,cmsProperty, [cmsClass,cmsObjpas,cmsResult,cmsString_pchar,
cmsCvar_support,cmsOut,cmsObjpas,cmsAutoderef], cmsPointer_2_procedure,cmsAutoderef,cmsTp_procvar,cmsInitfinal,cmsDefault_ansistring,
cmsOut,cmsDefault_para,cmsDuplicate_names,cmsHintdirective,
cmsProperty,cmsDefault_inline,cmsExcept,cmsAdvancedRecords],
// cmDELPHIUNICODE // cmDELPHIUNICODE
[cmsDefault_ansistring,cmsResult,cmsAdvancedRecords,cmsProperty, [cmsClass,cmsObjpas,cmsResult,cmsString_pchar,
cmsCvar_support,cmsOut,cmsObjpas,cmsSystemCodepage], cmsPointer_2_procedure,cmsAutoderef,cmsTp_procvar,cmsInitfinal,cmsDefault_ansistring,
cmsOut,cmsDefault_para,cmsDuplicate_names,cmsHintdirective,
cmsProperty,cmsDefault_inline,cmsExcept,cmsAdvancedRecords,
cmsSystemcodepage,cmsDefault_unicodestring],
// cmGPC // cmGPC
[], [cmsTp_procvar],
// cmTP // cmTP
[cmsResult,cmsTp_procvar], [cmsResult,cmsTp_procvar,cmsDuplicate_names],
// cmOBJFPC // cmOBJFPC
[cmsDefault_ansistring,cmsResult,cmsProperty,cmsNested_comment, [cmsClass,cmsObjpas,cmsResult,cmsString_pchar,cmsNested_comment,
cmsCvar_support,cmsOut,cmsObjpas], cmsRepeat_forward,cmsCvar_support,cmsInitfinal,cmsOut,cmsDefault_para,
cmsHintdirective,cmsProperty,cmsDefault_inline,cmsExcept],
// cmMacPas // cmMacPas
[cmsMac_procvar,cmsProperty], [cmsCvar_support,cmsMac_procvar,cmsNestedProcVars,cmsNonLocalGoto,
cmsISOLike_unary_minus,cmsDefault_inline],
// cmISO // cmISO
[] [cmsTp_procvar,cmsDuplicate_names,cmsNestedProcVars,cmsNonLocalGoto,
cmsISOLike_unary_minus]
); );
type type