HCoop
/
bpt
/
coccinelle.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Release coccinelle-0.2.5-rc2
[bpt/coccinelle.git]
/
parsing_c
/
token_helpers.ml
diff --git
a/parsing_c/token_helpers.ml
b/parsing_c/token_helpers.ml
index
0a3e2e4
..
e333cb1
100644
(file)
--- a/
parsing_c/token_helpers.ml
+++ b/
parsing_c/token_helpers.ml
@@
-158,7
+158,7
@@
let is_statement = function
let is_start_of_something = function
| Tchar _ | Tshort _ | Tint _ | Tdouble _ | Tfloat _ | Tlong _
let is_start_of_something = function
| Tchar _ | Tshort _ | Tint _ | Tdouble _ | Tfloat _ | Tlong _
- | Tunsigned _ | Tsigned _ | Tvoid _
+ | Tunsigned _ | Tsigned _ | Tvoid _
| Tsize_t _ | Tssize_t _ | Tptrdiff_t _
| Tauto _ | Tregister _ | Textern _ | Tstatic _
| Tconst _ | Tvolatile _
| Ttypedef _
| Tauto _ | Tregister _ | Textern _ | Tstatic _
| Tconst _ | Tvolatile _
| Ttypedef _
@@
-229,7
+229,7
@@
let info_of_tok = function
| TDefine (ii) -> ii
| TInclude (includes, filename, inifdef, i1) -> i1
| TDefine (ii) -> ii
| TInclude (includes, filename, inifdef, i1) -> i1
- | TUndef (
s,
ii) -> ii
+ | TUndef (ii) -> ii
| TCppDirectiveOther (ii) -> ii
| TIncludeStart (i1, inifdef) -> i1
| TCppDirectiveOther (ii) -> ii
| TIncludeStart (i1, inifdef) -> i1
@@
-323,6
+323,9
@@
let info_of_tok = function
| Tunsigned (i) -> i
| Tsigned (i) -> i
| Tvoid (i) -> i
| Tunsigned (i) -> i
| Tsigned (i) -> i
| Tvoid (i) -> i
+ | Tsize_t (i) -> i
+ | Tssize_t (i) -> i
+ | Tptrdiff_t (i) -> i
| Tauto (i) -> i
| Tregister (i) -> i
| Textern (i) -> i
| Tauto (i) -> i
| Tregister (i) -> i
| Textern (i) -> i
@@
-373,7
+376,7
@@
let visitor_info_of_tok f = function
| TDefine (i1) -> TDefine(f i1)
| TDefine (i1) -> TDefine(f i1)
- | TUndef (
s,i1) -> TUndef(s,
f i1)
+ | TUndef (
i1) -> TUndef(
f i1)
| TCppDirectiveOther (i1) -> TCppDirectiveOther(f i1)
| TInclude (includes, filename, inifdef, i1) ->
| TCppDirectiveOther (i1) -> TCppDirectiveOther(f i1)
| TInclude (includes, filename, inifdef, i1) ->
@@
-473,6
+476,9
@@
let visitor_info_of_tok f = function
| Tunsigned (i) -> Tunsigned (f i)
| Tsigned (i) -> Tsigned (f i)
| Tvoid (i) -> Tvoid (f i)
| Tunsigned (i) -> Tunsigned (f i)
| Tsigned (i) -> Tsigned (f i)
| Tvoid (i) -> Tvoid (f i)
+ | Tsize_t (i) -> Tsize_t (f i)
+ | Tssize_t (i) -> Tssize_t (f i)
+ | Tptrdiff_t (i) -> Tptrdiff_t (f i)
| Tauto (i) -> Tauto (f i)
| Tregister (i) -> Tregister (f i)
| Textern (i) -> Textern (f i)
| Tauto (i) -> Tauto (f i)
| Tregister (i) -> Tregister (f i)
| Textern (i) -> Textern (f i)