|
@@ -56,6 +56,7 @@ let keep_whole_class dce c =
|
|
|| super_forces_keep c
|
|
|| super_forces_keep c
|
|
|| (match c with
|
|
|| (match c with
|
|
| { cl_path = ([],("Math"|"Array"))} when dce.com.platform = Js -> false
|
|
| { cl_path = ([],("Math"|"Array"))} when dce.com.platform = Js -> false
|
|
|
|
+ | { cl_extern = true }
|
|
| { cl_path = ["flash";"_Boot"],"RealBoot" } -> true
|
|
| { cl_path = ["flash";"_Boot"],"RealBoot" } -> true
|
|
| { cl_path = [],"String" }
|
|
| { cl_path = [],"String" }
|
|
| { cl_path = [],"Array" } -> not (dce.com.platform = Js)
|
|
| { cl_path = [],"Array" } -> not (dce.com.platform = Js)
|