1procedure My_Package is 2 3 generic 4 type Unsigned_Type is range <>; 5 package Generic_Integer_Images is 6 function Digit_To_Character (X : Unsigned_Type) return Character; 7 end Generic_Integer_Images; 8 9 package body Generic_Integer_Images is 10 function Digit_To_Character (X : Unsigned_Type) return Character is 11 (Character'Val (0)); 12 end Generic_Integer_Images; 13 14 type Signed_Address is range 15 -2**(Standard'Address_Size - 1) .. 2**(Standard'Address_Size - 1) - 1; 16begin 17 null; 18end My_Package; 19