author | berghofe |
Sat, 15 Jan 2011 12:35:29 +0100 | |
changeset 41561 | d1318f3c86ba |
permissions | -rw-r--r-- |
41561 | 1 |
|
2 |
with Interfaces; |
|
3 |
--# inherit Interfaces; |
|
4 |
||
5 |
package WordOps is |
|
6 |
||
7 |
subtype Word is Interfaces.Unsigned_32; |
|
8 |
||
9 |
subtype Rotate_Amount is Integer range 0..15; |
|
10 |
||
11 |
--# function rotate_left(I : Rotate_Amount; W : Word) return Word; |
|
12 |
||
13 |
function Rotate(I : Rotate_Amount; W : Word) return Word; |
|
14 |
--# return rotate_left(I, W); |
|
15 |
--# accept W, 3, "Expecting this warning"; |
|
16 |
pragma Inline (Rotate); |
|
17 |
--# end accept; |
|
18 |
||
19 |
end Wordops; |