From: Gaius Mulley <gaiusmod2@gmail.com>
Date: Fri, 18 Jul 2025 23:05:10 +0000 (+0100)
Subject: [PATCH] PR modula2/121164 Modula 2 build failure
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=19566453d58cbecfddff135881b532ee18d7e2a9;p=thirdparty%2Fgcc.git

[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 <gaiusmod2@gmail.com>
---

diff --git a/gcc/m2/gm2-libs/ARRAYOFCHAR.mod b/gcc/m2/gm2-libs/ARRAYOFCHAR.mod
index f27378a5fc4..41aaf683423 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 ;