method vdecltype tdecl =
match tdecl with
| JUSTBASE ->
Cil.SkipChildren;
| PARENTYPE _ ->
self#add_paren ();
Cil.DoChildren;
| ARRAY _ ->
update_val_incr "array" operator_tbl.reserved_tbl;
Cil.DoChildren;
| PTR _ ->
update_val_incr "*" operator_tbl.otherop_tbl;
Cil.DoChildren;
| PROTO _ ->
Cil.SkipChildren;