Skip to content

Instantly share code, notes, and snippets.

@cristianoc
Last active March 27, 2020 05:09
Show Gist options
  • Save cristianoc/781ebe278935c31ef1119c98bc4d1e62 to your computer and use it in GitHub Desktop.
Save cristianoc/781ebe278935c31ef1119c98bc4d1e62 to your computer and use it in GitHub Desktop.
Warning Dead Value With Side Effects
whole_compiler.ml 2173:7
Numbers.Int16.+lower_int64 is never used and could have side effects
<-- line 2173
let lower_int64 = Int64.neg (Int64.shift_left Int64.one 15) [@@dead "Numbers.Int16.+lower_int64"]
Warning Dead Value With Side Effects
whole_compiler.ml 2174:7
Numbers.Int16.+upper_int64 is never used and could have side effects
<-- line 2174
let upper_int64 = Int64.sub (Int64.shift_left Int64.one 15) Int64.one [@@dead "Numbers.Int16.+upper_int64"]
Warning Dead Value With Side Effects
whole_compiler.ml 2570:5
Profile.+column_names is never used and could have side effects
<-- line 2570
let column_names = List.map fst column_mapping [@@dead "Profile.+column_names"]
Warning Dead Value With Side Effects
whole_compiler.ml 2572:5
Profile.+options_doc is never used and could have side effects
<-- line 2572
(String.concat " " column_names) [@@dead "Profile.+options_doc"]
Warning Dead Value With Side Effects
whole_compiler.ml 2873:5
Clflags.+objfiles is never used and could have side effects
<-- line 2873
let objfiles = ref ([] : string list) [@@dead "Clflags.+objfiles"] (* .cmo and .cma files *)
Warning Dead Value With Side Effects
whole_compiler.ml 2875:5
Clflags.+dllibs is never used and could have side effects
<-- line 2875
and dllibs = ref ([] : string list) [@@dead "Clflags.+dllibs"] (* .so and -dllib -lxxx *)
Warning Dead Value With Side Effects
whole_compiler.ml 2882:5
Clflags.+make_archive is never used and could have side effects
<-- line 2882
and make_archive = ref false [@@dead "Clflags.+make_archive"] (* -a *)
Warning Dead Value With Side Effects
whole_compiler.ml 2885:5
Clflags.+use_linscan is never used and could have side effects
<-- line 2885
and use_linscan = ref false [@@dead "Clflags.+use_linscan"] (* -linscan *)
Warning Dead Value With Side Effects
whole_compiler.ml 2887:5
Clflags.+custom_runtime is never used and could have side effects
<-- line 2887
and custom_runtime = ref false [@@dead "Clflags.+custom_runtime"] (* -custom *)
Warning Dead Value With Side Effects
whole_compiler.ml 2888:5
Clflags.+no_check_prims is never used and could have side effects
<-- line 2888
and no_check_prims = ref false [@@dead "Clflags.+no_check_prims"] (* -no-check-prims *)
Warning Dead Value With Side Effects
whole_compiler.ml 2890:5
Clflags.+output_c_object is never used and could have side effects
<-- line 2890
and output_c_object = ref false [@@dead "Clflags.+output_c_object"] (* -output-obj *)
Warning Dead Value With Side Effects
whole_compiler.ml 2891:5
Clflags.+output_complete_object is never used and could have side effects
<-- line 2891
and output_complete_object = ref false [@@dead "Clflags.+output_complete_object"] (* -output-complete-obj *)
Warning Dead Value With Side Effects
whole_compiler.ml 2903:5
Clflags.+noversion is never used and could have side effects
<-- line 2903
and noversion = ref false [@@dead "Clflags.+noversion"] (* -no-version *)
Warning Dead Value With Side Effects
whole_compiler.ml 2904:5
Clflags.+noprompt is never used and could have side effects
<-- line 2904
and noprompt = ref false [@@dead "Clflags.+noprompt"] (* -noprompt *)
Warning Dead Value With Side Effects
whole_compiler.ml 2905:5
Clflags.+nopromptcont is never used and could have side effects
<-- line 2905
and nopromptcont = ref false [@@dead "Clflags.+nopromptcont"] (* -nopromptcont *)
Warning Dead Value With Side Effects
whole_compiler.ml 2906:5
Clflags.+init_file is never used and could have side effects
<-- line 2906
and init_file = ref (None : string option) [@@dead "Clflags.+init_file"] (* -init *)
Warning Dead Value With Side Effects
whole_compiler.ml 2907:5
Clflags.+noinit is never used and could have side effects
<-- line 2907
and noinit = ref false [@@dead "Clflags.+noinit"] (* -noinit *)
Warning Dead Value With Side Effects
whole_compiler.ml 2909:5
Clflags.+use_prims is never used and could have side effects
<-- line 2909
and use_prims = ref "" [@@dead "Clflags.+use_prims"] (* -use-prims ... *)
Warning Dead Value With Side Effects
whole_compiler.ml 2910:5
Clflags.+use_runtime is never used and could have side effects
<-- line 2910
and use_runtime = ref "" [@@dead "Clflags.+use_runtime"] (* -use-runtime ... *)
Warning Dead Value With Side Effects
whole_compiler.ml 2917:5
Clflags.+make_runtime is never used and could have side effects
<-- line 2917
and make_runtime = ref false [@@dead "Clflags.+make_runtime"] (* -make-runtime *)
Warning Dead Value With Side Effects
whole_compiler.ml 2921:5
Clflags.+dllpaths is never used and could have side effects
<-- line 2921
and dllpaths = ref ([] : string list) [@@dead "Clflags.+dllpaths"] (* -dllpath *)
Warning Dead Value With Side Effects
whole_compiler.ml 2922:5
Clflags.+make_package is never used and could have side effects
<-- line 2922
and make_package = ref false [@@dead "Clflags.+make_package"] (* -pack *)
Warning Dead Value With Side Effects
whole_compiler.ml 2925:5
Clflags.+float_const_prop is never used and could have side effects
<-- line 2925
and float_const_prop = ref true [@@dead "Clflags.+float_const_prop"] (* -no-float-const-prop *)
Warning Dead Value With Side Effects
whole_compiler.ml 2932:5
Clflags.+dump_rawclambda is never used and could have side effects
<-- line 2932
and dump_rawclambda = ref false [@@dead "Clflags.+dump_rawclambda"] (* -drawclambda *)
Warning Dead Value With Side Effects
whole_compiler.ml 2933:5
Clflags.+dump_clambda is never used and could have side effects
<-- line 2933
and dump_clambda = ref false [@@dead "Clflags.+dump_clambda"] (* -dclambda *)
Warning Dead Value With Side Effects
whole_compiler.ml 2934:5
Clflags.+dump_rawflambda is never used and could have side effects
<-- line 2934
and dump_rawflambda = ref false [@@dead "Clflags.+dump_rawflambda"] (* -drawflambda *)
Warning Dead Value With Side Effects
whole_compiler.ml 2935:5
Clflags.+dump_flambda is never used and could have side effects
<-- line 2935
and dump_flambda = ref false [@@dead "Clflags.+dump_flambda"] (* -dflambda *)
Warning Dead Value With Side Effects
whole_compiler.ml 2936:5
Clflags.+dump_flambda_let is never used and could have side effects
<-- line 2936
and dump_flambda_let = ref (None : int option) [@@dead "Clflags.+dump_flambda_let"] (* -dflambda-let=... *)
Warning Dead Value With Side Effects
whole_compiler.ml 2938:5
Clflags.+dump_instr is never used and could have side effects
<-- line 2938
and dump_instr = ref false [@@dead "Clflags.+dump_instr"] (* -dinstr *)
Warning Dead Value With Side Effects
whole_compiler.ml 2944:5
Clflags.+dump_cmm is never used and could have side effects
<-- line 2944
and dump_cmm = ref false [@@dead "Clflags.+dump_cmm"] (* -dcmm *)
Warning Dead Value With Side Effects
whole_compiler.ml 2945:5
Clflags.+dump_selection is never used and could have side effects
<-- line 2945
let dump_selection = ref false [@@dead "Clflags.+dump_selection"] (* -dsel *)
Warning Dead Value With Side Effects
whole_compiler.ml 2946:5
Clflags.+dump_cse is never used and could have side effects
<-- line 2946
let dump_cse = ref false [@@dead "Clflags.+dump_cse"] (* -dcse *)
Warning Dead Value With Side Effects
whole_compiler.ml 2947:5
Clflags.+dump_live is never used and could have side effects
<-- line 2947
let dump_live = ref false [@@dead "Clflags.+dump_live"] (* -dlive *)
Warning Dead Value With Side Effects
whole_compiler.ml 2948:5
Clflags.+dump_avail is never used and could have side effects
<-- line 2948
let dump_avail = ref false [@@dead "Clflags.+dump_avail"] (* -davail *)
Warning Dead Value With Side Effects
whole_compiler.ml 2949:5
Clflags.+dump_spill is never used and could have side effects
<-- line 2949
let dump_spill = ref false [@@dead "Clflags.+dump_spill"] (* -dspill *)
Warning Dead Value With Side Effects
whole_compiler.ml 2950:5
Clflags.+dump_split is never used and could have side effects
<-- line 2950
let dump_split = ref false [@@dead "Clflags.+dump_split"] (* -dsplit *)
Warning Dead Value With Side Effects
whole_compiler.ml 2951:5
Clflags.+dump_interf is never used and could have side effects
<-- line 2951
let dump_interf = ref false [@@dead "Clflags.+dump_interf"] (* -dinterf *)
Warning Dead Value With Side Effects
whole_compiler.ml 2952:5
Clflags.+dump_prefer is never used and could have side effects
<-- line 2952
let dump_prefer = ref false [@@dead "Clflags.+dump_prefer"] (* -dprefer *)
Warning Dead Value With Side Effects
whole_compiler.ml 2953:5
Clflags.+dump_regalloc is never used and could have side effects
<-- line 2953
let dump_regalloc = ref false [@@dead "Clflags.+dump_regalloc"] (* -dalloc *)
Warning Dead Value With Side Effects
whole_compiler.ml 2954:5
Clflags.+dump_reload is never used and could have side effects
<-- line 2954
let dump_reload = ref false [@@dead "Clflags.+dump_reload"] (* -dreload *)
Warning Dead Value With Side Effects
whole_compiler.ml 2955:5
Clflags.+dump_scheduling is never used and could have side effects
<-- line 2955
let dump_scheduling = ref false [@@dead "Clflags.+dump_scheduling"] (* -dscheduling *)
Warning Dead Value With Side Effects
whole_compiler.ml 2956:5
Clflags.+dump_linear is never used and could have side effects
<-- line 2956
let dump_linear = ref false [@@dead "Clflags.+dump_linear"] (* -dlinear *)
Warning Dead Value With Side Effects
whole_compiler.ml 2957:5
Clflags.+dump_interval is never used and could have side effects
<-- line 2957
let dump_interval = ref false [@@dead "Clflags.+dump_interval"] (* -dinterval *)
Warning Dead Value With Side Effects
whole_compiler.ml 2959:5
Clflags.+dump_combine is never used and could have side effects
<-- line 2959
let dump_combine = ref false [@@dead "Clflags.+dump_combine"] (* -dcombine *)
Warning Dead Value With Side Effects
whole_compiler.ml 2962:5
Clflags.+debug_runavail is never used and could have side effects
<-- line 2962
let debug_runavail = ref false [@@dead "Clflags.+debug_runavail"] (* -drunavail *)
Warning Dead Value With Side Effects
whole_compiler.ml 2982:5
Clflags.+shared is never used and could have side effects
<-- line 2982
let shared = ref false [@@dead "Clflags.+shared"] (* -shared *)
Warning Dead Value With Side Effects
whole_compiler.ml 3045:5
Clflags.+unbox_specialised_args is never used and could have side effects
<-- line 3045
let unbox_specialised_args = ref true [@@dead "Clflags.+unbox_specialised_args"] (* -no-unbox-specialised-args *)
Warning Dead Value With Side Effects
whole_compiler.ml 3046:5
Clflags.+unbox_free_vars_of_closures is never used and could have side effects
<-- line 3046
let unbox_free_vars_of_closures = ref true [@@dead "Clflags.+unbox_free_vars_of_closures"]
Warning Dead Value With Side Effects
whole_compiler.ml 3131:5
Clflags.+classic_arguments is never used and could have side effects
<-- line 3131
} [@@dead "Clflags.+classic_arguments"]
Warning Dead Value With Side Effects
whole_compiler.ml 3177:5
Clflags.+all_passes is never used and could have side effects
<-- line 3177
let all_passes = ref [] [@@dead "Clflags.+all_passes"]
Warning Dead Value With Side Effects
whole_compiler.ml 3178:5
Clflags.+dumped_passes_list is never used and could have side effects
<-- line 3178
let dumped_passes_list = ref [] [@@dead "Clflags.+dumped_passes_list"]
Warning Dead Value With Side Effects
whole_compiler.ml 3204:5
Clflags.+arg_spec is never used and could have side effects
<-- line 3204
let arg_spec = ref [] [@@dead "Clflags.+arg_spec"]
Warning Dead Value With Side Effects
whole_compiler.ml 3205:5
Clflags.+arg_names is never used and could have side effects
<-- line 3205
let arg_names = ref Misc.StringMap.empty [@@dead "Clflags.+arg_names"]
Warning Dead Value With Side Effects
whole_compiler.ml 293352:7
Ast_literal.No_loc.+type_any is never used and could have side effects
<-- line 293352
let type_any = Ast_helper.Typ.any () [@@dead "Ast_literal.No_loc.+type_any"]
Warning Dead Value With Side Effects
whole_compiler.ml 293353:7
Ast_literal.No_loc.+pat_unit is never used and could have side effects
<-- line 293353
let pat_unit = Pat.construct {txt = Lid.val_unit; loc} None [@@dead "Ast_literal.No_loc.+pat_unit"]
Warning Dead Value With Side Effects
whole_compiler.ml 298781:5
Predef.+type_bytes is never used and could have side effects
<-- line 298781
and type_bytes = newgenty (Tconstr(path_bytes, [], ref Mnil)) [@@dead "Predef.+type_bytes"]
Warning Dead Value With Side Effects
whole_compiler.ml 298796:5
Predef.+type_floatarray is never used and could have side effects
<-- line 298796
and type_floatarray = newgenty (Tconstr(path_floatarray, [], ref Mnil)) [@@dead "Predef.+type_floatarray"]
Warning Dead Value With Side Effects
whole_compiler.ml 298956:5
Predef.+builtin_values is never used and could have side effects
<-- line 298956
ident_assert_failure; ident_undefined_recursive_module ] [@@dead "Predef.+builtin_values"]
Warning Dead Value With Side Effects
whole_compiler.ml 298969:5
Predef.+builtin_idents is never used and could have side effects
<-- line 298969
let builtin_idents = List.rev !builtin_idents [@@dead "Predef.+builtin_idents"]
Warning Dead Value With Side Effects
whole_compiler.ml 300117:5
Ast_mapper.+register_function is never used and could have side effects
<-- line 300117
let register_function = ref (fun _name f -> run_main f) [@@dead "Ast_mapper.+register_function"]
Warning Dead Value With Side Effects
whole_compiler.ml 302088:5
Env.+find_cltype is never used and could have side effects
<-- line 302088
find (fun env -> env.cltypes) (fun sc -> sc.comp_cltypes) [@@dead "Env.+find_cltype"]
Warning Dead Value With Side Effects
whole_compiler.ml 303169:5
Env.+enter_extension is never used and could have side effects
<-- line 303169
and enter_extension = enter (store_extension ~check:true) [@@dead "Env.+enter_extension"]
Warning Dead Value With Side Effects
whole_compiler.ml 303175:5
Env.+enter_class is never used and could have side effects
<-- line 303175
and enter_class = enter store_class [@@dead "Env.+enter_class"]
Warning Dead Value With Side Effects
whole_compiler.ml 303176:5
Env.+enter_cltype is never used and could have side effects
<-- line 303176
and enter_cltype = enter store_cltype [@@dead "Env.+enter_cltype"]
Warning Dead Value With Side Effects
whole_compiler.ml 338052:5
Typetexp.+find_label is never used and could have side effects
<-- line 338052
find_component Env.lookup_label (fun lid -> Unbound_label lid) [@@dead "Typetexp.+find_label"]
Warning Dead Value With Side Effects
whole_compiler.ml 338659:5
Typetexp.+create_package_mty is never used and could have side effects
<-- line 338659
let create_package_mty = create_package_mty false [@@dead "Typetexp.+create_package_mty"]
Warning Dead Value With Side Effects
whole_compiler.ml 343290:5
Matching.+prim_string_notequal is never used and could have side effects
<-- line 343290
~alloc:false) [@@dead "Matching.+prim_string_notequal"]
Warning Dead Value With Side Effects
whole_compiler.ml 343296:5
Matching.+prim_string_compare is never used and could have side effects
<-- line 343296
~alloc:false) [@@dead "Matching.+prim_string_compare"]
Warning Dead Value With Side Effects
whole_compiler.ml 345176:1
Ext_buffer.+unsafe_string is never used and could have side effects
<-- line 345176
external unsafe_string: bytes -> int -> int -> Digest.t = "caml_md5_string" [@@dead "Ext_buffer.+unsafe_string"]
Warning Dead Value With Side Effects
whole_compiler.ml 345494:5
Literals.+node_modules_length is never used and could have side effects
<-- line 345494
let node_modules_length = String.length "node_modules" [@@dead "Literals.+node_modules_length"]
Warning Dead Value With Side Effects
whole_compiler.ml 360092:5
Compenv.+deferred_actions is never used and could have side effects
<-- line 360092
let deferred_actions = ref [] [@@dead "Compenv.+deferred_actions"]
Warning Dead Value With Side Effects
whole_compiler.ml 360591:5
Depend.+pp_deps is never used and could have side effects
<-- line 360591
let pp_deps = ref [] [@@dead "Depend.+pp_deps"]
Warning Dead Value With Side Effects
whole_compiler.ml 361503:5
Ext_path.+simple_convert_node_path_to_os_path is never used and could have side effects
<-- line 361503
else failwith ("Unknown OS : " ^ Sys.os_type) [@@dead "Ext_path.+simple_convert_node_path_to_os_path"]
Warning Dead Value With Side Effects
whole_compiler.ml 369503:5
Ext_ident.+js_module_table is never used and could have side effects
<-- line 369503
let js_module_table : Ident.t Hash_string.t = Hash_string.create 31 [@@dead "Ext_ident.+js_module_table"]
Warning Dead Value With Side Effects
whole_compiler.ml 388654:5
Lam_print.+lambda_to_string is never used and could have side effects
<-- line 388654
let lambda_to_string = Format.asprintf "%a" lambda [@@dead "Lam_print.+lambda_to_string"]
Warning Dead Value With Side Effects
whole_compiler.ml 405442:5
Parse.+toplevel_phrase is never used and could have side effects
<-- line 405442
and toplevel_phrase = wrap Parser.toplevel_phrase [@@dead "Parse.+toplevel_phrase"]
Warning Dead Value With Side Effects
whole_compiler.ml 405443:5
Parse.+use_file is never used and could have side effects
<-- line 405443
and use_file = wrap Parser.use_file [@@dead "Parse.+use_file"]
Warning Dead Value With Side Effects
whole_compiler.ml 405444:5
Parse.+core_type is never used and could have side effects
<-- line 405444
and core_type = wrap Parser.parse_core_type [@@dead "Parse.+core_type"]
Warning Dead Value With Side Effects
whole_compiler.ml 405445:5
Parse.+expression is never used and could have side effects
<-- line 405445
and expression = wrap Parser.parse_expression [@@dead "Parse.+expression"]
Warning Dead Value With Side Effects
whole_compiler.ml 405446:5
Parse.+pattern is never used and could have side effects
<-- line 405446
and pattern = wrap Parser.parse_pattern [@@dead "Parse.+pattern"]
Warning Dead Value With Side Effects
whole_compiler.ml 407321:5
Pprintast.+core_type is never used and could have side effects
<-- line 407321
let core_type = core_type reset_ctxt [@@dead "Pprintast.+core_type"]
Warning Dead Value With Side Effects
whole_compiler.ml 407322:5
Pprintast.+pattern is never used and could have side effects
<-- line 407322
let pattern = pattern reset_ctxt [@@dead "Pprintast.+pattern"]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment