X-Git-Url: http://git.hcoop.net/bpt/coccinelle.git/blobdiff_plain/002099fc953f8417029d3b840945fde3251712bc..fc1ad9719a3a6317b3a4749dac68e7272a3617db:/parsing_cocci/visitor_ast.ml

diff --git a/parsing_cocci/visitor_ast.ml b/parsing_cocci/visitor_ast.ml
index 15e8f5d..18b3e27 100644
--- a/parsing_cocci/visitor_ast.ml
+++ b/parsing_cocci/visitor_ast.ml
@@ -426,8 +426,9 @@ let combiner bind option_default
       | Ast.For(header,body,_) -> multibind [rule_elem header; statement body]
       | Ast.Iterator(header,body,_) ->
 	  multibind [rule_elem header; statement body]
-      |	Ast.Switch(header,lb,cases,rb) ->
+      |	Ast.Switch(header,lb,decls,cases,rb) ->
 	  multibind [rule_elem header;rule_elem lb;
+		      statement_dots decls;
 		      multibind (List.map case_line cases);
 		      rule_elem rb]
       | Ast.Atomic(re) -> rule_elem re
@@ -935,8 +936,9 @@ let rebuilder
 	    Ast.For(rule_elem header, statement body, aft)
 	| Ast.Iterator(header,body,aft) ->
 	    Ast.Iterator(rule_elem header, statement body, aft)
-	| Ast.Switch(header,lb,cases,rb) ->
+	| Ast.Switch(header,lb,decls,cases,rb) ->
 	    Ast.Switch(rule_elem header,rule_elem lb,
+		       statement_dots decls,
 		       List.map case_line cases,rule_elem rb)
 	| Ast.Atomic(re) -> Ast.Atomic(rule_elem re)
 	| Ast.Disj(stmt_dots_list) ->