3 type Unit
is array (1 .. 4) of Float;
4 for Unit
'Alignment use 32;
5 pragma Machine_Attribute
(Unit
, "vector_type");
6 pragma Machine_Attribute
(Unit
, "may_alias");
8 Zero_Unit
: constant Unit
:= (others => 0.0);
10 function Mul
(X
: in Unit
; Y
: in Unit
) return Unit
;
11 function "+"(Left
, Right
: Unit
) return Unit
;
12 function "*"(Left
, Right
: Unit
) return Unit
;
14 type Unit_Vector
is array (Positive range <>) of Unit
;
15 type Vector_Access
is access all Unit_Vector
;