Re: Any Suggestion How To Accomplish A Debug Macro?

[Simon Wright <simon@pushface.org>]

Hubert <herrdoktor@fumanchu.com> writes:

> I know there is no such thing as C #define's in Ada, but isn't there a
> way to make some sort of debug macro?
> In my C++ code I use a lot of statements like
>
> PRINT(DEBUG_CHANNEL, "TEXT" );
>
> to print out debug messages and in release code, these defines aren't
> compiled. Is there any way to achieve something like this in Ada
> without surrounding it with an IF statement and a boolean flag?

GNAT has pragma Debug[1]. I was always annoyed that this is controlled
by -gnata, which also controls assertions, but I see there's a pragma
Debug_Policy - stated to be equivalent to pragma Check_Policy (Debug).

[1] https://gcc.gnu.org/onlinedocs/gnat_ugn_unw/Debugging---A-Special-Case.html