1
package body Wordops is
2
3
function Rotate(I : Rotate_Amount; W : Word) return Word
4
is
5
begin
6
return Interfaces.Rotate_Left (W, I);
7
end Rotate;
8
9
end Wordops;