From 610d523ebec8258a1009d26463077e7ec598fa94 Mon Sep 17 00:00:00 2001
From: Antonio Nuno Monteiro <anmonteiro@gmail.com>
Date: Thu, 26 Oct 2023 19:00:17 -0700
Subject: [PATCH] chore(build): delete unused compiler pass

---
 jscomp/core/lam_compile_main.cppo.ml |  2 --
 jscomp/core/lam_group_pass.ml        | 35 ----------------------------
 2 files changed, 37 deletions(-)
 delete mode 100644 jscomp/core/lam_group_pass.ml

diff --git a/jscomp/core/lam_compile_main.cppo.ml b/jscomp/core/lam_compile_main.cppo.ml
index 33529833f8..0c2fc33126 100644
--- a/jscomp/core/lam_compile_main.cppo.ml
+++ b/jscomp/core/lam_compile_main.cppo.ml
@@ -190,8 +190,6 @@ let compile
     |> _d "before-simplify-exits"
     (* |> (fun lam -> Lam_pass_collect.collect_info meta lam
        ; Lam_pass_remove_alias.simplify_alias meta lam) *)
-    (* |> Lam_group_pass.scc_pass
-       |> _d "scc" *)
     |> Lam_pass_exits.simplify_exits
     |> _d "simplify_lets"
 #ifndef BS_RELEASE_BUILD
diff --git a/jscomp/core/lam_group_pass.ml b/jscomp/core/lam_group_pass.ml
deleted file mode 100644
index a6a23aac20..0000000000
--- a/jscomp/core/lam_group_pass.ml
+++ /dev/null
@@ -1,35 +0,0 @@
-(*type bindings = (Ident.t * Lam.t) list
-  let scc  (groups :  bindings)
-      (lam : Lam.t)
-      (body : Lam.t)
-      (cont : bindings -> Lam.t-> Lam.t) =
-    let domain = Ordered_hash_map.create 3 in
-    List.iter (fun (x,lam) -> Ordered_hash_map.add domain x lam) groups ;
-    let int_mapping = Ordered_hash_map.to_sorted_array domain in
-    let node_vec = Array.make (Array.length int_mapping) (Vec_int.empty ()) in
-    Ordered_hash_map.iter ( fun id lam key_index ->
-        let base_key =  node_vec.(key_index) in
-        let free_vars = Lam_util.free_variables lam in
-        Set_ident.iter (fun x ->
-            let key = Ordered_hash_map.find domain x in
-            if key >= 0 then
-              Vec_int.push key base_key
-          ) free_vars
-      ) domain;
-    let clusters = Ext_scc.graph node_vec in
-    if Int_vec_vec.length clusters <= 1 then lam
-    else
-      Int_vec_vec.fold_right (fun  (v : Vec_int.t) acc ->
-          cont (Vec_int.map_into_list (fun i ->
-              let id = int_mapping.(i) in
-              let lam  = Ordered_hash_map.find_value domain  id in
-              (id,lam)
-          ) v )  acc
-        )  clusters body
-*)
-
-let rec scc_pass (lam : Lam.t) =
-  let lam = Lam.inner_map lam scc_pass in
-  match lam with
-  | Lletrec (bindings, body) -> Lam_scc.scc bindings lam body
-  | _ -> lam