[gcc r15-2257] modula2: Improve error message to include symbol name.

[Gaius Mulley via Gcc-cvs]

https://gcc.gnu.org/g:6a99f3ae962542165fdfc077f1040ea4d936691b

commit r15-2257-g6a99f3ae962542165fdfc077f1040ea4d936691b
Author: Gaius Mulley <gaiusm...@gmail.com>
Date:   Wed Jul 24 14:26:39 2024 +0100

    modula2: Improve error message to include symbol name.
    
    gcc/m2/ChangeLog:
    
            * gm2-compiler/M2StateCheck.mod (GenerateError): Add
            symbol name to the error message.
    
    Signed-off-by: Gaius Mulley <gaiusm...@gmail.com>

Diff:
---
 gcc/m2/gm2-compiler/M2StateCheck.mod | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gcc/m2/gm2-compiler/M2StateCheck.mod 
b/gcc/m2/gm2-compiler/M2StateCheck.mod
index e53cb174474c..940c433bcc14 100644
--- a/gcc/m2/gm2-compiler/M2StateCheck.mod
+++ b/gcc/m2/gm2-compiler/M2StateCheck.mod
@@ -306,7 +306,7 @@ PROCEDURE GenerateError (tok: CARDINAL; s: StateCheck; sym: 
CARDINAL) ;
 VAR
    str: String ;
 BEGIN
-   str := InitString ('not expecting a {%1Ad} {%1a: }in a ') ;
+   str := InitString ('not expecting the {%1Ad} {%1a} in a ') ;
    IF const IN s^.state
    THEN
       str := ConCat (str, Mark (InitString ('{%kCONST} block')))