[gcc r15-10010] [PATCH] PR modula2/121164 Modula 2 build failure

[Gaius Mulley via Gcc-cvs]

https://gcc.gnu.org/g:19566453d58cbecfddff135881b532ee18d7e2a9

commit r15-10010-g19566453d58cbecfddff135881b532ee18d7e2a9
Author: Gaius Mulley <gaiusm...@gmail.com>
Date:   Sat Jul 19 00:05:10 2025 +0100

    [PATCH] PR modula2/121164 Modula 2 build failure
    
    This patch fixes the 2nd parameter name mismatch in
    ARRAYOFCHAR.mod.
    
    gcc/m2/ChangeLog:
    
            PR modula2/121164
            * gm2-libs/ARRAYOFCHAR.mod (Write): Rename 2nd parameter
            name a to str.
    
    (cherry picked from commit 22d8b89689769e5efefd2c4e6dda88d9f0b2a945)
    
    Signed-off-by: Gaius Mulley <gaiusm...@gmail.com>

Diff:
---
 gcc/m2/gm2-libs/ARRAYOFCHAR.mod | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/gcc/m2/gm2-libs/ARRAYOFCHAR.mod b/gcc/m2/gm2-libs/ARRAYOFCHAR.mod
index f27378a5fc45..41aaf683423f 100644
--- a/gcc/m2/gm2-libs/ARRAYOFCHAR.mod
+++ b/gcc/m2/gm2-libs/ARRAYOFCHAR.mod
@@ -34,14 +34,14 @@ IMPORT StrLib ;
    Write - writes a string to file f.
 *)
 
-PROCEDURE Write (f: File; a: ARRAY OF CHAR) ;
+PROCEDURE Write (f: File; str: ARRAY OF CHAR) ;
 VAR
    len, i: CARDINAL ;
 BEGIN
-   len := StrLib.StrLen (a) ;
+   len := StrLib.StrLen (str) ;
    i := 0 ;
    WHILE i < len DO
-      WriteChar (f, a[i]) ;
+      WriteChar (f, str[i]) ;
       INC (i)
    END
 END Write ;