remove unused code

- support mly, no blacklist any more since they are already removed

Author: bobzhang

jscomp/core/js_implementation.ml

@@ -80,10 +80,7 @@ let after_parsing_sig ppf  outputprefix ast  =
       Lam_compile_env.reset () ;
       let initial_env = Res_compmisc.initial_env () in
       Env.set_unit_name modulename;
-
-      let tsg = Typemod.type_interface 
-          !Location.input_name
-          initial_env ast in
+      let tsg = Typemod.transl_signature initial_env ast in
       if !Clflags.dump_typedtree then fprintf ppf "%a@." Printtyped.interface tsg;
       let sg = tsg.sig_type in
       if !Clflags.print_types then

jscomp/core/lam_convert.ml

@@ -204,7 +204,6 @@ let convert_record_repr ( x : Types.record_representation)
 
 let lam_prim ~primitive:( p : Lambda.primitive) ~args loc : Lam.t =
   match p with
-  | Pint_as_pointer
   | Pidentity -> Ext_list.singleton_exn args 
   | Pccall _ -> assert false
   | Prevapply -> assert false
@@ -469,22 +468,6 @@ let lam_prim ~primitive:( p : Lambda.primitive) ~args loc : Lam.t =
       | Pint32 -> prim ~primitive:(Pasrint) ~args loc
       | Pint64 -> prim ~primitive:(Pasrint64) ~args loc
     end
-  | Pbigarraydim _ 
-  | Pbigstring_load_16 _
-  | Pbigstring_load_32 _
-  | Pbigstring_load_64 _
-  | Pbigstring_set_16 _
-  | Pbigstring_set_32 _
-  | Pbigstring_set_64 _
-  | Pstring_load_16 _
-  | Pstring_load_32 _
-  | Pstring_load_64 _
-  | Pstring_set_16 _ 
-  | Pstring_set_32 _ 
-  | Pbigarrayref _
-  | Pbigarrayset _
-  | Pstring_set_64 _ -> 
-    Location.raise_errorf ~loc "unsupported primitive"
   | Pctconst x ->
     begin match x with
       | Word_size 
@@ -525,9 +508,6 @@ let lam_prim ~primitive:( p : Lambda.primitive) ~args loc : Lam.t =
   | Popaque -> Ext_list.singleton_exn args      
   | Psetfield_computed _ ->  
     prim ~primitive:Psetfield_computed ~args loc 
-  | Pbbswap _
-  | Pbswap16 
-  | Pbittest
   | Pduparray _ ->  assert false 
 (* Does not exist since we compile array in js backend unlike native backend *)
 
@@ -833,10 +813,7 @@ let convert (exports : Set_ident.t) (lam : Lambda.lambda) : Lam.t * Lam_module_i
           (Ext_list.map meth_args convert_aux) {ap_loc = loc; ap_inlined = Default_inline; ap_status = App_na}             
 
     | Lsend _ -> assert false  
-    | Levent _ ->
-      (* disabled by upstream*)
-      assert false
-    | Lifused (_, _) -> assert false
+
 
   and convert_let (kind : Lam_compat.let_kind) id (e : Lambda.lambda) body : Lam.t = 
     match kind, e with

jscomp/frontend/bs_ast_mapper.ml

@@ -337,7 +337,7 @@ module M = struct
     | Pstr_recmodule l -> rec_module ~loc (List.map (sub.module_binding sub) l)
     | Pstr_modtype x -> modtype ~loc (sub.module_type_declaration sub x)
     | Pstr_open x -> open_ ~loc (sub.open_description sub x)
-    | Pstr_class l -> class_ ~loc (List.map (sub.class_declaration sub) l)
+    | Pstr_class () -> {pstr_loc = loc; pstr_desc =  Pstr_class ()}
     | Pstr_class_type l ->
       class_type ~loc (List.map (sub.class_type_declaration sub) l)
     | Pstr_include x -> include_ ~loc (sub.include_declaration sub x)

jscomp/test/debug_tmp.ml

@@ -8,6 +8,7 @@
     (* "-bs-diagnose"; *)
     "-dparsetree";
     (* "-dsource"; *)
+    (* "-bs-no-builtin-ppx"; *)
   |]
 }]
 

lib/4.06.1/unstable/all_ounit_tests.ml

@@ -12110,11 +12110,6 @@ let parse_options errflag s =
 let defaults_w = "+a-4-6-7-9-27-29-32..42-44-45-48-50-60-102-109";;
 let defaults_warn_error = "-a+31";;
 
-let () = 
-  if not !Config.bs_only then (
-    parse_options false defaults_w;
-    parse_options true defaults_warn_error;
-  )
 
 let message = function
   | Comment_start -> "this is the start of a comment."

lib/4.06.1/unstable/bspack.ml

@@ -3658,11 +3658,6 @@ let parse_options errflag s =
 let defaults_w = "+a-4-6-7-9-27-29-32..42-44-45-48-50-60-102-109";;
 let defaults_warn_error = "-a+31";;
 
-let () = 
-  if not !Config.bs_only then (
-    parse_options false defaults_w;
-    parse_options true defaults_warn_error;
-  )
 
 let message = function
   | Comment_start -> "this is the start of a comment."