https://gcc.gnu.org/bugzilla/show_bug.cgi?id=121164

--- Comment #7 from Gaius Mulley <gaius at gcc dot gnu.org> ---
Created attachment 61933
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=61933&action=edit
Followup patch which corrects the location of the cc1gm2 error message


This is a followup patch for PR modula2/121164 to
fix the location for the error message attributed to cc1gm2.

gcc/m2/ChangeLog:

        PR modula2/121164
        * gm2-compiler/P1SymBuild.mod: Remove PutProcTypeParam.
        Remove PutProcTypeParam.
        (CheckFileName): Remove.
        (P1EndBuildDefinitionModule): Correct spelling.
        (P1EndBuildImplementationModule): Ditto.
        (P1EndBuildProgramModule): Ditto.
        (EndBuildInnerModule): Ditto.
        * gm2-compiler/P2SymBuild.mod (P2EndBuildDefModule): Correct
        spelling.
        (P2EndBuildImplementationModule): Ditto.
        (P2EndBuildProgramModule): Ditto.
        (EndBuildInnerModule): Ditto.
        (CheckFormalParameterSection): Ditto.
        * gm2-compiler/P3SymBuild.mod (P3EndBuildDefModule): Ditto.
        * gm2-compiler/PCSymBuild.mod (PCEndBuildDefModule): Ditto.
        (fixupProcedureType): Pass tok to PutProcTypeVarParam.
        Pass tok to PutProcTypeParam.
        * gm2-compiler/SymbolTable.def (PutProcTypeParam): Add tok
        parameter.
        (PutProcTypeVarParam): Ditto.
        * gm2-compiler/SymbolTable.mod (SymParam): At change type to
        CARDINAL.
        New field FullTok.
        New field Scope.
        (SymVarParam): At change type to CARDINAL.
        New field FullTok.
        New field Scope.
        (GetVarDeclTok): Check ShadowVar for NulSym and return At.
        (PutParam): Initialize FullTok.
        Initialize At.
        Initialize Scope.
        (PutVarParam): Initialize FullTok.
        Assign At.
        Initialize Scope.
        (AddProcedureProcTypeParam): Add tok parameter.
        (GetScope): Add ParamSym and VarParamSym clause.
        (PutProcTypeVarParam): Add tok parameter.
        Initialize At.
        Initialize FullTok.
        (GetDeclaredDefinition): Clause ParamSym return At.
        Clause VarParamSym return At.
        (GetDeclaredModule): Ditto.
        (PutDeclaredDefinition): Remove clause ParamSym.
        Remove clause VarParamSym.
        (PutDeclaredModule): Remove clause ParamSym.
        Remove clause VarParamSym.

libgm2/ChangeLog:

        PR modula2/121164
        * libm2iso/Makefile.am (libm2iso_la_M2FLAGS): Add -Wall.
        * libm2iso/Makefile.in: Regenerate.
        * libm2log/Makefile.am (libm2log_la_M2FLAGS): Add -Wall.
        * libm2log/Makefile.in: Regenerate.
        * libm2min/Makefile.am (libm2min_la_M2FLAGS): Add -Wall.
        * libm2min/Makefile.in: Regenerate.
        * libm2pim/Makefile.am (libm2pim_la_M2FLAGS): Add -Wall.
        * libm2pim/Makefile.in: Regenerate.

gcc/testsuite/ChangeLog:

        PR modula2/121164
        * gm2/switches/pedantic-params/fail/arrayofchar.def: New test.
        * gm2/switches/pedantic-params/fail/arrayofchar.mod: New test.

Reply via email to