Re: Conditional compilation of debug traces without cpp

["Björn Persson" <spam-away@nowhere.nil>]

guillaume.portail@grospied.enanglais.com skrev:
> Ludovic Brenta wrote:
>> You could place all calls to Debug.Put_Line inside a pragma Debug.
> 
> It helps, but it is GNAT specific. I would prefer a pure Ada solution.

Well, there is always the good old if statement:

with Ada.Text_IO; use Ada.Text_IO;
procedure Debug_Demo is
    Debug_Enabled: constant Boolean := false;
begin
    if Debug_Enabled then
       Put_Line("PC was here, A = " & Integer'Image(12));
    end if;
end Debug_Demo;

When Debug_Enabled is false, the compiler (at least Gnat) will remove 
the if statement completely.

-- 
Bj�rn Persson                              PGP key A88682FD
                    omb jor ers @sv ge.
                    r o.b n.p son eri nu