tests/tbs/tb0217.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

{ Old file: tbs0256.pp }
{ problem with conditionnals in TP mode                OK 0.99.11 (PM) }

{$mode tp}

{$undef dummy }

{$ifdef dummy}
    procedure test;
      begin
         foreach({$ifndef TP}@{$endif}add_to_browserlog);
      end;
{$endif BrowserLog}

begin
end.