mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
9 lines
179 B
Ada
9 lines
179 B
Ada
package Vect17 is
|
|
|
|
type Sarray is array (1 .. 5) of Long_Float;
|
|
for Sarray'Alignment use 16;
|
|
|
|
procedure Add (X, Y : aliased Sarray; R : aliased out Sarray);
|
|
|
|
end Vect17;
|