2015-04-22 00:05:50 +00:00
|
|
|
with Crypto_Generic_Types;
|
|
|
|
with Crypto_Core_Types; use Crypto_Core_Types;
|
|
|
|
|
|
|
|
package Crypto_Types is
|
|
|
|
|
2015-06-10 17:46:28 +00:00
|
|
|
-- package Crypto_Types_u8 is new Crypto_Generic_Types(T => u8);
|
|
|
|
package Crypto_Types_u8 is new Crypto_Generic_Types(T => u8, T_Array => u8_Array, T_Array_Access => u8_Array_Access);
|
|
|
|
|
|
|
|
-- subtype u8_Array is Crypto_Types_u8.T_Array;
|
2015-04-22 00:05:50 +00:00
|
|
|
package Crypto_Types_u16 is new Crypto_Generic_Types(T => u16, T_Array => u16_Array, T_Array_Access => u16_Array_Access);
|
|
|
|
package Crypto_Types_u32 is new Crypto_Generic_Types(T => u32, T_Array => u32_Array, T_Array_Access => u32_Array_Access);
|
|
|
|
package Crypto_Types_u64 is new Crypto_Generic_Types(T => u64, T_Array => u64_Array, T_Array_Access => u64_Array_Access);
|
|
|
|
|
2015-06-10 17:46:28 +00:00
|
|
|
-- subtype u8 is Crypto_Core_Types.u8;
|
|
|
|
-- subtype u16 is Crypto_Core_Types.u16;
|
|
|
|
-- subtype u32 is Crypto_Core_Types.u32;
|
|
|
|
-- subtype u64 is Crypto_Core_Types.u64;
|
|
|
|
--
|
|
|
|
-- subtype u8_Array is Crypto_Core_Types.u8_Array;
|
|
|
|
-- subtype u16_Array is Crypto_Core_Types.u16_Array;
|
|
|
|
-- subtype u32_Array is Crypto_Core_Types.u32_Array;
|
|
|
|
-- subtype u64_Array is Crypto_Core_Types.u64_Array;
|
|
|
|
--
|
|
|
|
-- subtype u8_Array_Access is Crypto_Core_Types.u8_Array_Access;
|
|
|
|
-- subtype u16_Array_Access is Crypto_Core_Types.u16_Array_Access;
|
|
|
|
-- subtype u32_Array_Access is Crypto_Core_Types.u32_Array_Access;
|
|
|
|
-- subtype u64_Array_Access is Crypto_Core_Types.u64_Array_Access;
|
2015-04-22 00:05:50 +00:00
|
|
|
-- use Crypto_Core_Types;
|
|
|
|
-- use Crypto_Types_u8;
|
|
|
|
-- use Crypto_Types_u16;
|
|
|
|
-- use Crypto_Types_u32;
|
|
|
|
-- use Crypto_Types_u64;
|
|
|
|
|
|
|
|
|
|
|
|
end Crypto_Types;
|