28 lines
712 B
Ada
28 lines
712 B
Ada
with Interfaces; use Interfaces;
|
|
|
|
package Crypto_Core_Types is
|
|
|
|
type u8 is new Unsigned_8;
|
|
for u8'Size use 8;
|
|
|
|
type u16 is new Unsigned_16;
|
|
for u16'Size use 16;
|
|
|
|
type u32 is new Unsigned_32;
|
|
for u32'Size use 32;
|
|
|
|
type u64 is new Unsigned_64;
|
|
for u64'Size use 64;
|
|
|
|
type u8_Array is Array (Integer range <>) of u8;
|
|
type u16_Array is Array (Integer range <>) of u16;
|
|
type u32_Array is Array (Integer range <>) of u32;
|
|
type u64_Array is Array (Integer range <>) of u64;
|
|
|
|
type u8_Array_Access is access u8_Array;
|
|
type u16_Array_Access is access u16_Array;
|
|
type u32_Array_Access is access u32_Array;
|
|
type u64_Array_Access is access u64_Array;
|
|
|
|
end Crypto_Core_Types;
|