瀏覽代碼

[dce] clean up `@:used` on types too

see #7805
Simon Krajewski 6 年之前
父節點
當前提交
ae0ab793ad
共有 1 個文件被更改,包括 5 次插入1 次删除
  1. 5 1
      src/optimization/dce.ml

+ 5 - 1
src/optimization/dce.ml

@@ -886,4 +886,8 @@ let run com main mode =
 		| x :: l -> x :: remove_meta m l
 	in
 	List.iter (fun cf -> cf.cf_meta <- remove_meta Meta.Used cf.cf_meta) dce.marked_fields;
-	List.iter (fun cf -> cf.cf_meta <- remove_meta Meta.MaybeUsed cf.cf_meta) dce.marked_maybe_fields
+	List.iter (fun cf -> cf.cf_meta <- remove_meta Meta.MaybeUsed cf.cf_meta) dce.marked_maybe_fields;
+	List.iter (fun mt ->
+		let mt = t_infos mt in
+		mt.mt_meta <- remove_meta Meta.Used mt.mt_meta
+	) com.types