X-Git-Url: http://git.hcoop.net/bpt/coccinelle.git/blobdiff_plain/d3f655c619238baba11f20bc9f55769e66d3e428..f59c9fb7f14038b6e15c3578d930f164a8df9c6c:/parsing_c/token_helpers.ml

diff --git a/parsing_c/token_helpers.ml b/parsing_c/token_helpers.ml
index e333cb1..492c5cd 100644
--- a/parsing_c/token_helpers.ml
+++ b/parsing_c/token_helpers.ml
@@ -222,6 +222,7 @@ let info_of_tok = function
   | TAssign  (assignOp, i) -> i
 
   | TIdent  (s, i) -> i
+  | Tconstructorname  (s, i) -> i
   | TypedefIdent  (s, i) -> i
 
   | TInt  (s, i) -> i
@@ -357,6 +358,7 @@ let info_of_tok = function
   | TattributeNoarg           (i) -> i
   | Tinline              (i) -> i
   | Ttypeof              (i) -> i
+  | Tnew                 (i) -> i
 
   | EOF                  (i) -> i
 
@@ -370,9 +372,10 @@ let visitor_info_of_tok f = function
   | TFloat ((s, floatType), i) -> TFloat ((s, floatType), f i)
   | TAssign  (assignOp, i)     -> TAssign  (assignOp, f i)
 
-  | TIdent  (s, i)       -> TIdent  (s, f i)
-  | TypedefIdent  (s, i) -> TypedefIdent  (s, f i)
-  | TInt  (s, i)         -> TInt  (s, f i)
+  | TIdent  (s, i)         -> TIdent  (s, f i)
+  | Tconstructorname(s, i) -> Tconstructorname  (s, f i)
+  | TypedefIdent  (s, i)   -> TypedefIdent  (s, f i)
+  | TInt  (s, i)           -> TInt  (s, f i)
 
   | TDefine (i1) -> TDefine(f i1)
 
@@ -507,9 +510,10 @@ let visitor_info_of_tok f = function
   | Tsizeof              (i) -> Tsizeof              (f i)
   | Tasm                 (i) -> Tasm                 (f i)
   | Tattribute           (i) -> Tattribute           (f i)
-  | TattributeNoarg           (i) -> TattributeNoarg           (f i)
+  | TattributeNoarg      (i) -> TattributeNoarg           (f i)
   | Tinline              (i) -> Tinline              (f i)
   | Ttypeof              (i) -> Ttypeof              (f i)
+  | Tnew                 (i) -> Tnew                 (f i)
   | EOF                  (i) -> EOF                  (f i)