30 lines
939 B
Ada
30 lines
939 B
Ada
package Interfaces
|
|
with Pure is
|
|
|
|
type Bit_1 is mod 2**1
|
|
with Size => 1;
|
|
type Bit_2 is mod 2**2
|
|
with Size => 2;
|
|
type Bit_3 is mod 2**3
|
|
with Size => 3;
|
|
type Bit_4 is mod 2**4
|
|
with Size => 4;
|
|
|
|
type Bit_31 is mod 2**32
|
|
with Size => 31;
|
|
type Bit_32 is mod 2**32
|
|
with Size => 32;
|
|
|
|
function Shift_Left (Value : Bit_32; Amount : Natural)
|
|
return Bit_32 with Import, Convention => Intrinsic;
|
|
function Shift_Right (Value : Bit_32; Amount : Natural)
|
|
return Bit_32 with Import, Convention => Intrinsic;
|
|
function Shift_Right_Arithmetic (Value : Bit_32; Amount : Natural)
|
|
return Bit_32 with Import, Convention => Intrinsic;
|
|
function Rotate_Left (Value : Bit_32; Amount : Natural)
|
|
return Bit_32 with Import, Convention => Intrinsic;
|
|
function Rotate_Right (Value : Bit_32; Amount : Natural)
|
|
return Bit_32 with Import, Convention => Intrinsic;
|
|
|
|
end Interfaces;
|