src/HOL/SPARK/Examples/RIPEMD-160/wordops.adb
author wenzelm
Tue, 22 Jul 2025 12:02:53 +0200
changeset 82894 a8e47bd31965
parent 41561 d1318f3c86ba
permissions -rw-r--r--
back to more basic defaults, independently on the accidental L&F: e.g. relevant for editor_style=false, and session_graph.pdf;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
41561
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     1
package body Wordops is
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     2
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     3
   function Rotate(I : Rotate_Amount; W : Word) return Word
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     4
   is
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     5
   begin
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     6
      return Interfaces.Rotate_Left (W, I);
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     7
   end Rotate;
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     8
d1318f3c86ba Added new SPARK verification environment.
berghofe
parents:
diff changeset
     9
end Wordops;