src/HOL/SPARK/Examples/RIPEMD-160/wordops.ads

try to avoid races again (cf. 8c37cb84065f and fd3a36e48b09);

with Interfaces;
--# inherit Interfaces;

package WordOps is

   subtype Word is Interfaces.Unsigned_32;

   subtype Rotate_Amount is Integer range 0..15;

   --# function rotate_left(I : Rotate_Amount; W : Word) return Word;

   function Rotate(I : Rotate_Amount; W : Word) return Word;
   --# return rotate_left(I, W);
   --# accept W, 3, "Expecting this warning";
   pragma Inline (Rotate);
   --# end accept;

end Wordops;