4 Temp_buffer
: array (0..8) of byte
:= (others => 0);
5 for Temp_buffer
'Alignment use 2;
7 subtype Id
is Short_integer;
11 package Bit_Map_Generic
is
14 function "xor" (L
, R
: List
) return List
;
17 type Offset_T
is range 0 .. Id
'Last;
18 type Counter_T
is new short_integer;
19 for Counter_T
'Size use 16;
21 type Bit_List
is array (Id
range <>) of Boolean;
22 pragma Pack
(Bit_List
);
24 type List_Counter_T
(Is_Defined
: Boolean := True) is
26 Dummy
: Boolean := False;
29 Counter
: Counter_T
:= 0;
34 for List_Counter_T
use
36 Is_Defined
at 0 range 0 .. 7;
37 Dummy
at 1 range 0 .. 7;
38 Counter
at 2 range 0 .. 15;
43 Offset
: Offset_T
:= Offset_T
(1) - 1;
44 Counter
: List_Counter_T
;
45 Bits
: Bit_List
(1 .. 6);
49 Offset
at 0 range 0 .. 15;
50 Counter
at 2 range 0 .. 31;
55 No_More_Id
: Boolean := True;