Re: Common exception handling

[Ludovic Brenta <ludovic@ludovic-brenta.org>]

Martin wrote:
>    exception
>       when A =>
>          Put_Line ("A");
>       when B =>
>          Put_Line ("B");
>       when C =>
>          Put_Line ("C");
>       when others =>
>          Put_Line ("others");

If all you want it to print the name of the exception, it is better
like this:

exception
   when E : others =>
      Put_Line (Ada.Exceptions.Exception_Name (E));

--
Ludovic Brenta.