Remove class_type_field.

Author: cristianoc

jscomp/ml/typedtree.ml

@@ -439,23 +439,9 @@ and class_type_desc =
 
 and class_signature = {
     csig_self: core_type;
-    csig_fields: class_type_field list;
     csig_type: Types.class_signature;
   }
 
-and class_type_field = {
-    ctf_desc: class_type_field_desc;
-    ctf_loc: Location.t;
-    ctf_attributes: attribute list;
-  }
-
-and class_type_field_desc =
-  | Tctf_inherit of class_type
-  | Tctf_val of (string * mutable_flag * virtual_flag * core_type)
-  | Tctf_method of (string * private_flag * virtual_flag * core_type)
-  | Tctf_constraint of (core_type * core_type)
-  | Tctf_attribute of attribute
-
 (* Auxiliary functions over the a.s.t. *)
 
 let iter_pattern_desc f = function

jscomp/ml/typedtree.mli

@@ -557,23 +557,9 @@ and class_type_desc =
 
 and class_signature = {
     csig_self : core_type;
-    csig_fields : class_type_field list;
     csig_type : Types.class_signature;
   }
 
-and class_type_field = {
-    ctf_desc: class_type_field_desc;
-    ctf_loc: Location.t;
-    ctf_attributes: attributes;
-  }
-
-and class_type_field_desc =
-  | Tctf_inherit of class_type
-  | Tctf_val of (string * mutable_flag * virtual_flag * core_type)
-  | Tctf_method of (string * private_flag * virtual_flag * core_type)
-  | Tctf_constraint of (core_type * core_type)
-  | Tctf_attribute of attribute
-
 (* Auxiliary functions over the a.s.t. *)
 
 val iter_pattern_desc: (pattern -> unit) -> pattern_desc -> unit

jscomp/ml/typedtreeIter.ml

@@ -40,7 +40,6 @@ module type IteratorArgument = sig
     val enter_class_signature : class_signature -> unit
 
     val enter_class_type : class_type -> unit
-    val enter_class_type_field : class_type_field -> unit
     val enter_core_type : core_type -> unit
     val enter_structure_item : structure_item -> unit
 
@@ -61,7 +60,6 @@ module type IteratorArgument = sig
     val leave_class_signature : class_signature -> unit
 
     val leave_class_type : class_type -> unit
-    val leave_class_type_field : class_type_field -> unit
     val leave_core_type : core_type -> unit
     val leave_structure_item : structure_item -> unit
 
@@ -497,7 +495,6 @@ module DefaultIteratorArgument = struct
       let enter_class_signature _ = ()
 
       let enter_class_type _ = ()
-      let enter_class_type_field _ = ()
       let enter_core_type _ = ()
     let enter_structure_item _ = ()
 
@@ -518,7 +515,6 @@ module DefaultIteratorArgument = struct
       let leave_class_signature _ = ()
 
       let leave_class_type _ = ()
-      let leave_class_type_field _ = ()
       let leave_core_type _ = ()
     let leave_structure_item _ = ()
 

jscomp/ml/typedtreeIter.mli

@@ -33,7 +33,6 @@ module type IteratorArgument = sig
     val enter_with_constraint : with_constraint -> unit
     val enter_class_signature : class_signature -> unit
     val enter_class_type : class_type -> unit
-    val enter_class_type_field : class_type_field -> unit
     val enter_core_type : core_type -> unit
     val enter_structure_item : structure_item -> unit
 
@@ -53,7 +52,6 @@ module type IteratorArgument = sig
     val leave_with_constraint : with_constraint -> unit
     val leave_class_signature : class_signature -> unit
     val leave_class_type : class_type -> unit
-    val leave_class_type_field : class_type_field -> unit
     val leave_core_type : core_type -> unit
     val leave_structure_item : structure_item -> unit
 

jscomp/ml/typedtreeMap.ml

@@ -35,7 +35,6 @@ module type MapArgument = sig
   val enter_class_signature : class_signature -> class_signature
 
   val enter_class_type : class_type -> class_type
-  val enter_class_type_field : class_type_field -> class_type_field
   val enter_core_type : core_type -> core_type
   val enter_structure_item : structure_item -> structure_item
 
@@ -58,7 +57,6 @@ module type MapArgument = sig
   val leave_class_signature : class_signature -> class_signature
 
   val leave_class_type : class_type -> class_type
-  val leave_class_type_field : class_type_field -> class_type_field
   val leave_core_type : core_type -> core_type
   val leave_structure_item : structure_item -> structure_item
 
@@ -542,7 +540,6 @@ module DefaultMapArgument = struct
   let enter_class_signature t = t
 
   let enter_class_type t = t
-  let enter_class_type_field t = t
   let enter_core_type t = t
   let enter_structure_item t = t
 
@@ -564,7 +561,6 @@ module DefaultMapArgument = struct
   let leave_class_signature t = t
 
   let leave_class_type t = t
-  let leave_class_type_field t = t
   let leave_core_type t = t
   let leave_structure_item t = t
 

jscomp/ml/typedtreeMap.mli

@@ -34,7 +34,6 @@ module type MapArgument = sig
   val enter_with_constraint : with_constraint -> with_constraint
   val enter_class_signature : class_signature -> class_signature
   val enter_class_type : class_type -> class_type
-  val enter_class_type_field : class_type_field -> class_type_field
   val enter_core_type : core_type -> core_type
   val enter_structure_item : structure_item -> structure_item
 
@@ -56,7 +55,6 @@ module type MapArgument = sig
   val leave_with_constraint : with_constraint -> with_constraint
   val leave_class_signature : class_signature -> class_signature
   val leave_class_type : class_type -> class_type
-  val leave_class_type_field : class_type_field -> class_type_field
   val leave_core_type : core_type -> core_type
   val leave_structure_item : structure_item -> structure_item