[gcc r15-2953] Fix using keywords as identifiers to prevent warnings during build

[Gaius Mulley via Gcc-cvs]

https://gcc.gnu.org/g:6738e9afa36a82a59869ced03a759a3a9e5a81b6

commit r15-2953-g6738e9afa36a82a59869ced03a759a3a9e5a81b6
Author: Gaius Mulley <gaiusm...@gmail.com>
Date:   Fri Aug 16 16:09:53 2024 +0100

    Fix using keywords as identifiers to prevent warnings during build
    
    m2pim/DynamicStrings.mod:1358:27: note: In procedure ‘Slice’: the symbol
    name ‘end’ is legal as an identifier, however as such it might cause
    confusion and is considered bad programming practice
     1358 |    start, end, o: INTEGER ;
    
    m2pim/DynamicStrings.mod:1358:27: note: either the identifier has the
    same name as a keyword or alternatively a keyword has the wrong case
    (‘END’ and ‘end’).
    
    gcc/m2/ChangeLog:
    
            * gm2-libs/DynamicStrings.mod (Slice): Rename end to stop.
    
    Signed-off-by: Wilken Gottwalt <wilken.gottw...@posteo.net>

Diff:
---
 gcc/m2/gm2-libs/DynamicStrings.mod | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/gcc/m2/gm2-libs/DynamicStrings.mod 
b/gcc/m2/gm2-libs/DynamicStrings.mod
index b53f0f285b5..982284d3629 100644
--- a/gcc/m2/gm2-libs/DynamicStrings.mod
+++ b/gcc/m2/gm2-libs/DynamicStrings.mod
@@ -1354,8 +1354,8 @@ END Mult ;
 
 PROCEDURE Slice (s: String; low, high: INTEGER) : String ;
 VAR
-   d, t         : String ;
-   start, end, o: INTEGER ;
+   d, t          : String ;
+   start, stop, o: INTEGER ;
 BEGIN
    IF PoisonOn
    THEN
@@ -1390,7 +1390,7 @@ BEGIN
             ELSE
                start := low - o
             END ;
-            end := Max (Min (MaxBuf, high - o), 0) ;
+            stop := Max (Min (MaxBuf, high - o), 0) ;
             WHILE t^.contents.len = MaxBuf DO
                IF t^.contents.next = NIL
                THEN
@@ -1408,7 +1408,7 @@ BEGIN
                t := t^.contents.next
             END ;
             ConcatContentsAddress (t^.contents,
-                                   ADR (s^.contents.buf[start]), end - start) ;
+                                   ADR (s^.contents.buf[start]), stop - start) 
;
             INC (o, s^.contents.len) ;
             s := s^.contents.next
          END