+ add modeswitch for anonymous functions

compiler/globtype.pas

@@ -530,7 +530,8 @@ interface
          m_prefixed_attributes, { enable attributes that are defined before the type they belong to }
          m_underscoreisseparator,{ _ can be used as separator to group digits in numbers }
          m_implicit_function_specialization,    { attempt to specialize generic function by inferring types from parameters }
-         m_function_references  { enable Delphi-style function references }
+         m_function_references, { enable Delphi-style function references }
+         m_anonymous_functions  { enable Delphi-style anonymous functions }
        );
        tmodeswitches = set of tmodeswitch;
 
@@ -725,7 +726,8 @@ interface
          'PREFIXEDATTRIBUTES',
          'UNDERSCOREISSEPARATOR',
          'IMPLICITFUNCTIONSPECIALIZATION',
-         'FUNCTIONREFERENCES'
+         'FUNCTIONREFERENCES',
+         'ANONYMOUSFUNCTIONS'
          );
 
 

compiler/utils/ppuutils/ppudump.pp

@@ -2437,7 +2437,8 @@ const
          'm_prefixed_attributes', { enable attributes that are defined before the type they belong to }
          'm_underscoreisseparator',{ _ can be used as separator to group digits in numbers }
          'm_implicit_function_specialization', { attempt to specialize generic function by inferring types from parameters }
-         'm_function_references'  { enable Delphi-style function references }
+         'm_function_references', { enable Delphi-style function references }
+         'm_anonymous_functions'  { enable Delphi-style anonymous functions }
        );
        { optimizer }
        optimizerswitchname : array[toptimizerswitch] of string[50] =