Skip to content

Commit 85e39b1

Browse files
bobzhangbobzhang
committed
tweak
1 parent 2a34a34 commit 85e39b1

File tree

11 files changed

+35
-35
lines changed

11 files changed

+35
-35
lines changed

‎jscomp/core/js_analyzer.ml

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -44,7 +44,7 @@ let add_defined_idents (x : idents_stats) ident =
4444
Note such shaking is done in the toplevel, so that it requires us to
4545
flatten the statement first
4646
*)
47-
let super = Js_record_iter.iter
47+
let super = Js_record_iter.super
4848
let free_variables (stats : idents_stats) = {
4949
super with
5050
variable_declaration = begin fun self st ->
@@ -145,7 +145,7 @@ and no_side_effect (x : J.expression) =
145145

146146
let no_side_effect_expression (x : J.expression) = no_side_effect x
147147

148-
let super = Js_record_iter.iter
148+
let super = Js_record_iter.super
149149
let no_side_effect_obj =
150150
{super with
151151
statement = (fun self s ->

‎jscomp/core/js_fold_basic.ml

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -28,7 +28,7 @@
2828
let add_lam_module_ident = Lam_module_ident.Hash_set.add
2929
let create = Lam_module_ident.Hash_set.create
3030

31-
let super = Js_record_iter.iter
31+
let super = Js_record_iter.super
3232
let count_hard_dependencies hard_dependencies = {
3333
super with
3434
module_id = begin

‎jscomp/core/js_pass_flatten_and_mark_dead.ml

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -39,7 +39,7 @@ type meta_info =
3939
| Recursive
4040

4141

42-
let super = Js_record_iter.iter
42+
let super = Js_record_iter.super
4343

4444
let mark_dead_code (js : J.program) : J.program =
4545
let ident_use_stats : meta_info Hash_ident.t

‎jscomp/core/js_pass_get_used.ml

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -48,7 +48,7 @@ let post_process_stats my_export_set (defined_idents : J.variable_declaration Ha
4848
since in this case it can not be global?
4949
5050
*)
51-
let super = Js_record_iter.iter
51+
let super = Js_record_iter.super
5252
let count_collects
5353
(* collect used status*)
5454
(stats : int Hash_ident.t)

‎jscomp/core/js_record_iter.ml

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

22
open J
33
let unknown _ _ = ()
4-
let option sub self = fun v ->
4+
let [@inline] option sub self = fun v ->
55
match v with
66
| None -> ()
77
| Some v -> sub self v
@@ -38,7 +38,7 @@ program : program fn;
3838
deps_program : deps_program fn
3939
}
4040
and 'a fn = iter -> 'a -> unit
41-
let iter : iter = {
41+
let super : iter = {
4242
label : label fn = ( unknown ) ;
4343
required_modules : required_modules fn = ( fun _self arg -> list _self.module_id _self arg ) ;
4444
ident : ident fn = ( unknown ) ;

‎jscomp/core/js_record_map.ml

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

22
open J
33
let [@inline] unknown _ x = x
4-
let option sub self = fun v ->
4+
let [@inline] option sub self = fun v ->
55
match v with
66
| None -> None
77
| Some v -> Some (sub self v)

‎lib/4.06.1/unstable/js_compiler.ml

Lines changed: 8 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -86710,7 +86710,7 @@ module Js_record_iter
8671086710

8671186711
open J
8671286712
let unknown _ _ = ()
86713-
let option sub self = fun v ->
86713+
let [@inline] option sub self = fun v ->
8671486714
match v with
8671586715
| None -> ()
8671686716
| Some v -> sub self v
@@ -86747,7 +86747,7 @@ program : program fn;
8674786747
deps_program : deps_program fn
8674886748
}
8674986749
and 'a fn = iter -> 'a -> unit
86750-
let iter : iter = {
86750+
let super : iter = {
8675186751
label : label fn = ( unknown ) ;
8675286752
required_modules : required_modules fn = ( fun _self arg -> list _self.module_id _self arg ) ;
8675386753
ident : ident fn = ( unknown ) ;
@@ -86996,7 +86996,7 @@ let add_defined_idents (x : idents_stats) ident =
8699686996
Note such shaking is done in the toplevel, so that it requires us to
8699786997
flatten the statement first
8699886998
*)
86999-
let super = Js_record_iter.iter
86999+
let super = Js_record_iter.super
8700087000
let free_variables (stats : idents_stats) = {
8700187001
super with
8700287002
variable_declaration = begin fun self st ->
@@ -87097,7 +87097,7 @@ and no_side_effect (x : J.expression) =
8709787097

8709887098
let no_side_effect_expression (x : J.expression) = no_side_effect x
8709987099

87100-
let super = Js_record_iter.iter
87100+
let super = Js_record_iter.super
8710187101
let no_side_effect_obj =
8710287102
{super with
8710387103
statement = (fun self s ->
@@ -99169,7 +99169,7 @@ end = struct
9916999169
let add_lam_module_ident = Lam_module_ident.Hash_set.add
9917099170
let create = Lam_module_ident.Hash_set.create
9917199171

99172-
let super = Js_record_iter.iter
99172+
let super = Js_record_iter.super
9917399173
let count_hard_dependencies hard_dependencies = {
9917499174
super with
9917599175
module_id = begin
@@ -101398,7 +101398,7 @@ module Js_record_map
101398101398

101399101399
open J
101400101400
let [@inline] unknown _ x = x
101401-
let option sub self = fun v ->
101401+
let [@inline] option sub self = fun v ->
101402101402
match v with
101403101403
| None -> None
101404101404
| Some v -> Some (sub self v)
@@ -101807,7 +101807,7 @@ type meta_info =
101807101807
| Recursive
101808101808

101809101809

101810-
let super = Js_record_iter.iter
101810+
let super = Js_record_iter.super
101811101811

101812101812
let mark_dead_code (js : J.program) : J.program =
101813101813
let ident_use_stats : meta_info Hash_ident.t
@@ -102677,7 +102677,7 @@ let post_process_stats my_export_set (defined_idents : J.variable_declaration Ha
102677102677
since in this case it can not be global?
102678102678

102679102679
*)
102680-
let super = Js_record_iter.iter
102680+
let super = Js_record_iter.super
102681102681
let count_collects
102682102682
(* collect used status*)
102683102683
(stats : int Hash_ident.t)

‎lib/4.06.1/unstable/js_refmt_compiler.ml

Lines changed: 8 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -86710,7 +86710,7 @@ module Js_record_iter
8671086710

8671186711
open J
8671286712
let unknown _ _ = ()
86713-
let option sub self = fun v ->
86713+
let [@inline] option sub self = fun v ->
8671486714
match v with
8671586715
| None -> ()
8671686716
| Some v -> sub self v
@@ -86747,7 +86747,7 @@ program : program fn;
8674786747
deps_program : deps_program fn
8674886748
}
8674986749
and 'a fn = iter -> 'a -> unit
86750-
let iter : iter = {
86750+
let super : iter = {
8675186751
label : label fn = ( unknown ) ;
8675286752
required_modules : required_modules fn = ( fun _self arg -> list _self.module_id _self arg ) ;
8675386753
ident : ident fn = ( unknown ) ;
@@ -86996,7 +86996,7 @@ let add_defined_idents (x : idents_stats) ident =
8699686996
Note such shaking is done in the toplevel, so that it requires us to
8699786997
flatten the statement first
8699886998
*)
86999-
let super = Js_record_iter.iter
86999+
let super = Js_record_iter.super
8700087000
let free_variables (stats : idents_stats) = {
8700187001
super with
8700287002
variable_declaration = begin fun self st ->
@@ -87097,7 +87097,7 @@ and no_side_effect (x : J.expression) =
8709787097

8709887098
let no_side_effect_expression (x : J.expression) = no_side_effect x
8709987099

87100-
let super = Js_record_iter.iter
87100+
let super = Js_record_iter.super
8710187101
let no_side_effect_obj =
8710287102
{super with
8710387103
statement = (fun self s ->
@@ -99169,7 +99169,7 @@ end = struct
9916999169
let add_lam_module_ident = Lam_module_ident.Hash_set.add
9917099170
let create = Lam_module_ident.Hash_set.create
9917199171

99172-
let super = Js_record_iter.iter
99172+
let super = Js_record_iter.super
9917399173
let count_hard_dependencies hard_dependencies = {
9917499174
super with
9917599175
module_id = begin
@@ -101398,7 +101398,7 @@ module Js_record_map
101398101398

101399101399
open J
101400101400
let [@inline] unknown _ x = x
101401-
let option sub self = fun v ->
101401+
let [@inline] option sub self = fun v ->
101402101402
match v with
101403101403
| None -> None
101404101404
| Some v -> Some (sub self v)
@@ -101807,7 +101807,7 @@ type meta_info =
101807101807
| Recursive
101808101808

101809101809

101810-
let super = Js_record_iter.iter
101810+
let super = Js_record_iter.super
101811101811

101812101812
let mark_dead_code (js : J.program) : J.program =
101813101813
let ident_use_stats : meta_info Hash_ident.t
@@ -102677,7 +102677,7 @@ let post_process_stats my_export_set (defined_idents : J.variable_declaration Ha
102677102677
since in this case it can not be global?
102678102678

102679102679
*)
102680-
let super = Js_record_iter.iter
102680+
let super = Js_record_iter.super
102681102681
let count_collects
102682102682
(* collect used status*)
102683102683
(stats : int Hash_ident.t)

‎lib/4.06.1/whole_compiler.ml

Lines changed: 8 additions & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -376589,7 +376589,7 @@ module Js_record_iter
376589376589

376590376590
open J
376591376591
let unknown _ _ = ()
376592-
let option sub self = fun v ->
376592+
let [@inline] option sub self = fun v ->
376593376593
match v with
376594376594
| None -> ()
376595376595
| Some v -> sub self v
@@ -376626,7 +376626,7 @@ program : program fn;
376626376626
deps_program : deps_program fn
376627376627
}
376628376628
and 'a fn = iter -> 'a -> unit
376629-
let iter : iter = {
376629+
let super : iter = {
376630376630
label : label fn = ( unknown ) ;
376631376631
required_modules : required_modules fn = ( fun _self arg -> list _self.module_id _self arg ) ;
376632376632
ident : ident fn = ( unknown ) ;
@@ -376875,7 +376875,7 @@ let add_defined_idents (x : idents_stats) ident =
376875376875
Note such shaking is done in the toplevel, so that it requires us to
376876376876
flatten the statement first
376877376877
*)
376878-
let super = Js_record_iter.iter
376878+
let super = Js_record_iter.super
376879376879
let free_variables (stats : idents_stats) = {
376880376880
super with
376881376881
variable_declaration = begin fun self st ->
@@ -376976,7 +376976,7 @@ and no_side_effect (x : J.expression) =
376976376976

376977376977
let no_side_effect_expression (x : J.expression) = no_side_effect x
376978376978

376979-
let super = Js_record_iter.iter
376979+
let super = Js_record_iter.super
376980376980
let no_side_effect_obj =
376981376981
{super with
376982376982
statement = (fun self s ->
@@ -381663,7 +381663,7 @@ end = struct
381663381663
let add_lam_module_ident = Lam_module_ident.Hash_set.add
381664381664
let create = Lam_module_ident.Hash_set.create
381665381665

381666-
let super = Js_record_iter.iter
381666+
let super = Js_record_iter.super
381667381667
let count_hard_dependencies hard_dependencies = {
381668381668
super with
381669381669
module_id = begin
@@ -383892,7 +383892,7 @@ module Js_record_map
383892383892

383893383893
open J
383894383894
let [@inline] unknown _ x = x
383895-
let option sub self = fun v ->
383895+
let [@inline] option sub self = fun v ->
383896383896
match v with
383897383897
| None -> None
383898383898
| Some v -> Some (sub self v)
@@ -384301,7 +384301,7 @@ type meta_info =
384301384301
| Recursive
384302384302

384303384303

384304-
let super = Js_record_iter.iter
384304+
let super = Js_record_iter.super
384305384305

384306384306
let mark_dead_code (js : J.program) : J.program =
384307384307
let ident_use_stats : meta_info Hash_ident.t
@@ -385171,7 +385171,7 @@ let post_process_stats my_export_set (defined_idents : J.variable_declaration Ha
385171385171
since in this case it can not be global?
385172385172

385173385173
*)
385174-
let super = Js_record_iter.iter
385174+
let super = Js_record_iter.super
385175385175
let count_collects
385176385176
(* collect used status*)
385177385177
(stats : int Hash_ident.t)

‎ocaml-tree/record_iter.js

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -197,7 +197,7 @@ function make(typedefs) {
197197
var o = `
198198
open J
199199
let unknown _ _ = ()
200-
let option sub self = fun v ->
200+
let [@inline] option sub self = fun v ->
201201
match v with
202202
| None -> ()
203203
| Some v -> sub self v
@@ -212,7 +212,7 @@ function make(typedefs) {
212212
${customNames.map((x) => `${x} : ${x} fn`).join(";\n")}
213213
}
214214
and 'a fn = iter -> 'a -> unit
215-
let iter : iter = {
215+
let super : iter = {
216216
${output.join(";\n")}
217217
}
218218
`;

0 commit comments

Comments
 (0)