Bugfix detect assigning constant constructors within a code block.

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

diff --git a/gcc/m2/gm2-compiler/PHBuild.bnf b/gcc/m2/gm2-compiler/PHBuild.bnf
index 472fd0ba7a04dc99e8d3817868690f33bf8a1d56..9efc005327b29507b5fe4c4efb243ba645d47d54 100644 (file)
--- a/gcc/m2/gm2-compiler/PHBuild.bnf
+++ b/gcc/m2/gm2-compiler/PHBuild.bnf
@@ -61,7 +61,7 @@ FROM M2Quads IMPORT PushT, PopT, PushTF, PopTF, PopNothing, PushTFtok, PopTFtok,
                     EndBuildInit,
                     BuildProcedureStart,
                     BuildProcedureEnd,
-                    BuildAssignment,
+                    BuildAssignment, BuildAssignConstant,
                     BuildFunctionCall, BuildConstFunctionCall,
                     BuildBinaryOp, BuildUnaryOp, BuildRelOp, BuildNot,
                    BuildEmptySet, BuildInclRange, BuildInclBit,
@@ -612,7 +612,7 @@ ConstantDeclaration :=                                                     % Pus
                                                                            % VAR tokno: CARDINAL ; %
                        ( Ident "="                                         % tokno := GetTokenNo () %
                                                                            % BuildConst %
-                         ConstExpression )                                 % BuildAssignment (tokno) %
+                         ConstExpression )                                 % BuildAssignConstant (tokno) %
                                                                            % PopAuto %
                      =: