Add Packed bytes for working with
This commit is contained in:
parent
181e2815f4
commit
b899c9f4ce
13
runtime/adainclude/system-unsigned_types.ads
Normal file
13
runtime/adainclude/system-unsigned_types.ads
Normal 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;
|
||||
Loading…
Reference in New Issue
Block a user