Release coccinelle-0.1.1

[bpt/coccinelle.git] / engine / cocci_vs_c_3.ml

diff --git a/engine/cocci_vs_c_3.ml b/engine/cocci_vs_c_3.ml
index fc1f4c0..f2348f3 100644 (file)
--- a/engine/cocci_vs_c_3.ml
+++ b/engine/cocci_vs_c_3.ml
@@ -543,6 +543,9 @@ module type PARAM =
     val cocciTy : 
       (A.fullType, B.fullType) matcher -> (A.fullType, F.node) matcher
 
+    val cocciInit : 
+      (A.initialiser, B.initialiser) matcher -> (A.initialiser, F.node) matcher
+
     val envf :
       A.keep_binding -> A.inherited -> 
       A.meta_name A.mcode * Ast_c.metavar_binding_kind *
@@ -3041,8 +3044,6 @@ let rec (rule_elem_node: (A.rule_elem, Control_flow_c.node) matcher) =
         )
       )
 
-
-
   | A.Ty ty, nodeb -> 
       X.cocciTy fullType ty node >>= (fun ty node -> 
         return (
@@ -3051,6 +3052,14 @@ let rec (rule_elem_node: (A.rule_elem, Control_flow_c.node) matcher) =
         )
       )
 
+  | A.TopInit init, nodeb -> 
+      X.cocciInit initialiser init node >>= (fun init node -> 
+        return (
+          A.TopInit init,
+          F.unwrap node
+        )
+      )
+
 
   | A.FunHeader (mckstart, allminus, fninfoa, ida, oparen, paramsa, cparen),
     F.FunHeader ((idb, (retb, (paramsb, (isvaargs, iidotsb))), stob), ii) ->