Coccinelle release 1.0.0-rc15

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

diff --git a/parsing_cocci/test_exps.ml b/parsing_cocci/test_exps.ml
index 3c2c139..0a11d1b 100644 (file)
--- a/parsing_cocci/test_exps.ml
+++ b/parsing_cocci/test_exps.ml
@@ -1,4 +1,8 @@
 (*
+ * Copyright 2012, INRIA
+ * Julia Lawall, Gilles Muller
+ * Copyright 2010-2011, INRIA, University of Copenhagen
+ * Julia Lawall, Rene Rydhof Hansen, Gilles Muller, Nicolas Palix
  * Copyright 2005-2009, Ecole des Mines de Nantes, University of Copenhagen
  * Yoann Padioleau, Julia Lawall, Rene Rydhof Hansen, Henrik Stuart, Gilles Muller, Nicolas Palix
  * This file is part of Coccinelle.
@@ -20,6 +24,7 @@
  *)
 
 
+# 0 "./test_exps.ml"
 module Ast = Ast_cocci
 module Ast0 = Ast0_cocci
 module V0 = Visitor_ast0
@@ -75,9 +80,9 @@ let set_test_poss =
        Ast0.rewrap s (Ast0.While(i,lp,process_exp e,rp,s1,aft))
     | Ast0.Do(d,s1,w,lp,e,rp,sc) ->
        Ast0.rewrap s (Ast0.Do(d,s1,w,lp,process_exp e,rp,sc))
-    | Ast0.For(f,lp,e1,sc1,Some e2,sc2,e3,rp,s1,aft) ->
+    | Ast0.For(f,lp,first,Some e2,sc2,e3,rp,s1,aft) ->
        Ast0.rewrap s
-         (Ast0.For(f,lp,e1,sc1,Some (process_exp e2),sc2,e3,rp,s1,aft))
+         (Ast0.For(f,lp,first,Some (process_exp e2),sc2,e3,rp,s1,aft))
     | Ast0.Dots(d,wc) ->
        Ast0.rewrap s (Ast0.Dots(d,List.map process_wc wc))
     | Ast0.Nest(l,s1,r,wc,m) ->