diff options
| author | Gaius Mulley <gaiusmod2@gmail.com> | 2022-12-05 14:18:19 +0000 |
|---|---|---|
| committer | Gaius Mulley <gaiusmod2@gmail.com> | 2022-12-05 14:18:19 +0000 |
| commit | 14e295ecf043c7bdf26cca3aa6af104382324aeb (patch) | |
| tree | 31cc7fb3c6f1b03e06edd00fdef8ae2cfea48974 /gcc | |
| parent | 071c72a9e43609501648c7c6170329724b0eca39 (diff) | |
| download | gcc-14e295ecf043c7bdf26cca3aa6af104382324aeb.zip gcc-14e295ecf043c7bdf26cca3aa6af104382324aeb.tar.gz gcc-14e295ecf043c7bdf26cca3aa6af104382324aeb.tar.bz2 | |
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>
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/m2/gm2-compiler/M2Range.mod | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/m2/gm2-compiler/M2Range.mod b/gcc/m2/gm2-compiler/M2Range.mod index 255250c..fa84515 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) ; |