oxcaml · mshinwell · Nov 18, 2021 · Nov 18, 2021
diff --git a/backend/asmgen.ml b/backend/asmgen.ml
@@ -222,14 +222,14 @@ let compile_fundecl ~ppf_dump fd_cmm =
   ++ Profile.record ~accumulate:true "linearize" (fun (f : Mach.fundecl) ->
       let res = Linearize.fundecl f in
       (* CR xclerc for xclerc: temporary, for testing. *)
-      if !Flambda_backend_flags.use_ocamlcfg then begin
+      if !Clflags.use_ocamlcfg then begin
         test_cfgize f res;
       end;
       res)
   ++ pass_dump_linear_if ppf_dump dump_linear "Linearized code"
   ++ Compiler_hooks.execute_and_pipe Compiler_hooks.Linear
   ++ (fun (fd : Linear.fundecl) ->
-    if !Flambda_backend_flags.use_ocamlcfg then begin
+    if !use_ocamlcfg then begin
       fd
       ++ Profile.record ~accumulate:true "linear_to_cfg"
            (Linear_to_cfg.run ~preserve_orig_labels:true)

diff --git a/driver/flambda_backend_args.ml b/driver/flambda_backend_args.ml
diff --git a/driver/flambda_backend_args.mli b/driver/flambda_backend_args.mli
diff --git a/driver/flambda_backend_flags.ml b/driver/flambda_backend_flags.ml