浏览代码

sanitize constructors after adding field inits and running analyzer on them (closes #4877)

Dan Korostelev 9 年之前
父节点
当前提交
be90dd99d4
共有 1 个文件被更改,包括 5 次插入0 次删除
  1. 5 0
      filters.ml

+ 5 - 0
filters.ml

@@ -870,6 +870,11 @@ let add_field_inits ctx t =
 			in
 			let config = Analyzer.Config.get_base_config ctx.com false in
 			Analyzer.Run.run_on_field ctx config c cf;
+			(match cf.cf_expr with
+			| Some e ->
+				cf.cf_expr <- Some (Optimizer.sanitize ctx.com e)
+			| _ ->
+				());
 			c.cl_constructor <- Some cf
 	in
 	match t with