Skip to content

Commit c1231e0

Browse files
authored
flambda-backend: Fix "make bootstrap" and bootstrap (#1991)
* Fix Target_system for arch=none which happens during bootstrap * make bootstrap
1 parent b676838 commit c1231e0

File tree

4 files changed

+4
-4
lines changed

4 files changed

+4
-4
lines changed

boot/ocamlc

-4.33 KB
Binary file not shown.

boot/ocamllex

113 Bytes
Binary file not shown.

utils/target_system.ml

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -20,7 +20,7 @@ let architecture () : architecture =
2020
| "riscv" -> Riscv
2121
| arch -> Misc.fatal_errorf "Unknown architecture `%s'" arch
2222

23-
let is_64_bit =
23+
let is_64_bit () =
2424
match architecture () with
2525
| X86_64
2626
| AArch64
@@ -30,7 +30,7 @@ let is_64_bit =
3030
| IA32
3131
| ARM -> false
3232

33-
let is_32_bit = not is_64_bit
33+
let is_32_bit () = not (is_64_bit ())
3434

3535
type derived_system =
3636
| Linux

utils/target_system.mli

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -9,9 +9,9 @@ type architecture =
99

1010
val architecture : unit -> architecture
1111

12-
val is_64_bit : bool
12+
val is_64_bit : unit -> bool
1313

14-
val is_32_bit : bool
14+
val is_32_bit : unit -> bool
1515

1616
type derived_system =
1717
| Linux

0 commit comments

Comments
 (0)