File tree Expand file tree Collapse file tree 4 files changed +4
-4
lines changed Expand file tree Collapse file tree 4 files changed +4
-4
lines changed Original file line number Diff line number Diff line change @@ -20,7 +20,7 @@ let architecture () : architecture =
20
20
| "riscv" -> Riscv
21
21
| arch -> Misc. fatal_errorf " Unknown architecture `%s'" arch
22
22
23
- let is_64_bit =
23
+ let is_64_bit () =
24
24
match architecture () with
25
25
| X86_64
26
26
| AArch64
@@ -30,7 +30,7 @@ let is_64_bit =
30
30
| IA32
31
31
| ARM -> false
32
32
33
- let is_32_bit = not is_64_bit
33
+ let is_32_bit () = not ( is_64_bit () )
34
34
35
35
type derived_system =
36
36
| Linux
Original file line number Diff line number Diff line change @@ -9,9 +9,9 @@ type architecture =
9
9
10
10
val architecture : unit -> architecture
11
11
12
- val is_64_bit : bool
12
+ val is_64_bit : unit -> bool
13
13
14
- val is_32_bit : bool
14
+ val is_32_bit : unit -> bool
15
15
16
16
type derived_system =
17
17
| Linux
You can’t perform that action at this time.
0 commit comments