Remove unused parameter warning via introducing attribute unused.

[gcc.git] / gcc / m2 / gm2-compiler / P1Build.bnf

diff --git a/gcc/m2/gm2-compiler/P1Build.bnf b/gcc/m2/gm2-compiler/P1Build.bnf
index a68908a0bbd583b039568111674e679567381c93..085114a07e9bf9feafef868c6b6f0eb71ec81c65 100644 (file)
--- a/gcc/m2/gm2-compiler/P1Build.bnf
+++ b/gcc/m2/gm2-compiler/P1Build.bnf
@@ -680,24 +680,6 @@ IdentList := Ident                                                         % VAR
                                                                              END %
              =:
 
-IdentScopeList := IdentScope                                               % VAR
-                                                                                on: BOOLEAN ;
-                                                                                n : CARDINAL ; %
-                                                                           % on := IsAutoPushOn() ;
-                                                                             IF on
-                                                                             THEN
-                                                                                n := 1
-                                                                             END %
-             { "," IdentScope                                              % IF on
-                                                                             THEN
-                                                                                INC(n)
-                                                                             END %
-             }                                                             % IF on
-                                                                             THEN
-                                                                                PushT(n)
-                                                                             END %
-             =:
-
 PossiblyExportIdentList := PossiblyExportIdent                             % VAR
                                                                                 on: BOOLEAN ;
                                                                                 n : CARDINAL ; %
@@ -736,6 +718,10 @@ AttributeExpression :=                                                     % Pus
                        Ident '(' ConstExpression ')'                       % PopAuto %
                                                      =:
 
+AttributeUnused := [ "<*"                                                  % PushAutoOff %
+                          Ident                                            % PopAuto %
+                                "*>" ] =:
+
 FieldListSequence := FieldListStatement { ";" FieldListStatement } =:
 
 FieldListStatement := [ FieldList ] =:
@@ -962,9 +948,9 @@ DefExtendedFP := DefOptArg | "..." =:
 
 ExtendedFP := OptArg | "..." =:
 
-VarFPSection := "VAR" IdentScopeList ":" FormalType =:
+VarFPSection := "VAR" IdentList ":" FormalType [ AttributeUnused ] =:
 
-NonVarFPSection := IdentScopeList ":" FormalType =:
+NonVarFPSection := IdentList ":" FormalType [ AttributeUnused ] =:
 
 OptArg := "[" IdentScope ":" FormalType [ "=" ConstExpression ] "]" =: