src/HOL/SPARK/Examples/RIPEMD-160/wordops.ads
author Andreas Lochbihler
Tue, 01 Dec 2015 12:35:11 +0100
changeset 61766 507b39df1a57
parent 41561 d1318f3c86ba
permissions -rw-r--r--
add formalisation of Bourbaki-Witt fixpoint theorem


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;