Rename stop_after_pass_names to available_pass_names

driver/compenv.ml

@@ -432,7 +432,7 @@ let read_one_param ppf position name v =
 
   | "stop-after" ->
     let module P = Clflags.Compiler_pass in
-    let passes = P.stop_after_pass_names ~native:!native_code in
+    let passes = P.available_pass_names ~native:!native_code in
     begin match List.find_opt (String.equal v) passes with
     | None ->
         Printf.ksprintf (print_error ppf)

driver/main.ml

@@ -70,7 +70,7 @@ let main () =
           "Options -i and -stop-after (%s) \
            are  incompatible with -pack, -a, -output-obj"
           (String.concat "|"
-             (Clflags.Compiler_pass.stop_after_pass_names ~native:false))
+             (Clflags.Compiler_pass.available_pass_names ~native:false))
       | Some P.Scheduling -> assert false (* native only *)
     end;
     if !make_archive then begin

driver/main_args.ml

@@ -108,7 +108,7 @@ let mk_function_sections f =
 
 let mk_stop_after ~native f =
   "-stop-after",
-  Arg.Symbol (Clflags.Compiler_pass.stop_after_pass_names ~native, f),
+  Arg.Symbol (Clflags.Compiler_pass.available_pass_names ~native, f),
   " Stop after the given compilation pass."
 ;;
 

driver/optmain.ml

@@ -88,7 +88,7 @@ let main () =
           "Options -i and -stop-after (%s) \
            are  incompatible with -pack, -a, -shared, -output-obj"
           (String.concat "|"
-             (Clflags.Compiler_pass.stop_after_pass_names ~native:true))
+             (Clflags.Compiler_pass.available_pass_names ~native:true))
     end;
     if !make_archive then begin
       Compmisc.init_path ();

utils/clflags.ml

@@ -450,13 +450,10 @@ module Compiler_pass = struct
 
   let enabled is_native t = not (is_native_only t) || is_native
 
-  let pass_names is_native =
+  let available_pass_names ~native =
     passes
-    |> List.filter (enabled is_native)
+    |> List.filter (enabled native)
     |> List.map to_string
-
-  let stop_after_pass_names ~native =
-    pass_names native
 end
 
 let stop_after = ref None (* -stop-after *)

utils/clflags.mli

@@ -239,7 +239,7 @@ module Compiler_pass : sig
   val of_string : string -> t option
   val to_string : t -> string
   val is_compilation_pass : t -> bool
-  val stop_after_pass_names : native:bool -> string list
+  val available_pass_names : native:bool -> string list
 end
 val stop_after : Compiler_pass.t option ref
 val should_stop_after : Compiler_pass.t -> bool