1package Vect9_Pkg is 2 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"); 7 8 Zero_Unit : constant Unit := (others => 0.0); 9 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; 13 14 type Unit_Vector is array (Positive range <>) of Unit; 15 type Vector_Access is access all Unit_Vector; 16 17end Vect9_Pkg; 18