From: Gaius Mulley <gaiusmod2@gmail.com>
Date: Mon, 5 Dec 2022 14:18:19 +0000 (+0000)
Subject: Add missing procedure name to the range error message.
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=14e295ecf043c7bdf26cca3aa6af104382324aeb;p=thirdparty%2Fgcc.git

Add missing procedure name to the range error message.

Bugfix.  Runtime range errors generated via CodeErrorCheckLoc omit the
procedure name.

gcc/m2/ChangeLog:

	* gm2-compiler/M2Range.mod (CodeErrorCheckLoc): Concat function
	string to range error.

Signed-off-by: Gaius Mulley <gaiusmod2@gmail.com>
---

diff --git a/gcc/m2/gm2-compiler/M2Range.mod b/gcc/m2/gm2-compiler/M2Range.mod
index 255250c3128f..fa84515a73e2 100644
--- a/gcc/m2/gm2-compiler/M2Range.mod
+++ b/gcc/m2/gm2-compiler/M2Range.mod
@@ -2323,6 +2323,7 @@ BEGIN
             scope := GetAnnounceScope (filename, NIL)
          ELSE
             scope := quoteOpen (InitString ('')) ;
+            scope := ConCat (scope, Mark (InitStringCharStar (function))) ;
             scope := ConCat (InitString ("procedure "), quoteClose (scope))
          END ;
          BuildStringParamLoc (location, scope) ;