The EnumDef constructor is changed in the SmPL AST. Reflect these changes in coccilib.
Signed-off-by: Jaskaran Singh <[email protected]> --- ocaml/coccilib.mli | 17 +++++++++++++++-- 1 file changed, 15 insertions(+), 2 deletions(-) diff --git a/ocaml/coccilib.mli b/ocaml/coccilib.mli index 5a913099..9b00e130 100644 --- a/ocaml/coccilib.mli +++ b/ocaml/coccilib.mli @@ -2713,7 +2713,7 @@ module Ast_cocci : | Decimal of string mcode * string mcode * expression * string mcode option * expression option * string mcode | EnumName of string mcode * ident option - | EnumDef of fullType * string mcode * expression dots * string mcode + | EnumDef of fullType * string mcode * enum_decl dots * string mcode | StructUnionName of structUnion mcode * ident option | StructUnionDef of fullType * string mcode * annotated_field dots * string mcode @@ -2789,6 +2789,12 @@ module Ast_cocci : | ConjField of annotated_field list | OptField of annotated_field and annotated_field = base_annotated_field wrap + and base_enum_decl = + Ast_cocci.base_enum_decl = + Enum of ident * (string mcode * expression) option + | EnumComma of string mcode + | EnumDots of string mcode * enum_decl option + and enum_decl = base_enum_decl wrap and base_initialiser = Ast_cocci.base_initialiser = MetaInit of meta_name mcode * constraints * keep_binding * inherited @@ -3357,7 +3363,7 @@ module Ast0_cocci : | Decimal of string mcode * string mcode * expression * string mcode option * expression option * string mcode | EnumName of string mcode * ident option - | EnumDef of typeC * string mcode * expression dots * string mcode + | EnumDef of typeC * string mcode * enum_decl dots * string mcode | StructUnionName of Ast_cocci.structUnion mcode * ident option | StructUnionDef of typeC * string mcode * field dots * string mcode | TypeOfExpr of string mcode * string mcode * expression * string mcode @@ -3408,6 +3414,13 @@ module Ast0_cocci : | OptField of field and bitfield = string mcode * expression and field = base_field wrap + and base_enum_decl = + Ast0_cocci.base_enum_decl = + Enum of ident * (string mcode * expression) option + | EnumComma of string mcode + | EnumDots of string mcode * + (string mcode * string mcode * enum_decl) option + and enum_decl = base_enum_decl wrap and base_initialiser = Ast0_cocci.base_initialiser = MetaInit of Ast_cocci.meta_name mcode * constraints * pure -- 2.21.1 _______________________________________________ Cocci mailing list [email protected] https://systeme.lip6.fr/mailman/listinfo/cocci
