Remove class_type from typed tree.

Author: cristianoc

jscomp/ml/typedtree.ml

@@ -422,14 +422,6 @@ and extension_constructor_kind =
     Text_decl of constructor_arguments * core_type option
   | Text_rebind of Path.t * Longident.t loc
 
-and class_type =
-    {
-     cltyp_type: Types.class_type;
-     cltyp_env: Env.t;
-     cltyp_loc: Location.t;
-     cltyp_attributes: attribute list;
-    }
-
 (* Auxiliary functions over the a.s.t. *)
 
 let iter_pattern_desc f = function

jscomp/ml/typedtree.mli

@@ -540,14 +540,6 @@ and extension_constructor_kind =
     Text_decl of constructor_arguments * core_type option
   | Text_rebind of Path.t * Longident.t loc
 
-and class_type =
-    {
-     cltyp_type: Types.class_type;
-     cltyp_env: Env.t;
-     cltyp_loc: Location.t;
-     cltyp_attributes: attributes;
-    }
-
 (* Auxiliary functions over the a.s.t. *)
 
 val iter_pattern_desc: (pattern -> unit) -> pattern_desc -> unit

jscomp/ml/typedtreeIter.ml

@@ -38,7 +38,6 @@ module type IteratorArgument = sig
     val enter_module_expr : module_expr -> unit
     val enter_with_constraint : with_constraint -> unit
 
-    val enter_class_type : class_type -> unit
     val enter_core_type : core_type -> unit
     val enter_structure_item : structure_item -> unit
 
@@ -57,7 +56,6 @@ module type IteratorArgument = sig
     val leave_module_expr : module_expr -> unit
     val leave_with_constraint : with_constraint -> unit
 
-    val leave_class_type : class_type -> unit
     val leave_core_type : core_type -> unit
     val leave_structure_item : structure_item -> unit
 
@@ -491,7 +489,6 @@ module DefaultIteratorArgument = struct
       let enter_module_expr _ = ()
       let enter_with_constraint _ = ()
 
-      let enter_class_type _ = ()
       let enter_core_type _ = ()
     let enter_structure_item _ = ()
 
@@ -510,7 +507,6 @@ module DefaultIteratorArgument = struct
       let leave_module_expr _ = ()
       let leave_with_constraint _ = ()
 
-      let leave_class_type _ = ()
       let leave_core_type _ = ()
     let leave_structure_item _ = ()
 

jscomp/ml/typedtreeIter.mli

@@ -31,7 +31,6 @@ module type IteratorArgument = sig
     val enter_module_type : module_type -> unit
     val enter_module_expr : module_expr -> unit
     val enter_with_constraint : with_constraint -> unit
-    val enter_class_type : class_type -> unit
     val enter_core_type : core_type -> unit
     val enter_structure_item : structure_item -> unit
 
@@ -49,7 +48,6 @@ module type IteratorArgument = sig
     val leave_module_type : module_type -> unit
     val leave_module_expr : module_expr -> unit
     val leave_with_constraint : with_constraint -> unit
-    val leave_class_type : class_type -> unit
     val leave_core_type : core_type -> unit
     val leave_structure_item : structure_item -> unit
 

jscomp/ml/typedtreeMap.ml

@@ -33,7 +33,6 @@ module type MapArgument = sig
   val enter_module_expr : module_expr -> module_expr
   val enter_with_constraint : with_constraint -> with_constraint
 
-  val enter_class_type : class_type -> class_type
   val enter_core_type : core_type -> core_type
   val enter_structure_item : structure_item -> structure_item
 
@@ -54,7 +53,6 @@ module type MapArgument = sig
   val leave_module_expr : module_expr -> module_expr
   val leave_with_constraint : with_constraint -> with_constraint
 
-  val leave_class_type : class_type -> class_type
   val leave_core_type : core_type -> core_type
   val leave_structure_item : structure_item -> structure_item
 
@@ -536,7 +534,6 @@ module DefaultMapArgument = struct
   let enter_module_expr t = t
   let enter_with_constraint t = t
 
-  let enter_class_type t = t
   let enter_core_type t = t
   let enter_structure_item t = t
 
@@ -556,7 +553,6 @@ module DefaultMapArgument = struct
   let leave_module_expr t = t
   let leave_with_constraint t = t
 
-  let leave_class_type t = t
   let leave_core_type t = t
   let leave_structure_item t = t
 

jscomp/ml/typedtreeMap.mli

@@ -32,7 +32,6 @@ module type MapArgument = sig
   val enter_module_type : module_type -> module_type
   val enter_module_expr : module_expr -> module_expr
   val enter_with_constraint : with_constraint -> with_constraint
-  val enter_class_type : class_type -> class_type
   val enter_core_type : core_type -> core_type
   val enter_structure_item : structure_item -> structure_item
 
@@ -52,7 +51,6 @@ module type MapArgument = sig
   val leave_module_type : module_type -> module_type
   val leave_module_expr : module_expr -> module_expr
   val leave_with_constraint : with_constraint -> with_constraint
-  val leave_class_type : class_type -> class_type
   val leave_core_type : core_type -> core_type
   val leave_structure_item : structure_item -> structure_item