MetaAttributeVal is added to the C AST. Reflect these changes in unparse_hrule.ml.
Signed-off-by: Jaskaran Singh <[email protected]> --- parsing_c/unparse_hrule.ml | 3 +++ 1 file changed, 3 insertions(+) diff --git a/parsing_c/unparse_hrule.ml b/parsing_c/unparse_hrule.ml index 4d7ba93cc..9d6421f31 100644 --- a/parsing_c/unparse_hrule.ml +++ b/parsing_c/unparse_hrule.ml @@ -251,6 +251,7 @@ let print_extra_typedefs pr env = | Ast_c.MetaFieldListVal(fields) -> Visitor_c.vk_struct_fields bigf fields | Ast_c.MetaFmtVal(fmt) -> Visitor_c.vk_string_format bigf fmt + | Ast_c.MetaAttributeVal(attr) -> Visitor_c.vk_attribute bigf attr | Ast_c.MetaFragListVal(frags) -> Visitor_c.vk_string_fragments bigf frags | Ast_c.MetaStmtVal(stm,_,_) -> Visitor_c.vk_statement bigf stm @@ -313,6 +314,8 @@ let rename argids env = Ast_c.MetaFieldListVal(Visitor_c.vk_struct_fields_s bigf stm) | Ast_c.MetaFmtVal(fmt) -> Ast_c.MetaFmtVal(Visitor_c.vk_string_format_s bigf fmt) + | Ast_c.MetaAttributeVal(attr) -> + Ast_c.MetaAttributeVal(Visitor_c.vk_attribute_s bigf attr) | Ast_c.MetaFragListVal(frags) -> Ast_c.MetaFragListVal(Visitor_c.vk_string_fragments_s bigf frags) | Ast_c.MetaStmtVal(stm,original,ty) -> -- 2.21.3 _______________________________________________ Cocci mailing list [email protected] https://systeme.lip6.fr/mailman/listinfo/cocci
