--
-- exceptions_remote.adb,v 1.2 1996/04/10 15:42:51 tardieu Exp
--
with Ada.Exceptions; use Ada.Exceptions;
package body Exceptions_Remote is
procedure Raise_No_Error is begin null; end Raise_No_Error;
procedure Raise_Program_Error is
begin
Raise_Exception (Program_Error'Identity,
"This is the Program error message");
end Raise_Program_Error;
procedure Raise_Constraint_Error is
begin
Raise_Exception (Constraint_Error'Identity,
"This is the Constraint error message");
end Raise_Constraint_Error;
procedure Raise_User_Error is
begin
Raise_Exception (User_Error'Identity,
"This is the User error message");
end Raise_User_Error;
procedure Raise_Hidden_User_Error is
Hidden_User_Error : exception;
begin
Raise_Exception (Hidden_User_Error'Identity,
"This is the Hidden error message");
end Raise_Hidden_User_Error;
end Exceptions_Remote;