4 with Opt59_Pkg
; use Opt59_Pkg
;
8 type Enum
is (Zero
, One
, Two
);
10 function Has_True
(V
: Boolean_Vector
) return Boolean is
20 Data1
: constant Boolean_Vector
:= Get_BV1
;
21 Data2
: constant Boolean_Vector
:= Get_BV2
;
22 Result
: Boolean_Vector
;
24 function F
return Enum
is
26 Set1
: constant Boolean := Has_True
(Data1
);
27 Set2
: constant Boolean := Has_True
(Data2
);
37 Val
: constant Enum
:= F
;
41 for I
in Result
'Range loop
42 Result
(I
) := Data1
(I
) or Data2
(I
);