Skip to content

Commit cbe8023

Browse files
bobzhangbobzhang
committed
clean
1 parent 4c784f5 commit cbe8023

File tree

4 files changed

+2
-154
lines changed

4 files changed

+2
-154
lines changed

‎jscomp/core/lam_dispatch_primitive.ml‎

Lines changed: 0 additions & 39 deletions
Original file line numberDiff line numberDiff line change
@@ -92,52 +92,13 @@ let translate loc (prim_name : string)
9292
| [e0;e1] -> E.float_comp Cgt e0 e1
9393
| _ -> assert false
9494
end
95-
(* | "caml_tan_float" ->
96-
E.math "tan" args
97-
| "caml_tanh_float" ->
98-
E.math "tanh" args
99-
| "caml_asin_float" ->
100-
E.math "asin" args
101-
| "caml_atan2_float" ->
102-
E.math "atan2" args
103-
| "caml_atan_float" ->
104-
E.math "atan" args
105-
| "caml_ceil_float" ->
106-
E.math "ceil" args
107-
| "caml_cos_float" ->
108-
E.math "cos" args
109-
| "caml_cosh_float" ->
110-
E.math "cosh" args
111-
| "caml_exp_float" ->
112-
E.math "exp" args
113-
| "caml_sin_float" ->
114-
E.math "sin" args
115-
| "caml_sinh_float"->
116-
E.math "sinh" args
117-
| "caml_sqrt_float" ->
118-
E.math "sqrt" args
119-
120-
*)
12195
| "caml_float_of_int" ->
12296
begin match args with
12397
| [e] -> e
12498
| _ -> assert false
12599
end
126-
(* | "caml_floor_float" ->
127-
E.math "floor" args
128-
| "caml_log_float" ->
129-
E.math "log" args
130-
| "caml_log10_float" ->
131-
E.math "log10" args
132-
| "caml_log1p_float" ->
133-
E.math "log1p" args
134-
| "caml_power_float" ->
135-
E.math "pow" args *)
136-
137100
| "caml_array_get" ->
138101
call Js_runtime_modules.array
139-
| "caml_array_get_addr"
140-
| "caml_array_get_float"
141102
| "caml_array_unsafe_get"
142103
| "caml_array_unsafe_get_float" ->
143104
begin match args with

‎lib/4.06.1/unstable/js_compiler.ml‎

Lines changed: 1 addition & 38 deletions
Original file line numberDiff line numberDiff line change
@@ -110684,51 +110684,14 @@ let translate loc (prim_name : string)
110684110684
| [e0;e1] -> E.float_comp Cgt e0 e1
110685110685
| _ -> assert false
110686110686
end
110687-
(* | "caml_tan_float" ->
110688-
E.math "tan" args
110689-
| "caml_tanh_float" ->
110690-
E.math "tanh" args
110691-
| "caml_asin_float" ->
110692-
E.math "asin" args
110693-
| "caml_atan2_float" ->
110694-
E.math "atan2" args
110695-
| "caml_atan_float" ->
110696-
E.math "atan" args
110697-
| "caml_ceil_float" ->
110698-
E.math "ceil" args
110699-
| "caml_cos_float" ->
110700-
E.math "cos" args
110701-
| "caml_cosh_float" ->
110702-
E.math "cosh" args
110703-
| "caml_exp_float" ->
110704-
E.math "exp" args
110705-
| "caml_sin_float" ->
110706-
E.math "sin" args
110707-
| "caml_sinh_float"->
110708-
E.math "sinh" args
110709-
| "caml_sqrt_float" ->
110710-
E.math "sqrt" args
110711-
110712-
*)
110713110687
| "caml_float_of_int" ->
110714110688
begin match args with
110715110689
| [e] -> e
110716110690
| _ -> assert false
110717110691
end
110718-
(* | "caml_floor_float" ->
110719-
E.math "floor" args
110720-
| "caml_log_float" ->
110721-
E.math "log" args
110722-
| "caml_log10_float" ->
110723-
E.math "log10" args
110724-
| "caml_log1p_float" ->
110725-
E.math "log1p" args
110726-
| "caml_power_float" ->
110727-
E.math "pow" args *)
110728-
110729110692
| "caml_array_get" ->
110730110693
call Js_runtime_modules.array
110731-
| "caml_array_get_addr"
110694+
110732110695
| "caml_array_get_float"
110733110696
| "caml_array_unsafe_get"
110734110697
| "caml_array_unsafe_get_float" ->

