From b3ba35e9f8859a0b663b158bdc346c889fb69c1d Mon Sep 17 00:00:00 2001 From: Gaius Mulley Date: Wed, 29 Jun 2022 11:01:59 +0100 Subject: [PATCH] Testsuite changes reflecting changes to UnixArgs. This patch changes the tests in the testsuite which refer to UnixArgs. 2022-06-29 Gaius Mulley 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 --- gcc/testsuite/gm2/link/pimc/pass/testgetopt.mod | 4 ++-- 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 f84f7666516b..eec533aa6a50 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 8b524f51306c..b78663f7bf3d 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 -- 2.47.2