blob: 610f4ea81c2eef40556f8275eba0b7727f5e18c2 (
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: 'tests/src/bitwise.rs', lines 5:0-5:31 *)
Definition shift_u32 (a : u32) : result u32 :=
t <- u32_shr a 16%usize; u32_shl t 16%usize
.
(** [bitwise::shift_i32]:
Source: 'tests/src/bitwise.rs', lines 12:0-12:31 *)
Definition shift_i32 (a : i32) : result i32 :=
t <- i32_shr a 16%isize; i32_shl t 16%isize
.
(** [bitwise::xor_u32]:
Source: 'tests/src/bitwise.rs', lines 19:0-19:37 *)
Definition xor_u32 (a : u32) (b : u32) : result u32 :=
Ok (u32_xor a b).
(** [bitwise::or_u32]:
Source: 'tests/src/bitwise.rs', lines 23:0-23:36 *)
Definition or_u32 (a : u32) (b : u32) : result u32 :=
Ok (u32_or a b).
(** [bitwise::and_u32]:
Source: 'tests/src/bitwise.rs', lines 27:0-27:37 *)
Definition and_u32 (a : u32) (b : u32) : result u32 :=
Ok (u32_and a b).
End Bitwise.
|
