diff options
| author | Gaius Mulley <gaius.mulley@southwales.ac.uk> | 2022-06-29 11:01:59 +0100 |
|---|---|---|
| committer | Gaius Mulley <gaius.mulley@southwales.ac.uk> | 2022-06-29 11:01:59 +0100 |
| commit | b3ba35e9f8859a0b663b158bdc346c889fb69c1d (patch) | |
| tree | 0df54e9f8ce9d968f3de20b9a95b89f36694e1aa | |
| parent | a46dabc0a4456be50c5c51d40b87b20ca4ffc44f (diff) | |
| download | gcc-b3ba35e9f8859a0b663b158bdc346c889fb69c1d.zip gcc-b3ba35e9f8859a0b663b158bdc346c889fb69c1d.tar.gz gcc-b3ba35e9f8859a0b663b158bdc346c889fb69c1d.tar.bz2 | |
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>
| -rw-r--r-- | gcc/testsuite/gm2/link/pimc/pass/testgetopt.mod | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gm2/link/pimc/pass/testunixargs.mod | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/gcc/testsuite/gm2/link/pimc/pass/testgetopt.mod b/gcc/testsuite/gm2/link/pimc/pass/testgetopt.mod index f84f766..eec533a 100644 --- 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 8b524f5..b78663f 100644 --- 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 |