paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-14 07:39:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: added modeswitches ISOLIKE_UNARY_MINUS and SYSTEMCODEPAGE

Browse Source 
git-svn-id: trunk@34296 -
This commit is contained in:
mattias 2011-12-19 22:59:29 +00:00
parent 1296e6912f
commit 77f23ba004
1 changed files with 32 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

58
components/codetools/linkscanner.pas
View File

@ -138,33 +138,36 @@ type
cmOBJFPC,
cmMacPas,
cmISO);
{ TCompilerModeSwitch - see fpc/compiler/globtype.pas }
TCompilerModeSwitch = (
cmsClass,
cmsObjpas,
cmsResult,
cmsString_pchar,
cmsCvar_support,
cmsNested_comment,
cmsTp_procvar,
cmsMac_procvar,
cmsRepeat_forward,
cmsPointer_2_procedure,
cmsAutoderef,
cmsInitfinal,
cmsClass, { delphi class model }
cmsObjpas, { load objpas unit }
cmsResult, { result in functions }
cmsString_pchar, { pchar 2 string conversion }
cmsCvar_support, { cvar variable directive }
cmsNested_comment,{ nested comments }
cmsTp_procvar, { tp style procvars (no @ needed) }
cmsMac_procvar, { macpas style procvars }
cmsRepeat_forward, { repeating forward declarations is needed }
cmsPointer_2_procedure, { allows the assignement of pointers to procedure variables }
cmsAutoderef, { does auto dereferencing of struct. vars }
cmsInitfinal, { initialization/finalization for units }
cmsAdd_pointer,
cmsDefault_ansistring,
cmsOut,
cmsDefault_para,
cmsHintdirective,
cmsDuplicate_names,
cmsProperty,
cmsDefault_inline,
cmsExcept,
cmsObjectiveC1,
cmsObjectiveC2,
cmsNestedProcVars,
cmsNonLocalGoto,
cmsAdvancedRecords
cmsDefault_ansistring, { ansistring turned on by default }
cmsOut, { support the calling convention OUT }
cmsDefault_para, { support default parameters }
cmsHintdirective, { support hint directives }
cmsDuplicate_names, { allow locals/paras to have duplicate names of globals }
cmsProperty, { allow properties }
cmsDefault_inline, { allow inline proc directive }
cmsExcept, { allow exception-related keywords }
cmsObjectiveC1, { support interfacing with Objective-C (1.0) }
cmsObjectiveC2, { support interfacing with Objective-C (2.0) }
cmsNestedProcVars, { support nested procedural variables }
cmsNonLocalGoto, { support non local gotos (like iso pascal) }
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 }
);
TCompilerModeSwitches = set of TCompilerModeSwitch;
const
@ -560,10 +563,12 @@ type
end;
const
// upper case
CompilerModeNames: array[TCompilerMode] of shortstring=(
'FPC', 'DELPHI', 'GPC', 'TP', 'OBJFPC', 'MACPAS', 'ISO'
);
// upper case
CompilerModeSwitchNames: array[TCompilerModeSwitch] of shortstring=(
'CLASS', 'OBJPAS', 'RESULT', 'PCHARTOSTRING', 'CVAR',
'NESTEDCOMMENTS', 'CLASSICPROCVARS', 'MACPROCVARS', 'REPEATFORWARD',
@ -571,8 +576,9 @@ const
'ANSISTRINGS', 'OUT', 'DEFAULTPARAMETERS', 'HINTDIRECTIVE',
'DUPLICATELOCALS', 'PROPERTIES', 'ALLOWINLINE', 'EXCEPTIONS',
'OBJECTIVEC1', 'OBJECTIVEC2', 'NESTEDPROCVARS', 'NONLOCALGOTO',
'ADVANCEDRECORDS');
'ADVANCEDRECORDS', 'ISOLIKE_UNARY_MINUS', 'SYSTEMCODEPAGE');
// upper case
PascalCompilerNames: array[TPascalCompiler] of shortstring=(
'FPC', 'DELPHI'
);