paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 16:09:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-passrc: added enums msFunctionReferences,msAnonymousFunctions

Browse Source
This commit is contained in:
mattias 2022-05-27 00:29:59 +02:00
parent 2c9776ac6b
commit 02211971a3
2 changed files with 26 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
packages/fcl-passrc/src/pscanner.pp
View File

@ -251,6 +251,7 @@ type
);
TTokens = set of TToken;
// for the fpc counterparts see fpc/compiler/globtype.pas
TModeSwitch = (
msNone,
{ generic }
@ -296,12 +297,17 @@ type
msISOLikeProgramsPara, { program parameters as it required by an ISO compatible compiler }
msISOLikeMod, { mod operation as it is required by an iso compatible compiler }
msArrayOperators, { use Delphi compatible array operators instead of custom ones ("+") }
msExternalClass, { Allow external class definitions }
msPrefixedAttributes, { Allow attributes, disable proc modifier [] }
msOmitRTTI, { treat class section 'published' as 'public' and typeinfo does not work on symbols declared with this switch }
msMultiHelpers, { off=only one helper per type, on=all }
msArray2DynArray, { regular arrays can be implicitly converted to dynamic arrays }
msPrefixedAttributes, { Allow attributes, disable proc modifier [] }
msUnderscoreIsSeparator, { _ can be used as separator to group digits in numbers }
msImplicitFunctionSpec,{ implicit function specialization }
msMultiLineStrings { Multiline strings }
msFunctionReferences, { enable Delphi-style function references }
msAnonymousFunctions, { enable Delphi-style anonymous functions }
msExternalClass, { pas2js: Allow external class definitions }
msOmitRTTI, { pas2js: treat class section 'published' as 'public' and typeinfo does not work on symbols declared with this switch }
msMultiLineStrings { pas2js: Multiline strings }
);
TModeSwitches = Set of TModeSwitch;
@ -1121,11 +1127,15 @@ const
'ISOPROGRAMPARAS',
'ISOMOD',
'ARRAYOPERATORS',
'EXTERNALCLASS',
'PREFIXEDATTRIBUTES',
'OMITRTTI',
'MULTIHELPERS',
'ARRAY2DYNARRAYS',
'PREFIXEDATTRIBUTES',
'UNDERSCOREISSEPARARTOR',
'IMPLICITFUNCTIONSPECIALIZATION',
'FUNCTIONREFERENCES',
'ANONYMOUSFUNCTIONS',
'EXTERNALCLASS',
'OMITRTTI',
'MULTILINESTRINGS'
);
@ -1213,7 +1223,8 @@ const
msPointer2Procedure,msAutoDeref,msTPProcVar,msInitFinal,msDefaultAnsistring,
msOut,msDefaultPara,msDuplicateNames,msHintDirective,
msProperty,msDefaultInline,msExcept,msAdvancedRecords,msTypeHelpers,
msPrefixedAttributes,msArrayOperators,msImplicitFunctionSpec
msPrefixedAttributes,msArrayOperators,msImplicitFunctionSpec,
msFunctionReferences,msAnonymousFunctions
];
DelphiUnicodeModeSwitches = delphimodeswitches + [msSystemCodePage,msDefaultUnicodestring];

10
packages/pastojs/src/pas2jsfiler.pp
View File

@ -201,11 +201,15 @@ const
'ISOLikeProgramsPara',
'ISOLikeMod',
'ArrayOperators',
'ExternalClass',
'PrefixedAttributes',
'OmitRTTI',
'MultiHelpers',
'Array2DynArrays',
'PrefixedAttributes',
'UnderscoreIsSepararor',
'ImplicitFunctionSpecialization',
'FunctionReferences',
'AnonymousFunctions',
'ExternalClass',
'OmitRTTI',
'MultilineStrings'
); // Dont forget to update ModeSwitchToInt !