From: Gaius Mulley <gaiusmod2@gmail.com>
Date: Wed, 24 Jul 2024 13:26:39 +0000 (+0100)
Subject: modula2: Improve error message to include symbol name.
X-Git-Tag: basepoints/gcc-16~7296
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=6a99f3ae962542165fdfc077f1040ea4d936691b;p=thirdparty%2Fgcc.git

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 <gaiusmod2@gmail.com>
---

diff --git a/gcc/m2/gm2-compiler/M2StateCheck.mod b/gcc/m2/gm2-compiler/M2StateCheck.mod
index e53cb174474..940c433bcc1 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')))