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 255250c3128f1d42c02c1e88f2f0c0a8e0832dda..fa84515a73e2fa5bbffa0b8216b14f7c1090ac79 100644 (file)
--- 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) ;