Skip to content

Commit ea28fec

Browse files
bobzhangbobzhang
committed
remove unused code
1 parent e3d5907 commit ea28fec

File tree

8 files changed

+30
-30
lines changed

8 files changed

+30
-30
lines changed

‎jscomp/core/js_long.ml

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -165,8 +165,8 @@ let of_float (args : J.expression list ) =
165165
let compare (args : J.expression list) =
166166
int64_call "compare" args
167167

168-
let of_string (args : J.expression list) =
169-
int64_call "of_string" args
168+
(* let of_string (args : J.expression list) =
169+
int64_call "of_string" args *)
170170
let get64 = int64_call "get64"
171171
let float_of_bits = int64_call "float_of_bits"
172172
let bits_of_float = int64_call "bits_of_float"

‎jscomp/core/js_long.mli

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -29,7 +29,7 @@
2929

3030
type int64_call = J.expression list -> J.expression
3131

32-
val make_const : lo:Int32.t -> hi:Int32.t -> J.expression
32+
(* val make_const : lo:Int32.t -> hi:Int32.t -> J.expression *)
3333

3434
val of_const : int64 -> J.expression
3535

@@ -60,7 +60,7 @@ val equal_nullable : int64_call
6060
val to_float : int64_call
6161
val of_float : int64_call
6262
val compare : int64_call
63-
val of_string : int64_call
63+
(* val of_string : int64_call *)
6464
val float_of_bits : int64_call
6565
val bits_of_float : int64_call
6666
val get64 : int64_call

‎jscomp/core/lam_convert.mli

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -23,8 +23,8 @@
2323
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
2424

2525

26-
val happens_to_be_diff:
27-
(int * Lambda.lambda) list -> int option
26+
(* val happens_to_be_diff:
27+
(int * Lambda.lambda) list -> int option *)
2828

2929

3030
(**

‎jscomp/core/ocaml_options.ml

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -244,10 +244,10 @@ let mk_strict_formats f =
244244
\ to detect and fix invalid formats.)"
245245
;;
246246

247-
let mk__ f =
247+
(* let mk__ f =
248248
"-", Arg.String f,
249249
"<file> Treat <file> as a file name (even if it starts with `-')"
250-
;;
250+
;; *)
251251

252252
let show_config () =
253253
Config.print_config stdout;

‎jscomp/core/ocaml_options.mli

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -26,7 +26,7 @@
2626

