18c0693f

Переименование исключений


В некоторых случаях полезно осуществить локальное переименование исключения:

with Ada.IO_Exceptions;

package My_IO is

Data_Error: exception renames Ada.IO_Exceptions.Data_Error; . . . end My_IO;