Macrodecl attributes are added to the SmPL AST. 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..9746b085 100644
--- a/parsing_cocci/visitor_ast.ml
+++ b/parsing_cocci/visitor_ast.ml
@@ -470,14 +470,15 @@ let combiner bind option_default
let lrp1 = string_mcode rp1 in
multibind
(lfi @ [lname; llp1; lparams] @ lcomma @ lellipsis @ [lrp1])
- | Ast.MacroDecl(stg,name,lp,args,rp,sem) ->
+ | Ast.MacroDecl(stg,name,lp,args,rp,attr,sem) ->
let lstg = get_option storage_mcode stg in
let lname = ident name in
let llp = string_mcode lp in
let largs = expression_dots args in
let lrp = string_mcode rp in
+ let lattr = multibind (List.map string_mcode attr) in
let lsem = string_mcode sem in
- multibind [lstg; lname; llp; largs; lrp; lsem]
+ multibind [lstg; lname; llp; largs; lrp; lattr; lsem]
| Ast.MacroDeclInit(stg,name,lp,args,rp,eq,ini,sem) ->
let lstg = get_option storage_mcode stg in
let lname = ident name in
@@ -1417,14 +1418,15 @@ let rebuilder
let lrp = string_mcode rp in
let lsem = string_mcode sem in
Ast.FunProto(lfi,lname,llp,lparams,lva,lrp,lsem)
- | Ast.MacroDecl(stg,name,lp,args,rp,sem) ->
+ | Ast.MacroDecl(stg,name,lp,args,rp,attr,sem) ->
let lstg = get_option storage_mcode stg in
let lname = ident name in
let llp = string_mcode lp in
let largs = expression_dots args in
let lrp = string_mcode rp in
+ let lattr = List.map string_mcode attr in
let lsem = string_mcode sem in
- Ast.MacroDecl(lstg, lname, llp, largs, lrp, lsem)
+ Ast.MacroDecl(lstg, lname, llp, largs, lrp, lattr, lsem)
| Ast.MacroDeclInit(stg,name,lp,args,rp,eq,ini,sem) ->
let lstg = get_option storage_mcode stg in
let lname = ident name in
--
2.21.1
_______________________________________________
Cocci mailing list
Cocci@systeme.lip6.fr
https://systeme.lip6.fr/mailman/listinfo/cocci
