Ver Fonte

[java/cs] run filters on cf_overloads as well

Cauê Waneck há 10 anos atrás
pai
commit
c49333ce84
1 ficheiros alterados com 4 adições e 3 exclusões
  1. 4 3
      filters.ml

+ 4 - 3
filters.ml

@@ -967,13 +967,14 @@ let run_expression_filters ctx filters t =
 	| TClassDecl c when is_removable_class c -> ()
 	| TClassDecl c ->
 		ctx.curclass <- c;
-		let process_field f =
-			match f.cf_expr with
+		let rec process_field f =
+			(match f.cf_expr with
 			| Some e when not (Codegen.is_removable_field ctx f) ->
 				Codegen.AbstractCast.cast_stack := f :: !Codegen.AbstractCast.cast_stack;
 				f.cf_expr <- Some (run e);
 				Codegen.AbstractCast.cast_stack := List.tl !Codegen.AbstractCast.cast_stack;
-			| _ -> ()
+			| _ -> ());
+			List.iter process_field f.cf_overloads
 		in
 		List.iter process_field c.cl_ordered_fields;
 		List.iter process_field c.cl_ordered_statics;