Release coccinelle-0.2.2-rc1

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

diff --git a/parsing_cocci/get_constants2.ml b/parsing_cocci/get_constants2.ml
index 326b753..2a8f55a 100644 (file)
--- a/parsing_cocci/get_constants2.ml
+++ b/parsing_cocci/get_constants2.ml
@@ -512,8 +512,12 @@ let get_constants rules neg_pos_vars =
                    False -> (rest_info, in_plus, env, locals)
                  | dependencies ->
                      (build_or dependencies rest_info, in_plus, env, locals))
-              | (Ast.InitialScriptRule (_,_),_)
-             | (Ast.FinalScriptRule (_,_),_) -> (rest_info,in_plus,env,locals)
+              | (Ast.InitialScriptRule (_,deps,_),_)
+             | (Ast.FinalScriptRule (_,deps,_),_) ->
+                 (match dependencies env deps with
+                   False -> (rest_info, in_plus, env, locals)
+                 | dependencies ->
+                     (build_or dependencies rest_info, in_plus, env, locals))
               | (Ast.CocciRule (nm,(dep,_,_),cur,_,_),neg_pos_vars) ->
                  let (cur_info,cur_plus) =
                    rule_fn cur in_plus ((nm,True)::env)