1. -- 
  2. -- Jan & Uwe R. Zimmer, Australia, July 2011 
  3. -- 
  4.  
  5. with Ada.Task_Identification; use Ada.Task_Identification; 
  6. with Ada.Text_IO;             use Ada.Text_IO; 
  7.  
  8. package body Exceptions is 
  9.  
  10.    procedure Show_Exception (Exception_Identifier : Exception_Occurrence; 
  11.                              Optional_Message     : String := "") is 
  12.  
  13.    begin 
  14.       Put_Line (Current_Error, 
  15.                 "Task " & Image (Current_Task) & " reports: "); 
  16.       Put_Line (Exception_Information (Exception_Identifier)); 
  17.       if Optional_Message /= "" then 
  18.          Put_Line ("Additional message: " & Optional_Message); 
  19.       end if; 
  20.    end Show_Exception; 
  21.  
  22. end Exceptions;