Fix build

ocaml-flambda · Jun 15, 2023 · cb8c52c · cb8c52c
1 parent 07e66f8
commit cb8c52c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/backend/regalloc/regalloc_split_state.ml b/backend/regalloc/regalloc_split_state.ml
@@ -220,7 +220,7 @@ end = struct
           | Some At_least_twice -> ())
     in
     let num_sets =
-      fold_blocks cfg_with_liveness ~init:(Reg.Tbl.create 123)
+      Cfg_with_liveness.fold_blocks cfg_with_liveness ~init:(Reg.Tbl.create 123)
         ~f:(fun label block acc ->
           let in_loop : bool = is_in_loop loops label in
           if split_debug then log ~indent:1 "block %d in_loop? %B" label in_loop;