Skip to content

Commit ff3a098

Browse files
committed
remove staled code
1 parent 83ba99f commit ff3a098

File tree

2 files changed

+0
-26
lines changed

2 files changed

+0
-26
lines changed

jscomp/core/lam_compile_main.ml

Lines changed: 0 additions & 13 deletions
Original file line numberDiff line numberDiff line change
@@ -74,19 +74,6 @@ let compile_group ({filename = file_name; env;} as meta : Lam_stats.t)
7474
| Single(_, ({name="nan";_} as id),_ ), "pervasives.ml" ->
7575
Js_output.of_stmt @@ S.alias_variable id ~exp:(E.js_global "NaN")
7676

77-
(* TODO:
78-
Make it more safe, we should rewrite the last one...
79-
checkout [E.mldot], it would make sense that cross module inlining done there
80-
In general, we would like to do such specialization on primitive specialization
81-
[Lam_dispatch_primitive], here it makes an exception since this function is not a primitive
82-
*)
83-
| Single(_, ({name="^";_} as id),_ ), "pervasives.ml" ->
84-
Js_output.of_stmt @@ S.alias_variable id
85-
~exp:(let a = Ext_ident.create "a" in
86-
let b = Ext_ident.create "b" in
87-
E.ocaml_fun [a;b] [S.return_stmt (E.string_append (E.var a) (E.var b))]
88-
)
89-
9077
(* QUICK hack to make hello world example nicer,
9178
Note the arity of [print_endline] is already analyzed before,
9279
so it should be safe

lib/whole_compiler.ml

Lines changed: 0 additions & 13 deletions
Original file line numberDiff line numberDiff line change
@@ -101839,19 +101839,6 @@ let compile_group ({filename = file_name; env;} as meta : Lam_stats.t)
101839101839
| Single(_, ({name="nan";_} as id),_ ), "pervasives.ml" ->
101840101840
Js_output.of_stmt @@ S.alias_variable id ~exp:(E.js_global "NaN")
101841101841

101842-
(* TODO:
101843-
Make it more safe, we should rewrite the last one...
101844-
checkout [E.mldot], it would make sense that cross module inlining done there
101845-
In general, we would like to do such specialization on primitive specialization
101846-
[Lam_dispatch_primitive], here it makes an exception since this function is not a primitive
101847-
*)
101848-
| Single(_, ({name="^";_} as id),_ ), "pervasives.ml" ->
101849-
Js_output.of_stmt @@ S.alias_variable id
101850-
~exp:(let a = Ext_ident.create "a" in
101851-
let b = Ext_ident.create "b" in
101852-
E.ocaml_fun [a;b] [S.return_stmt (E.string_append (E.var a) (E.var b))]
101853-
)
101854-
101855101842
(* QUICK hack to make hello world example nicer,
101856101843
Note the arity of [print_endline] is already analyzed before,
101857101844
so it should be safe

0 commit comments

Comments
 (0)