public inbox for gcc-patches@gcc.gnu.org
 help / color / mirror / Atom feed
From: Richard Biener <richard.guenther@gmail.com>
To: Torbjorn SVENSSON <torbjorn.svensson@foss.st.com>
Cc: gcc-patches@gcc.gnu.org, richard.earnshaw@arm.com, nathan@acm.org
Subject: Re: PING^5 [PATCH] testsuite: Verify that module-mapper is available
Date: Fri, 18 Nov 2022 09:14:26 +0100	[thread overview]
Message-ID: <CAFiYyc2GeFnz7P_nFtKMM+=yW0+OSrRv-j0CrdrhFpTieAA+JA@mail.gmail.com> (raw)
In-Reply-To: <81cd87f1-8125-faf4-1617-f00b230720ed@foss.st.com>

On Thu, Nov 17, 2022 at 6:09 PM Torbjorn SVENSSON via Gcc-patches
<gcc-patches@gcc.gnu.org> wrote:
>
> Hi,
>
> Ping, https://gcc.gnu.org/pipermail/gcc-patches/2022-November/604895.html
>
> Ok for trunk?

OK.

> Kind regards,
> Torbjörn
>
> On 2022-11-02 19:13, Torbjorn SVENSSON wrote:
> > Hi,
> >
> > Ping, https://gcc.gnu.org/pipermail/gcc-patches/2022-October/602844.html
> >
> > Ok for trunk?
> >
> > Kind regards,
> > Torbjörn
> >
> > On 2022-10-25 16:24, Torbjorn SVENSSON via Gcc-patches wrote:
> >> Hi,
> >>
> >> Ping, https://gcc.gnu.org/pipermail/gcc-patches/2022-October/603544.html
> >>
> >> Kind regards,
> >> Torbjörn
> >>
> >> On 2022-10-14 09:42, Torbjorn SVENSSON wrote:
> >>> Hi,
> >>>
> >>> Ping, https://gcc.gnu.org/pipermail/gcc-patches/2022-October/602843.html
> >>>
> >>> Kind regards,
> >>> Torbjörn
> >>>
> >>> On 2022-10-05 11:17, Torbjorn SVENSSON wrote:
> >>>> Hi,
> >>>>
> >>>> Ping,
> >>>> https://gcc.gnu.org/pipermail/gcc-patches/2022-September/602111.html
> >>>>
> >>>> Kind regards,
> >>>> Torbjörn
> >>>>
> >>>> On 2022-09-23 14:03, Torbjörn SVENSSON wrote:
> >>>>> For some test cases, it's required that the optional module mapper
> >>>>> "g++-mapper-server" is built. As the server is not required, the
> >>>>> test cases will fail if it can't be found.
> >>>>>
> >>>>> gcc/testsuite/ChangeLog:
> >>>>>
> >>>>>     * lib/target-supports.exp (check_is_prog_name_available):
> >>>>>     New.
> >>>>>     * lib/target-supports-dg.exp
> >>>>>     (dg-require-prog-name-available): New.
> >>>>>     * g++.dg/modules/modules.exp: Verify avilability of module
> >>>>>     mapper.
> >>>>>
> >>>>> Signed-off-by: Torbjörn SVENSSON  <torbjorn.svensson@foss.st.com>
> >>>>> ---
> >>>>>   gcc/testsuite/g++.dg/modules/modules.exp | 31
> >>>>> ++++++++++++++++++++++++
> >>>>>   gcc/testsuite/lib/target-supports-dg.exp | 15 ++++++++++++
> >>>>>   gcc/testsuite/lib/target-supports.exp    | 15 ++++++++++++
> >>>>>   3 files changed, 61 insertions(+)
> >>>>>
> >>>>> diff --git a/gcc/testsuite/g++.dg/modules/modules.exp
> >>>>> b/gcc/testsuite/g++.dg/modules/modules.exp
> >>>>> index afb323d0efd..4784803742a 100644
> >>>>> --- a/gcc/testsuite/g++.dg/modules/modules.exp
> >>>>> +++ b/gcc/testsuite/g++.dg/modules/modules.exp
> >>>>> @@ -279,6 +279,29 @@ proc module-init { src } {
> >>>>>       return $option_list
> >>>>>   }
> >>>>> +# Return 1 if requirements are met
> >>>>> +proc module-check-requirements { tests } {
> >>>>> +    foreach test $tests {
> >>>>> +    set tmp [dg-get-options $test]
> >>>>> +    foreach op $tmp {
> >>>>> +        switch [lindex $op 0] {
> >>>>> +        "dg-additional-options" {
> >>>>> +            # Example strings to match:
> >>>>> +            # -fmodules-ts -fmodule-mapper=|@g++-mapper-server\\
> >>>>> -t\\ [srcdir]/inc-xlate-1.map
> >>>>> +            # -fmodules-ts -fmodule-mapper=|@g++-mapper-server
> >>>>> +            if [regexp -- {(^| )-fmodule-mapper=\|@([^\\ ]*)}
> >>>>> [lindex $op 2] dummy dummy2 prog] {
> >>>>> +            verbose "Checking that mapper exist: $prog"
> >>>>> +            if { ![ check_is_prog_name_available $prog ] } {
> >>>>> +                return 0
> >>>>> +            }
> >>>>> +            }
> >>>>> +        }
> >>>>> +        }
> >>>>> +    }
> >>>>> +    }
> >>>>> +    return 1
> >>>>> +}
> >>>>> +
> >>>>>   # cleanup any detritus from previous run
> >>>>>   cleanup_module_files [find $DEFAULT_REPO *.gcm]
> >>>>> @@ -307,6 +330,14 @@ foreach src [lsort [find $srcdir/$subdir
> >>>>> {*_a.[CHX}]] {
> >>>>>       set tests [lsort [find [file dirname $src] \
> >>>>>                     [regsub {_a.[CHX]$} [file tail $src]
> >>>>> {_[a-z].[CHX]}]]]
> >>>>> +    if { ![module-check-requirements $tests] } {
> >>>>> +        set testcase [regsub {_a.[CH]} $src {}]
> >>>>> +        set testcase \
> >>>>> +        [string range $testcase [string length "$srcdir/"] end]
> >>>>> +        unsupported $testcase
> >>>>> +        continue
> >>>>> +    }
> >>>>> +
> >>>>>       set std_list [module-init $src]
> >>>>>       foreach std $std_list {
> >>>>>           set mod_files {}
> >>>>> diff --git a/gcc/testsuite/lib/target-supports-dg.exp
> >>>>> b/gcc/testsuite/lib/target-supports-dg.exp
> >>>>> index aa2164bc789..6ce3b2b1a1b 100644
> >>>>> --- a/gcc/testsuite/lib/target-supports-dg.exp
> >>>>> +++ b/gcc/testsuite/lib/target-supports-dg.exp
> >>>>> @@ -683,3 +683,18 @@ proc dg-require-symver { args } {
> >>>>>       set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
> >>>>>       }
> >>>>>   }
> >>>>> +
> >>>>> +# If this target does not provide prog named "$args", skip this test.
> >>>>> +
> >>>>> +proc dg-require-prog-name-available { args } {
> >>>>> +    # The args are within another list; pull them out.
> >>>>> +    set args [lindex $args 0]
> >>>>> +
> >>>>> +    set prog [lindex $args 1]
> >>>>> +
> >>>>> +    if { ![ check_is_prog_name_available $prog ] } {
> >>>>> +        upvar dg-do-what dg-do-what
> >>>>> +        set dg-do-what [list [lindex ${dg-do-what} 0] "N" "P"]
> >>>>> +    }
> >>>>> +}
> >>>>> +
> >>>>> diff --git a/gcc/testsuite/lib/target-supports.exp
> >>>>> b/gcc/testsuite/lib/target-supports.exp
> >>>>> index 703aba412a6..c3b7a6c17b3 100644
> >>>>> --- a/gcc/testsuite/lib/target-supports.exp
> >>>>> +++ b/gcc/testsuite/lib/target-supports.exp
> >>>>> @@ -11928,3 +11928,18 @@ main:
> >>>>>       .byte 0
> >>>>>     } ""]
> >>>>>   }
> >>>>> +
> >>>>> +# Return 1 if this target has prog named "$prog", 0 otherwise.
> >>>>> +
> >>>>> +proc check_is_prog_name_available { prog } {
> >>>>> +    global tool
> >>>>> +
> >>>>> +    set options [list "additional_flags=-print-prog-name=$prog"]
> >>>>> +    set output [lindex [${tool}_target_compile "" "" "none"
> >>>>> $options] 0]
> >>>>> +
> >>>>> +    if { $output == $prog } {
> >>>>> +        return 0
> >>>>> +    }
> >>>>> +
> >>>>> +    return 1
> >>>>> +}

  reply	other threads:[~2022-11-18  8:14 UTC|newest]

Thread overview: 8+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2022-09-23 12:03 [PATCH] testsuite: Verify that module-mapper is avialable Torbjörn SVENSSON
2022-10-05  9:17 ` PING^1 [PATCH] testsuite: Verify that module-mapper is available Torbjorn SVENSSON
2022-10-14  7:42   ` PING^2 " Torbjorn SVENSSON
2022-10-25 14:24     ` PING^3 " Torbjorn SVENSSON
2022-11-02 18:13       ` PING^4 " Torbjorn SVENSSON
2022-11-17 16:45         ` PING^5 " Torbjorn SVENSSON
2022-11-18  8:14           ` Richard Biener [this message]
2022-11-18 10:32             ` Torbjorn SVENSSON

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to='CAFiYyc2GeFnz7P_nFtKMM+=yW0+OSrRv-j0CrdrhFpTieAA+JA@mail.gmail.com' \
    --to=richard.guenther@gmail.com \
    --cc=gcc-patches@gcc.gnu.org \
    --cc=nathan@acm.org \
    --cc=richard.earnshaw@arm.com \
    --cc=torbjorn.svensson@foss.st.com \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).