Skip to content

Commit f82b13c

Browse files
committed
Allow testing subset of examples with FPC 3.2.x, without anonymous functions support
1 parent d49abd1 commit f82b13c

File tree

3 files changed

+3
-0
lines changed

3 files changed

+3
-0
lines changed

code-samples/anon_functions_assignment_test.dpr

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -2,6 +2,7 @@
22
https://forum.lazarus.freepascal.org/index.php?topic=59468.0 }
33

44
{$ifdef FPC}
5+
{$ifdef VER3_2} {$message warn 'This code needs FPC >= 3.3.x'} begin end. {$endif}
56
{$mode objfpc}{$H+}{$J-}
67
{$modeswitch functionreferences}
78
{$modeswitch anonymousfunctions}

code-samples/anon_functions_list_map_foreach.dpr

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,7 @@
11
{ Example of Map, ForEach methods and processing list with anonymous functions. }
22

33
{$ifdef FPC}
4+
{$ifdef VER3_2} {$message warn 'This code needs FPC >= 3.3.x'} begin end. {$endif}
45
{$mode objfpc}{$H+}{$J-}
56
{$modeswitch functionreferences}
67
{$modeswitch anonymousfunctions}

code-samples/anonymous_functions.dpr

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,7 @@
11
{ Anonymous functions test. }
22

33
{$ifdef FPC}
4+
{$ifdef VER3_2} {$message warn 'This code needs FPC >= 3.3.x'} begin end. {$endif}
45
{$mode objfpc}{$H+}{$J-}
56
{$modeswitch functionreferences}
67
{$modeswitch anonymousfunctions}

0 commit comments

Comments
 (0)