|
@@ -115,6 +115,7 @@ let rec check_feature dce s =
|
|
|
|
|
|
and check_and_add_feature dce s =
|
|
and check_and_add_feature dce s =
|
|
check_feature dce s;
|
|
check_feature dce s;
|
|
|
|
+ (* assert (dce.curclass != null_class); *)
|
|
Hashtbl.replace dce.curclass.cl_module.m_extra.m_features s true
|
|
Hashtbl.replace dce.curclass.cl_module.m_extra.m_features s true
|
|
|
|
|
|
(* mark a field as kept *)
|
|
(* mark a field as kept *)
|