‎lib/4.06.1/unstable/js_refmt_compiler.ml‎

Lines changed: 1 addition & 38 deletions
Original file line numberDiff line numberDiff line change
@@ -110684,51 +110684,14 @@ let translate loc (prim_name : string)
110684110684
| [e0;e1] -> E.float_comp Cgt e0 e1
110685110685
| _ -> assert false
110686110686
end
110687-
(* | "caml_tan_float" ->
110688-
E.math "tan" args
110689-
| "caml_tanh_float" ->
110690-
E.math "tanh" args
110691-
| "caml_asin_float" ->
110692-
E.math "asin" args
110693-
| "caml_atan2_float" ->
110694-
E.math "atan2" args
110695-
| "caml_atan_float" ->
110696-
E.math "atan" args
110697-
| "caml_ceil_float" ->
110698-
E.math "ceil" args
110699-
| "caml_cos_float" ->
110700-
E.math "cos" args
110701-
| "caml_cosh_float" ->
110702-
E.math "cosh" args
110703-
| "caml_exp_float" ->
110704-
E.math "exp" args
110705-
| "caml_sin_float" ->
110706-
E.math "sin" args
110707-
| "caml_sinh_float"->
110708-
E.math "sinh" args
110709-
| "caml_sqrt_float" ->
110710-
E.math "sqrt" args
110711-
110712-
*)
110713110687
| "caml_float_of_int" ->
110714110688
begin match args with
110715110689
| [e] -> e
110716110690
| _ -> assert false
110717110691
end
110718-
(* | "caml_floor_float" ->
110719-
E.math "floor" args
110720-
| "caml_log_float" ->
110721-
E.math "log" args
110722-
| "caml_log10_float" ->
110723-
E.math "log10" args
110724-
| "caml_log1p_float" ->
110725-
E.math "log1p" args
110726-
| "caml_power_float" ->
110727-
E.math "pow" args *)
110728-
110729110692
| "caml_array_get" ->
110730110693
call Js_runtime_modules.array
110731-
| "caml_array_get_addr"
110694+
110732110695
| "caml_array_get_float"
110733110696
| "caml_array_unsafe_get"
110734110697
| "caml_array_unsafe_get_float" ->

‎lib/4.06.1/whole_compiler.ml‎

Lines changed: 0 additions & 39 deletions
Original file line numberDiff line numberDiff line change
@@ -392776,52 +392776,13 @@ let translate loc (prim_name : string)
392776392776
| [e0;e1] -> E.float_comp Cgt e0 e1
392777392777
| _ -> assert false
392778392778
end
392779-
(* | "caml_tan_float" ->
392780-
E.math "tan" args
392781-
| "caml_tanh_float" ->
392782-
E.math "tanh" args
392783-
| "caml_asin_float" ->
392784-
E.math "asin" args
392785-
| "caml_atan2_float" ->
392786-
E.math "atan2" args
392787-
| "caml_atan_float" ->
392788-
E.math "atan" args
392789-
| "caml_ceil_float" ->
392790-
E.math "ceil" args
392791-
| "caml_cos_float" ->
392792-
E.math "cos" args
392793-
| "caml_cosh_float" ->
392794-
E.math "cosh" args
392795-
| "caml_exp_float" ->
392796-
E.math "exp" args
392797-
| "caml_sin_float" ->
392798-
E.math "sin" args
392799-
| "caml_sinh_float"->
392800-
E.math "sinh" args
392801-
| "caml_sqrt_float" ->
392802-
E.math "sqrt" args
392803-
392804-
*)
392805392779
| "caml_float_of_int" ->
392806392780
begin match args with
392807392781
| [e] -> e
392808392782
| _ -> assert false
392809392783
end
392810-
(* | "caml_floor_float" ->
392811-
E.math "floor" args
392812-
| "caml_log_float" ->
392813-
E.math "log" args
392814-
| "caml_log10_float" ->
392815-
E.math "log10" args
392816-
| "caml_log1p_float" ->
392817-
E.math "log1p" args
392818-
| "caml_power_float" ->
392819-
E.math "pow" args *)
392820-
392821392784
| "caml_array_get" ->
392822392785
call Js_runtime_modules.array
392823-
| "caml_array_get_addr"
392824-
| "caml_array_get_float"
392825392786
| "caml_array_unsafe_get"
392826392787
| "caml_array_unsafe_get_float" ->
392827392788
begin match args with

0 commit comments

Comments
 (0)