在Ada中，如何将constraint_error更改为自定义异常？

with Ada.Text_IO;

procedure Custom_Exception is
   -- 自定义异常类型
   exception My_Exception;

   -- 引发异常的过程
   procedure Raise_Exception is
   begin
      raise My_Exception;
   exception
      when Constraint_Error =>
         Ada.Text_IO.Put_Line("捕获到constraint_error异常");
   end Raise_Exception;

begin
   -- 调用引发异常的过程
   Raise_Exception;
exception
   when My_Exception =>
      Ada.Text_IO.Put_Line("捕获到自定义异常");
end Custom_Exception;