浏览代码

[DCE] add missing check_feature call when class fields are added (closes #2298)

Simon Krajewski 12 年之前
父节点
当前提交
60d185d143
共有 1 个文件被更改,包括 2 次插入1 次删除
  1. 2 1
      dce.ml

+ 2 - 1
dce.ml

@@ -86,7 +86,8 @@ and mark_field dce c cf stat =
 		if not (Meta.has Meta.Used cf.cf_meta) then begin
 			cf.cf_meta <- (Meta.Used,[],cf.cf_pos) :: cf.cf_meta;
 			dce.added_fields <- (c,cf,stat) :: dce.added_fields;
-			dce.marked_fields <- cf :: dce.marked_fields
+			dce.marked_fields <- cf :: dce.marked_fields;
+			check_feature dce (Printf.sprintf "%s.%s" (s_type_path c.cl_path) cf.cf_name);
 		end
 	in
 	if cf.cf_name = "new" then begin