Browse Source

[cs/java] recurse into TMeta in ExpressionUnwrap filter (see #6267)

Dan Korostelev 8 years ago
parent
commit
d420a0cec1
1 changed files with 2 additions and 0 deletions
  1. 2 0
      src/generators/gencommon/expressionUnwrap.ml

+ 2 - 0
src/generators/gencommon/expressionUnwrap.ml

@@ -628,6 +628,8 @@ let configure gen =
 			{ e with eexpr = TFor(v,it, traverse (mk_block block)) }
 			{ e with eexpr = TFor(v,it, traverse (mk_block block)) }
 		| TFunction (tfunc) ->
 		| TFunction (tfunc) ->
 			{ e with eexpr = TFunction({ tfunc with tf_expr = traverse (mk_block tfunc.tf_expr) }) }
 			{ e with eexpr = TFunction({ tfunc with tf_expr = traverse (mk_block tfunc.tf_expr) }) }
+		| TMeta (m, e2) ->
+			{ e with eexpr = TMeta (m, traverse e2)}
 		| _ -> e (* if expression doesn't have a block, we will exit *)
 		| _ -> e (* if expression doesn't have a block, we will exit *)
 	in
 	in
 	gen.gsyntax_filters#add "expression_unwrap" (PCustom priority) traverse
 	gen.gsyntax_filters#add "expression_unwrap" (PCustom priority) traverse