Testsuite changes reflecting changes to UnixArgs.

This patch changes the tests in the testsuite which refer to UnixArgs.

2022-06-29  Gaius Mulley  <gaius.mulley@southwales.ac.uk>

gcc/testsuite/gm2/ChangeLog:

	* link/pimc/pass/testgetopt.mod: Replace ArgC with
	call to GetArgC and replace ArgV with a call to GetArgV.
	* link/pimc/pass/testunixargs.mod: Replace ArgC with
	call to GetArgC and replace ArgV with a call to GetArgV.

Signed-off-by: Gaius Mulley <gaius.mulley@southwales.ac.uk>

diff --git a/gcc/testsuite/gm2/link/pimc/pass/testgetopt.mod b/gcc/testsuite/gm2/link/pimc/pass/testgetopt.mod
index f84f7666516b4ba468a39526ff393be1deed5393..eec533aa6a500d310b3ab6973e3b1fea49da7695 100644 (file)
--- a/gcc/testsuite/gm2/link/pimc/pass/testgetopt.mod
+++ b/gcc/testsuite/gm2/link/pimc/pass/testgetopt.mod
@@ -61,7 +61,7 @@ BEGIN
    l := InitString (':a:b:c:d:e:o:s:hx:y:') ;
    s := NIL ;
    arg := NIL ;
-   ch := GetOpt (UnixArgs.ArgC, UnixArgs.ArgV, l,
+   ch := GetOpt (UnixArgs.GetArgC (), UnixArgs.GetArgV (), l,
                  arg, optind, opterr, optopt) ;
    WHILE ch # nul DO
       CASE ch OF
@@ -83,7 +83,7 @@ BEGIN
          exit (1)
       END ;
       arg := KillString (arg) ;
-      ch := GetOpt (UnixArgs.ArgC, UnixArgs.ArgV, l,
+      ch := GetOpt (UnixArgs.GetArgC (), UnixArgs.GetArgV (), l,
                     arg, optind, opterr, optopt)
    END
 END HandleOptions ;

diff --git a/gcc/testsuite/gm2/link/pimc/pass/testunixargs.mod b/gcc/testsuite/gm2/link/pimc/pass/testunixargs.mod
index 8b524f51306c4361840a8e6cef7dad4f04025796..b78663f7bf3dcfee0320cf726de7829511ef5407 100644 (file)
--- a/gcc/testsuite/gm2/link/pimc/pass/testunixargs.mod
+++ b/gcc/testsuite/gm2/link/pimc/pass/testunixargs.mod
@@ -2,7 +2,7 @@ MODULE testunixargs ;
 
 (* A trivial test to test for the existence of UnixArgs and SYSTEM.  *)
 
-FROM UnixArgs IMPORT ArgV, ArgC ;
+FROM UnixArgs IMPORT GetArgV, GetArgC ;
 FROM SYSTEM IMPORT ADDRESS ;
 
 VAR