Release coccinelle-0.1.10

[bpt/coccinelle.git] / parsing_cocci / visitor_ast.ml

diff --git a/parsing_cocci/visitor_ast.ml b/parsing_cocci/visitor_ast.ml
index 15e8f5d..18b3e27 100644 (file)
--- 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) ->