2727
val mk_impl : (string -> unit) -> string * Arg.spec * string
2828
val mk_intf : (string -> unit) -> string * Arg.spec * string
29-
val mk__ : (string -> unit) -> string * Arg.spec * string
29+
(* val mk__ : (string -> unit) -> string * Arg.spec * string *)
3030
(**
3131
[ocaml_options] are command options inherited from ocaml
3232
bytecode compiler except three options

‎lib/4.06.1/unstable/js_compiler.ml

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -397312,7 +397312,7 @@ module Js_long : sig
397312397312

397313397313
type int64_call = J.expression list -> J.expression
397314397314

397315-
val make_const : lo:Int32.t -> hi:Int32.t -> J.expression
397315+
(* val make_const : lo:Int32.t -> hi:Int32.t -> J.expression *)
397316397316

397317397317
val of_const : int64 -> J.expression
397318397318

@@ -397343,7 +397343,7 @@ val equal_nullable : int64_call
397343397343
val to_float : int64_call
397344397344
val of_float : int64_call
397345397345
val compare : int64_call
397346-
val of_string : int64_call
397346+
(* val of_string : int64_call *)
397347397347
val float_of_bits : int64_call
397348397348
val bits_of_float : int64_call
397349397349
val get64 : int64_call
@@ -397517,8 +397517,8 @@ let of_float (args : J.expression list ) =
397517397517
let compare (args : J.expression list) =
397518397518
int64_call "compare" args
397519397519

397520-
let of_string (args : J.expression list) =
397521-
int64_call "of_string" args
397520+
(* let of_string (args : J.expression list) =
397521+
int64_call "of_string" args *)
397522397522
let get64 = int64_call "get64"
397523397523
let float_of_bits = int64_call "float_of_bits"
397524397524
let bits_of_float = int64_call "bits_of_float"
@@ -405511,8 +405511,8 @@ module Lam_convert : sig
405511405511
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
405512405512

405513405513

405514-
val happens_to_be_diff:
405515-
(int * Lambda.lambda) list -> int option
405514+
(* val happens_to_be_diff:
405515+
(int * Lambda.lambda) list -> int option *)
405516405516

405517405517

405518405518
(**

‎lib/4.06.1/unstable/js_refmt_compiler.ml

Lines changed: 6 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -397312,7 +397312,7 @@ module Js_long : sig
397312397312

397313397313
type int64_call = J.expression list -> J.expression
397314397314

397315-
val make_const : lo:Int32.t -> hi:Int32.t -> J.expression
397315+
(* val make_const : lo:Int32.t -> hi:Int32.t -> J.expression *)
397316397316

397317397317
val of_const : int64 -> J.expression
397318397318

@@ -397343,7 +397343,7 @@ val equal_nullable : int64_call
397343397343
val to_float : int64_call
397344397344
val of_float : int64_call
397345397345
val compare : int64_call
397346-
val of_string : int64_call
397346+
(* val of_string : int64_call *)
397347397347
val float_of_bits : int64_call
397348397348
val bits_of_float : int64_call
397349397349
val get64 : int64_call
@@ -397517,8 +397517,8 @@ let of_float (args : J.expression list ) =
397517397517
let compare (args : J.expression list) =
397518397518
int64_call "compare" args
397519397519

397520-
let of_string (args : J.expression list) =
397521-
int64_call "of_string" args
397520+
(* let of_string (args : J.expression list) =
397521+
int64_call "of_string" args *)
397522397522
let get64 = int64_call "get64"
397523397523
let float_of_bits = int64_call "float_of_bits"
397524397524
let bits_of_float = int64_call "bits_of_float"
@@ -405511,8 +405511,8 @@ module Lam_convert : sig
405511405511
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
405512405512

405513405513

405514-
val happens_to_be_diff:
405515-
(int * Lambda.lambda) list -> int option
405514+
(* val happens_to_be_diff:
405515+
(int * Lambda.lambda) list -> int option *)
405516405516

405517405517

405518405518
(**

‎lib/4.06.1/whole_compiler.ml

Lines changed: 9 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -391371,7 +391371,7 @@ module Js_long : sig
391371391371

391372391372
type int64_call = J.expression list -> J.expression
391373391373

391374-
val make_const : lo:Int32.t -> hi:Int32.t -> J.expression
391374+
(* val make_const : lo:Int32.t -> hi:Int32.t -> J.expression *)
391375391375

391376391376
val of_const : int64 -> J.expression
391377391377

@@ -391402,7 +391402,7 @@ val equal_nullable : int64_call
391402391402
val to_float : int64_call
391403391403
val of_float : int64_call
391404391404
val compare : int64_call
391405-
val of_string : int64_call
391405+
(* val of_string : int64_call *)
391406391406
val float_of_bits : int64_call
391407391407
val bits_of_float : int64_call
391408391408
val get64 : int64_call
@@ -391576,8 +391576,8 @@ let of_float (args : J.expression list ) =
391576391576
let compare (args : J.expression list) =
391577391577
int64_call "compare" args
391578391578

391579-
let of_string (args : J.expression list) =
391580-
int64_call "of_string" args
391579+
(* let of_string (args : J.expression list) =
391580+
int64_call "of_string" args *)
391581391581
let get64 = int64_call "get64"
391582391582
let float_of_bits = int64_call "float_of_bits"
391583391583
let bits_of_float = int64_call "bits_of_float"
@@ -401629,8 +401629,8 @@ module Lam_convert : sig
401629401629
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
401630401630

401631401631

401632-
val happens_to_be_diff:
401633-
(int * Lambda.lambda) list -> int option
401632+
(* val happens_to_be_diff:
401633+
(int * Lambda.lambda) list -> int option *)
401634401634

401635401635

401636401636
(**
@@ -417709,7 +417709,7 @@ module Ocaml_options : sig
417709417709

417710417710
val mk_impl : (string -> unit) -> string * Arg.spec * string
417711417711
val mk_intf : (string -> unit) -> string * Arg.spec * string
417712-
val mk__ : (string -> unit) -> string * Arg.spec * string
417712+
(* val mk__ : (string -> unit) -> string * Arg.spec * string *)
417713417713
(**
417714417714
[ocaml_options] are command options inherited from ocaml
417715417715
bytecode compiler except three options
@@ -417966,10 +417966,10 @@ let mk_strict_formats f =
417966417966
\ to detect and fix invalid formats.)"
417967417967
;;
417968417968

417969-
let mk__ f =
417969+
(* let mk__ f =
417970417970
"-", Arg.String f,
417971417971
"<file> Treat <file> as a file name (even if it starts with `-')"
417972-
;;
417972+
;; *)
417973417973

417974417974
let show_config () =
417975417975
Config.print_config stdout;

0 commit comments

Comments
 (0)