start validator

[m6w6/ext-psi] / idl / parser.y

diff --git a/idl/parser.y b/idl/parser.y
index 9d71e63560b7ac8e9009e8fd8c83cfd85db75a1b..051533292dcc9cc00ff1d17b1e1a7f0c85ca4915 100644 (file)
--- a/idl/parser.y
+++ b/idl/parser.y
@@ -63,9 +63,15 @@ decl_typedef(def) ::= TYPEDEF NAME(ALIAS) decl_type(type) EOS. {
 }
 
 %type decl {decl*}
-decl(decl) ::= decl_arg(func) LPAREN decl_args(args) RPAREN EOS. {
-       decl = init_decl(func, args);
+decl(decl) ::= decl_abi(abi) decl_arg(func) LPAREN decl_args(args) RPAREN EOS. {
+       decl = init_decl(abi, func, args);
 }
+
+%type decl_abi {decl_abi*}
+decl_abi(abi) ::= NAME(T). {
+       abi = init_decl_abi(T->text);
+}
+
 %type decl_var {decl_var*}
 decl_var(var) ::= NAME(T). {
        var = init_decl_var(T->text, 0);