Add Packed bytes for working with

This commit is contained in:
Folkert Kevelam 2025-06-25 23:17:52 +02:00
parent 181e2815f4
commit b899c9f4ce

View File

@ -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;