mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 21:29:43 +02:00
25 lines
627 B
ObjectPascal
25 lines
627 B
ObjectPascal
{$mode objfpc} {$h+} {$macro on}
|
|
|
|
begin
|
|
// Warning: Expanding of macros exceeds a depth of 16.
|
|
// If macros contain any source code (barring comments and directives) — even 'begin end;', this will compile.
|
|
{$define do_A :=}
|
|
{$define do_B :=}
|
|
{$define do_C :=}
|
|
{$define do_D :=}
|
|
{$define do_E :=}
|
|
{$define do_F :=}
|
|
{$define do_G :=}
|
|
{$define do_H :=}
|
|
{$define do_I :=}
|
|
{$define do_J :=}
|
|
{$define do_K :=}
|
|
{$define do_L :=}
|
|
{$define do_M :=}
|
|
{$define do_N :=}
|
|
{$define do_O :=}
|
|
{$define do_P :=}
|
|
{$define do_Q :=}
|
|
do_A do_B do_C do_D do_E do_F do_G do_H do_I do_J do_K do_L do_M do_N do_O do_P do_Q
|
|
end.
|