From b899c9f4ce0185d650aeb0a6f1a498fe2f3e83e0 Mon Sep 17 00:00:00 2001 From: Folkert Kevelam Date: Wed, 25 Jun 2025 23:17:52 +0200 Subject: [PATCH] Add Packed bytes for working with --- runtime/adainclude/system-unsigned_types.ads | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 runtime/adainclude/system-unsigned_types.ads diff --git a/runtime/adainclude/system-unsigned_types.ads b/runtime/adainclude/system-unsigned_types.ads new file mode 100644 index 0000000..3e0623a --- /dev/null +++ b/runtime/adainclude/system-unsigned_types.ads @@ -0,0 +1,13 @@ +package System.Unsigned_Types with + Pure is + + type Packed_Byte is mod 2 ** 8 + with Universal_Aliasing; + for Packed_Byte'Size use 8; + + type Packed_Bytes1 is array (Natural range <>) of aliased Packed_Byte + with Suppress_Initialization; + for Packed_Bytes1'Alignment use 1; + for Packed_Bytes1'Component_Size use Packed_Byte'Size; + +end System.Unsigned_Types;