Просмотр исходного кода

store features in module instead of common context (see #4805)

Simon Krajewski 9 лет назад
Родитель
Сommit
c486b3ef67
1 измененных файлов с 1 добавлено и 1 удалено
  1. 1 1
      dce.ml

+ 1 - 1
dce.ml

@@ -85,7 +85,7 @@ let rec check_feature dce s =
 
 and check_and_add_feature dce s =
 	check_feature dce s;
-	Common.add_feature dce.com s;
+	Hashtbl.replace dce.curclass.cl_module.m_extra.m_features s true
 
 (* mark a field as kept *)
 and mark_field dce c cf stat =