浏览代码

keep fields if they are featured on Js

Simon Krajewski 13 年之前
父节点
当前提交
1fb778494a
共有 1 个文件被更改,包括 4 次插入0 次删除
  1. 4 0
      dce.ml

+ 4 - 0
dce.ml

@@ -68,6 +68,10 @@ let keep_field dce cf =
 	has_meta ":keep" cf.cf_meta
 	|| has_meta ":used" cf.cf_meta
 	|| cf.cf_name = "__init__"
+	|| dce.ctx.com.platform = Js && (try (match get_meta ":feature" cf.cf_meta with
+			| (_,[EConst(String s),_],_) -> Common.has_feature dce.ctx.com s
+			| _ -> raise Not_found)
+		with Not_found -> false)
 
 (* marking *)