paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 17:33: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
in the (class) constructor and are constant from then on (same as final
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;
const
// see fpc/compiler/globals.pp
DefaultCompilerModeSwitches: array[TCompilerMode] of TCompilerModeSwitches = (
// cmFPC
[cmsResult,cmsProperty,cmsNested_comment,cmsCvar_support],
[cmsString_pchar,cmsNested_comment,cmsRepeat_forward,cmsCvar_support,
cmsInitfinal,cmsHintdirective,cmsProperty,cmsDefault_inline,
cmsResult],
// cmDELPHI
[cmsDefault_ansistring,cmsResult,cmsAdvancedRecords,cmsProperty,
cmsCvar_support,cmsOut,cmsObjpas,cmsAutoderef],
[cmsClass,cmsObjpas,cmsResult,cmsString_pchar,
cmsPointer_2_procedure,cmsAutoderef,cmsTp_procvar,cmsInitfinal,cmsDefault_ansistring,
cmsOut,cmsDefault_para,cmsDuplicate_names,cmsHintdirective,
cmsProperty,cmsDefault_inline,cmsExcept,cmsAdvancedRecords],
// cmDELPHIUNICODE
[cmsDefault_ansistring,cmsResult,cmsAdvancedRecords,cmsProperty,
cmsCvar_support,cmsOut,cmsObjpas,cmsSystemCodepage],
[cmsClass,cmsObjpas,cmsResult,cmsString_pchar,
cmsPointer_2_procedure,cmsAutoderef,cmsTp_procvar,cmsInitfinal,cmsDefault_ansistring,
cmsOut,cmsDefault_para,cmsDuplicate_names,cmsHintdirective,
cmsProperty,cmsDefault_inline,cmsExcept,cmsAdvancedRecords,
cmsSystemcodepage,cmsDefault_unicodestring],
// cmGPC
[],
[cmsTp_procvar],
// cmTP
[cmsResult,cmsTp_procvar],
[cmsResult,cmsTp_procvar,cmsDuplicate_names],
// cmOBJFPC
[cmsDefault_ansistring,cmsResult,cmsProperty,cmsNested_comment,
cmsCvar_support,cmsOut,cmsObjpas],
[cmsClass,cmsObjpas,cmsResult,cmsString_pchar,cmsNested_comment,
cmsRepeat_forward,cmsCvar_support,cmsInitfinal,cmsOut,cmsDefault_para,
cmsHintdirective,cmsProperty,cmsDefault_inline,cmsExcept],
// cmMacPas
[cmsMac_procvar,cmsProperty],
[cmsCvar_support,cmsMac_procvar,cmsNestedProcVars,cmsNonLocalGoto,
cmsISOLike_unary_minus,cmsDefault_inline],
// cmISO
[]
[cmsTp_procvar,cmsDuplicate_names,cmsNestedProcVars,cmsNonLocalGoto,
cmsISOLike_unary_minus]
);
type