CS计算机代考程序代写 —


— Jan & Uwe R. Zimmer, Australia, July 2011

with Ada.Task_Identification; use Ada.Task_Identification;
with Ada.Text_IO; use Ada.Text_IO;

package body Exceptions is

procedure Show_Exception (Exception_Identifier : Exception_Occurrence;
Optional_Message : String := “”) is

begin
Put_Line (Current_Error,
“Task ” & Image (Current_Task) & ” reports: “);
Put_Line (Current_Error, Exception_Information (Exception_Identifier));
if Optional_Message /= “” then
Put_Line (Current_Error, “Additional message: ” & Optional_Message);
end if;
end Show_Exception;

end Exceptions;