Cast attributes are added to AST0 of SmPL. Visit these attributes in the
SmPL AST visitor.
Signed-off-by: Jaskaran Singh <jaskaransingh7654...@gmail.com>
---
parsing_cocci/visitor_ast.ml | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/parsing_cocci/visitor_ast.ml b/parsing_cocci/visitor_ast.ml
index 8e530114..644bcd5d 100644
--- a/parsing_cocci/visitor_ast.ml
+++ b/parsing_cocci/visitor_ast.ml
@@ -198,12 +198,13 @@ let combiner bind option_default
let lar = string_mcode ar in
let lfield = ident field in
multibind [lexp; lar; lfield]
- | Ast.Cast(lp,ty,rp,exp) ->
+ | Ast.Cast(lp,ty,attr,rp,exp) ->
let llp = string_mcode lp in
let lty = fullType ty in
+ let lattr = multibind (List.map string_mcode attr) in
let lrp = string_mcode rp in
let lexp = expression exp in
- multibind [llp; lty; lrp; lexp]
+ multibind [llp; lty; lattr; lrp; lexp]
| Ast.SizeOfExpr(szf,exp) ->
let lszf = string_mcode szf in
let lexp = expression exp in
@@ -1184,12 +1185,13 @@ let rebuilder
let lar = string_mcode ar in
let lfield = ident field in
Ast.RecordPtAccess(lexp, lar, lfield)
- | Ast.Cast(lp,ty,rp,exp) ->
+ | Ast.Cast(lp,ty,attr,rp,exp) ->
let llp = string_mcode lp in
let lty = fullType ty in
+ let lattr = List.map string_mcode attr in
let lrp = string_mcode rp in
let lexp = expression exp in
- Ast.Cast(llp, lty, lrp, lexp)
+ Ast.Cast(llp, lty, lattr, lrp, lexp)
| Ast.SizeOfExpr(szf,exp) ->
let lszf = string_mcode szf in
let lexp = expression exp in
--
2.21.1
_______________________________________________
Cocci mailing list
Cocci@systeme.lip6.fr
https://systeme.lip6.fr/mailman/listinfo/cocci
