[gcc/devel/modula-2] Correct module name component in global symbols.

[Gaius Mulley <gaius@gcc.gnu.org>]

https://gcc.gnu.org/g:2525979b7b8d37266db87430c79b2ac0881c996b

commit 2525979b7b8d37266db87430c79b2ac0881c996b
Author: Gaius Mulley <gaius.mulley@southwales.ac.uk>
Date:   Thu Jan 20 16:53:04 2022 +0000

    Correct module name component in global symbols.
    
    2022-20-20  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>
    
    libgm2/ChangeLog:
    
            * cgetopt.c: Replace all occurrences of getopt_ with
            cgetopt_ to conform to the Modula-2 naming scheme.
    
    Signed-off-by: Gaius Mulley <gaius.mulley@southwales.ac.uk>

Diff:
---
 libgm2/libm2pim/cgetopt.c | 38 +++++++++++++++++++-------------------
 1 file changed, 19 insertions(+), 19 deletions(-)

diff --git a/libgm2/libm2pim/cgetopt.c b/libgm2/libm2pim/cgetopt.c
index e76e4e15de6..0b69379a766 100644
--- a/libgm2/libm2pim/cgetopt.c
+++ b/libgm2/libm2pim/cgetopt.c
@@ -28,20 +28,20 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 #include <stdlib.h>
 #include <getopt.h>
 
-char *getopt_optarg;
-int getopt_optind;
-int getopt_opterr;
-int getopt_optopt;
+char *cgetopt_optarg;
+int cgetopt_optind;
+int cgetopt_opterr;
+int cgetopt_optopt;
 
 char
-getopt_getopt (int argc, char *argv[], char *optstring)
+cgetopt_getopt (int argc, char *argv[], char *optstring)
 {
   char r = getopt (argc, argv, optstring);
 
-  getopt_optarg = optarg;
-  getopt_optind = optind;
-  getopt_opterr = opterr;
-  getopt_optopt = optopt;
+  cgetopt_optarg = optarg;
+  cgetopt_optind = optind;
+  cgetopt_opterr = opterr;
+  cgetopt_optopt = optopt;
 
   if (r == (char)-1)
     return (char)0;
@@ -49,29 +49,29 @@ getopt_getopt (int argc, char *argv[], char *optstring)
 }
 
 int
-getopt_getopt_long (int argc, char *argv[], char *optstring,
+cgetopt_getopt_long (int argc, char *argv[], char *optstring,
                     const struct option *longopts, int *longindex)
 {
   int r = getopt_long (argc, argv, optstring, longopts, longindex);
 
-  getopt_optarg = optarg;
-  getopt_optind = optind;
-  getopt_opterr = opterr;
-  getopt_optopt = optopt;
+  cgetopt_optarg = optarg;
+  cgetopt_optind = optind;
+  cgetopt_opterr = opterr;
+  cgetopt_optopt = optopt;
 
   return r;
 }
 
 int
-getopt_getopt_long_only (int argc, char *argv[], char *optstring,
+cgetopt_getopt_long_only (int argc, char *argv[], char *optstring,
                          const struct option *longopts, int *longindex)
 {
   int r = getopt_long_only (argc, argv, optstring, longopts, longindex);
 
-  getopt_optarg = optarg;
-  getopt_optind = optind;
-  getopt_opterr = opterr;
-  getopt_optopt = optopt;
+  cgetopt_optarg = optarg;
+  cgetopt_optind = optind;
+  cgetopt_opterr = opterr;
+  cgetopt_optopt = optopt;
 
   return r;
 }