[gcc(refs/users/gaius/heads/devel/modula-2)] Change all source file references of the module getopt to cgetopt.

[gcc(refs/users/gaius/heads/devel/modula-2)] Change all source file references of the module getopt to cgetopt.

[Gaius Mulley]

https://gcc.gnu.org/g:fba8b7553ae27d0c5c50eb0a79352d16e96543b6

commit fba8b7553ae27d0c5c50eb0a79352d16e96543b6
Author: Gaius Mulley <gaius.mulley@southwales.ac.uk>
Date:   Thu Aug 12 17:24:22 2021 +0100

    Change all source file references of the module getopt to cgetopt.
    
    2021-08-12  Gaius Mulley  <gaius.mulley@southwales.ac.uk>
    
    gcc/m2/ChangeLog:
    
            * m2/gm2-libs/GetOpt.mod:  Rename the getopt module with cgetopt
            to avoid a clash of source filenames in the gcc tree.
    
    Signed-off-by: Gaius Mulley <gaius.mulley@southwales.ac.uk>

Diff:
---
 gcc/m2/gm2-libs/GetOpt.mod | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/gcc/m2/gm2-libs/GetOpt.mod b/gcc/m2/gm2-libs/GetOpt.mod
index f41a524f48c..dc4ba1be57e 100644
--- a/gcc/m2/gm2-libs/GetOpt.mod
+++ b/gcc/m2/gm2-libs/GetOpt.mod
@@ -30,7 +30,7 @@ FROM DynamicStrings IMPORT string, InitStringCharStar ;
 FROM Storage IMPORT ALLOCATE, REALLOCATE, DEALLOCATE ;
 FROM MemUtils IMPORT MemCopy ;
 
-IMPORT getopt ;
+IMPORT cgetopt ;
 
 
 TYPE
@@ -61,10 +61,10 @@ PROCEDURE GetOpt (argc: INTEGER; argv: ADDRESS; optstring: String;
 VAR
    r: CHAR ;
 BEGIN
-   r := getopt.getopt (argc, argv, string (optstring)) ;
-   optarg := InitStringCharStar (getopt.optarg) ;
-   opterr := getopt.opterr ;
-   optopt := getopt.optopt ;
+   r := cgetopt.getopt (argc, argv, string (optstring)) ;
+   optarg := InitStringCharStar (cgetopt.optarg) ;
+   opterr := cgetopt.opterr ;
+   optopt := cgetopt.optopt ;
    RETURN r
 END GetOpt ;
 
@@ -189,7 +189,7 @@ PROCEDURE GetOptLong (argc: INTEGER; argv: ADDRESS; optstring: String;
 VAR
    r: INTEGER ;
 BEGIN
-   r := getopt.getopt_long (argc, argv, string (optstring), longopts^.cptr, longindex) ;
+   r := cgetopt.getopt_long (argc, argv, string (optstring), longopts^.cptr, longindex) ;
    RETURN r
 END GetOptLong ;
 
@@ -204,7 +204,7 @@ PROCEDURE GetOptLongOnly (argc: INTEGER; argv: ADDRESS; optstring: String;
 VAR
    r: INTEGER ;
 BEGIN
-   r := getopt.getopt_long_only (argc, argv, string (optstring),
+   r := cgetopt.getopt_long_only (argc, argv, string (optstring),
                                  longopts^.cptr, longindex) ;
    RETURN r
 END GetOptLongOnly ;