We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 0bf75de commit 524f0b4Copy full SHA for 524f0b4
utils/target_system.ml
@@ -20,6 +20,18 @@ let architecture () : architecture =
20
| "riscv" -> Riscv
21
| arch -> Misc.fatal_errorf "Unknown architecture `%s'" arch
22
23
+let is_64_bit =
24
+ match architecture () with
25
+ | X86_64
26
+ | AArch64
27
+ | POWER
28
+ | Z
29
+ | Riscv -> true
30
+ | IA32
31
+ | ARM -> false
32
+
33
+let is_32_bit = not is_64_bit
34
35
type derived_system =
36
| Linux
37
| MinGW_32
utils/target_system.mli
@@ -9,6 +9,10 @@ type architecture =
9
10
val architecture : unit -> architecture
11
12
+val is_64_bit : bool
13
14
+val is_32_bit : bool
15
16
17
18
0 commit comments