[gcc/devel/modula-2] Bugfix to include spaces around error message and no scope active message.

[gcc/devel/modula-2] Bugfix to include spaces around error message and no scope active message.

[Gaius Mulley]

https://gcc.gnu.org/g:7f91bb254c4214f89006ea9bf3d64cf3dc965594

commit 7f91bb254c4214f89006ea9bf3d64cf3dc965594
Author: Gaius Mulley <gaius.mulley@southwales.ac.uk>
Date:   Sat Dec 25 15:21:33 2021 +0000

    Bugfix to include spaces around error message and no scope active message.
    
    gcc/m2/ChangeLog:
    
            * gm2-compiler/M2Error.mod (GetAnnounceScope): Issue
            "no scope active" message.  (AnnounceScope) Add ": "
            after the no scope active message.
    
    Signed-off-by: Gaius Mulley <gaius.mulley@southwales.ac.uk>

Diff:
---
 gcc/m2/gm2-compiler/M2Error.mod | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/gcc/m2/gm2-compiler/M2Error.mod b/gcc/m2/gm2-compiler/M2Error.mod
index 420ccf7a4de..379fd67ef4e 100644
--- a/gcc/m2/gm2-compiler/M2Error.mod
+++ b/gcc/m2/gm2-compiler/M2Error.mod
@@ -859,7 +859,7 @@ BEGIN
 
    IF currentScope = NIL
    THEN
-      desc := InitString ('')
+      desc := InitString ("no scope active")
    ELSE
       CASE currentScope^.scopeKind OF
 
@@ -915,7 +915,7 @@ BEGIN
       lastScope := e^.scope ;
       IF IsErrorScopeNul (lastScope)
       THEN
-         RETURN ConCat (InitString ("no scope active"), message)
+         RETURN ConCat (InitString ("no scope active: "), message)
       ELSE
          Assert ((e^.scope # NIL) AND (e^.scope^.scopeKind # noscope)) ;
          (* filename := FindFileNameFromToken (e^.token, 0) ; *)