summaryrefslogtreecommitdiff
path: root/tests/coq/misc/Bitwise.v
blob: b2339c58b7d0474366184ad93b69fa561add99d6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
(** THIS FILE WAS AUTOMATICALLY GENERATED BY AENEAS *)
(** [bitwise] *)
Require Import Primitives.
Import Primitives.
Require Import Coq.ZArith.ZArith.
Require Import List.
Import ListNotations.
Local Open Scope Primitives_scope.
Module Bitwise.

(** [bitwise::shift_u32]:
    Source: 'src/bitwise.rs', lines 3:0-3:31 *)
Definition shift_u32 (a : u32) : result u32 :=
  t <- u32_shr a 16%usize; u32_shl t 16%usize
.

(** [bitwise::shift_i32]:
    Source: 'src/bitwise.rs', lines 10:0-10:31 *)
Definition shift_i32 (a : i32) : result i32 :=
  t <- i32_shr a 16%isize; i32_shl t 16%isize
.

(** [bitwise::xor_u32]:
    Source: 'src/bitwise.rs', lines 17:0-17:37 *)
Definition xor_u32 (a : u32) (b : u32) : result u32 :=
  Ok (u32_xor a b).

(** [bitwise::or_u32]:
    Source: 'src/bitwise.rs', lines 21:0-21:36 *)
Definition or_u32 (a : u32) (b : u32) : result u32 :=
  Ok (u32_or a b).

(** [bitwise::and_u32]:
    Source: 'src/bitwise.rs', lines 25:0-25:37 *)
Definition and_u32 (a : u32) (b : u32) : result u32 :=
  Ok (u32_and a b).

End Bitwise.