—
— Jan & Uwe R. Zimmer, Australia, July 2011
—
—
— Usage if the purpose is to “catch all”:
—
— begin
— ..
— exception
— when Exception_Id : others => Show_Exception (Exception_Id);
— end;
—
with Ada.Exceptions; use Ada.Exceptions;
package Exceptions is
procedure Show_Exception (Exception_Identifier : Exception_Occurrence;
Optional_Message : String := “”);
end Exceptions;