Repository navigation
Expand file tree
/
Copy pathi64_convert.ml
More file actions
103 lines (92 loc) · 2.53 KB
/
Copy pathi64_convert.ml
File metadata and controls
103 lines (92 loc) · 2.53 KB
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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
(* WebAssembly-compatible type conversions to i64 implementation *)
let extend_i32_s x = Int64.of_int32 x
let extend_i32_u x = Int64.logand (Int64.of_int32 x) 0x0000_0000_ffff_ffffL
let trunc_f32_s x =
if F32.ne x x then
raise Ixx.InvalidConversion
else
let xf = F32.to_float x in
if xf >= -.Int64.(to_float min_int) || xf < Int64.(to_float min_int) then
raise Ixx.Overflow
else
Int64.of_float xf
let trunc_f32_u x =
if F32.ne x x then
raise Ixx.InvalidConversion
else
let xf = F32.to_float x in
if xf >= -.Int64.(to_float min_int) *. 2.0 || xf <= -1.0 then
raise Ixx.Overflow
else if xf >= -.Int64.(to_float min_int) then
Int64.(logxor (of_float (xf -. 0x1p63)) min_int)
else
Int64.of_float xf
let trunc_f64_s x =
if F64.ne x x then
raise Ixx.InvalidConversion
else
let xf = F64.to_float x in
if xf >= -.Int64.(to_float min_int) || xf < Int64.(to_float min_int) then
raise Ixx.Overflow
else
Int64.of_float xf
let trunc_f64_u x =
if F64.ne x x then
raise Ixx.InvalidConversion
else
let xf = F64.to_float x in
if xf >= -.Int64.(to_float min_int) *. 2.0 || xf <= -1.0 then
raise Ixx.Overflow
else if xf >= -.Int64.(to_float min_int) then
Int64.(logxor (of_float (xf -. 0x1p63)) min_int)
else
Int64.of_float xf
let trunc_sat_f32_s x =
if F32.ne x x then
0L
else
let xf = F32.to_float x in
if xf < Int64.(to_float min_int) then
Int64.min_int
else if xf >= -.Int64.(to_float min_int) then
Int64.max_int
else
Int64.of_float xf
let trunc_sat_f32_u x =
if F32.ne x x then
0L
else
let xf = F32.to_float x in
if xf <= -1.0 then
0L
else if xf >= -.Int64.(to_float min_int) *. 2.0 then
-1L
else if xf >= -.Int64.(to_float min_int) then
Int64.(logxor (of_float (xf -. 9223372036854775808.0)) min_int)
else
Int64.of_float xf
let trunc_sat_f64_s x =
if F64.ne x x then
0L
else
let xf = F64.to_float x in
if xf < Int64.(to_float min_int) then
Int64.min_int
else if xf >= -.Int64.(to_float min_int) then
Int64.max_int
else
Int64.of_float xf
let trunc_sat_f64_u x =
if F64.ne x x then
0L
else
let xf = F64.to_float x in
if xf <= -1.0 then
0L
else if xf >= -.Int64.(to_float min_int) *. 2.0 then
-1L
else if xf >= -.Int64.(to_float min_int) then
Int64.(logxor (of_float (xf -. 9223372036854775808.0)) min_int)
else
Int64.of_float xf
let reinterpret_f64 = F64.to_bits