summaryrefslogtreecommitdiff
path: root/tests/fstar/misc/Bitwise.fst
blob: 7945e142cd4465ac7fb66ec611ed23e95644d04a (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
(** THIS FILE WAS AUTOMATICALLY GENERATED BY AENEAS *)
(** [bitwise] *)
module Bitwise
open Primitives

#set-options "--z3rlimit 50 --fuel 1 --ifuel 1"

(** [bitwise::shift_u32]:
    Source: 'tests/src/bitwise.rs', lines 5:0-5:31 *)
let shift_u32 (a : u32) : result u32 =
  let* t = u32_shr #Usize a 16 in u32_shl #Usize t 16

(** [bitwise::shift_i32]:
    Source: 'tests/src/bitwise.rs', lines 12:0-12:31 *)
let shift_i32 (a : i32) : result i32 =
  let* t = i32_shr #Isize a 16 in i32_shl #Isize t 16

(** [bitwise::xor_u32]:
    Source: 'tests/src/bitwise.rs', lines 19:0-19:37 *)
let 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 *)
let 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 *)
let and_u32 (a : u32) (b : u32) : result u32 =
  Ok (u32_and a b)