Explorar el Código

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

Simon Krajewski hace 9 años
padre
commit
c486b3ef67
Se han modificado 1 ficheros con 1 adiciones y 1 borrados
  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 =