From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mail-ua1-x931.google.com (mail-ua1-x931.google.com [IPv6:2607:f8b0:4864:20::931]) by sourceware.org (Postfix) with ESMTPS id 9C5A73857C58 for ; Fri, 5 Aug 2022 00:47:13 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.1 sourceware.org 9C5A73857C58 Received: by mail-ua1-x931.google.com with SMTP id c19so509231uat.6 for ; Thu, 04 Aug 2022 17:47:13 -0700 (PDT) X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=content-transfer-encoding:mime-version:references:in-reply-to :message-id:date:subject:cc:to:from:x-gm-message-state:from:to:cc; bh=E3P/iNWhqhdgkIZMOnDjEq/vH8eRYhSYKEZTmTqYJRk=; b=0QogMjk4c8kMXhHBuVjlL3mqJIwNR+VPCVJAn0oIloINwz3fr2ZjWPGRv5UcNHw/rs YqJowKK1t5D9iM9zNcPZS4bVJqim60RY845zwEbR51QYZDW73BM26TpBSCNzfsrqxaKP NB9o9KkN6+L4dzjrBFwwDZT2oACcAoHKxWgs9baR3krR24w02Mmhy8avUE0YQsEN/wEc swh4djItn+9RadR7Vtn+OjxFawz0v77FCB7cOejRoG2P2lCcyttQgL6Wem7IEfj1+kW+ zwk4ScSCWJFByF8rodD3HtyX1zoejKo/V7JCEvM9/uih+BbkheP/ggu2sUrsvqVZNir9 9y4g== X-Gm-Message-State: ACgBeo3tVSFYrBv57WUPxql6JIMTSt2WTLptbihWnYWM1M0cbgeONubw oCsm13kZx5nwgIuEsu2PfBHf/idmHEpNHA== X-Google-Smtp-Source: AA6agR6ms94RB+LMTTizeBGvm6Zo2aega2yP5Eh/kq0gLmM+tprmiToSW413qozZy5LJjhtwSdh7AQ== X-Received: by 2002:a9f:309a:0:b0:386:e63e:4f68 with SMTP id j26-20020a9f309a000000b00386e63e4f68mr2186183uab.99.1659660432894; Thu, 04 Aug 2022 17:47:12 -0700 (PDT) Received: from localhost ([2804:14d:7e39:8470:bfe4:e3f1:491d:133e]) by smtp.gmail.com with ESMTPSA id a6-20020a1fca06000000b003769c0c1bd5sm2110157vkg.14.2022.08.04.17.47.12 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Thu, 04 Aug 2022 17:47:12 -0700 (PDT) From: Thiago Jung Bauermann To: gdb-patches@sourceware.org Subject: [PATCH v2 2/2] gdb/testsuite: Add test for AArch64 Scalable Vector Extension Date: Fri, 5 Aug 2022 00:46:48 +0000 Message-Id: <20220805004648.111358-3-thiago.bauermann@linaro.org> X-Mailer: git-send-email 2.37.1 In-Reply-To: <20220805004648.111358-1-thiago.bauermann@linaro.org> References: <20220805004648.111358-1-thiago.bauermann@linaro.org> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Spam-Status: No, score=-11.2 required=5.0 tests=BAYES_00, DKIM_SIGNED, DKIM_VALID, DKIM_VALID_AU, DKIM_VALID_EF, GIT_PATCH_0, KAM_SHORT, RCVD_IN_DNSWL_NONE, SPF_HELO_NONE, SPF_PASS, TXREP autolearn=ham autolearn_force=no version=3.4.6 X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on server2.sourceware.org X-BeenThere: gdb-patches@sourceware.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gdb-patches mailing list List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Fri, 05 Aug 2022 00:47:16 -0000 It exercises a bug that GDB previously had where it would lose track of some registers when the inferior changed its vector length. It also checks that the vg register and the size of the z0-z31 registers correctly reflect the new vector length. --- gdb/testsuite/gdb.arch/aarch64-sve.c | 64 ++++++++++++++++ gdb/testsuite/gdb.arch/aarch64-sve.exp | 101 +++++++++++++++++++++++++ gdb/testsuite/lib/gdb.exp | 6 ++ gdb/testsuite/lib/mi-support.exp | 4 - 4 files changed, 171 insertions(+), 4 deletions(-) create mode 100644 gdb/testsuite/gdb.arch/aarch64-sve.c create mode 100644 gdb/testsuite/gdb.arch/aarch64-sve.exp diff --git a/gdb/testsuite/gdb.arch/aarch64-sve.c b/gdb/testsuite/gdb.arch/aarch64-sve.c new file mode 100644 index 000000000000..916b5cd82b38 --- /dev/null +++ b/gdb/testsuite/gdb.arch/aarch64-sve.c @@ -0,0 +1,64 @@ +/* This testcase is part of GDB, the GNU debugger. + + Copyright 2022 Free Software Foundation, Inc. + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 3 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see . */ + +/* Exercise AArch64's Scalable Vector Extension. + + This test was based on QEMU's sve-ioctls.c test file. */ + +#include +#include +#include + +static int +do_sve_ioctl_test (void) +{ + int i, res, init_vl; + + res = prctl (PR_SVE_GET_VL, 0, 0, 0, 0); + if (res < 0) + { + printf ("FAILED to PR_SVE_GET_VL (%d)", res); + return -1; + } + init_vl = res & PR_SVE_VL_LEN_MASK; + + for (i = init_vl; i > 15; i /= 2) + { + printf ("Checking PR_SVE_SET_VL=%d\n", i); + res = prctl (PR_SVE_SET_VL, i, 0, 0, 0, 0); /* break here */ + if (res < 0) + { + printf ("FAILED to PR_SVE_SET_VL (%d)", res); + return -1; + } + } + return 0; +} + +int +main (int argc, char **argv) +{ + if (getauxval (AT_HWCAP) & HWCAP_SVE) + { + return do_sve_ioctl_test (); + } + else + { + printf ("SKIP: no HWCAP_SVE on this system\n"); + return 1; + } +} diff --git a/gdb/testsuite/gdb.arch/aarch64-sve.exp b/gdb/testsuite/gdb.arch/aarch64-sve.exp new file mode 100644 index 000000000000..803aae5fdfb2 --- /dev/null +++ b/gdb/testsuite/gdb.arch/aarch64-sve.exp @@ -0,0 +1,101 @@ +# Copyright 2022 Free Software Foundation, Inc. + +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program. If not, see . + +# Test a binary that uses SVE and exercise changing the SVE vector length. + +if {[skip_aarch64_sve_tests]} { + verbose "Skipping ${gdb_test_file_name}." + return +} + +standard_testfile +if { [prepare_for_testing "failed to prepare" ${testfile} ${srcfile}] } { + return +} + +set linespec ${srcfile}:[gdb_get_line_number "break here"] + +if ![runto ${linespec}] { + return +} + +# Count number of lines in "info registers" output. +proc count_info_registers {} { + global gdb_prompt + set ret 0 + + gdb_test_multiple "info all-registers" "" { + -re ".*$gdb_prompt $" { + set ret [count_newlines $expect_out(buffer)] + } + } + + return ${ret} +} + +proc get_register_value {register} { + global gdb_prompt + set ret "" + + gdb_test_multiple "print \$${register}" "" { + -re ". = \[0-9\]+\r\n$gdb_prompt $" { + regexp {. = ([0-9]+)} $expect_out(buffer) matched ret + } + -re ".*$gdb_prompt $" { + } + } + + return ${ret} +} + +# The test executable halves the vector length in a loop, so loop along +# to check it. +for {set i [get_register_value "vg"]} {$i > 1} {set i [expr $i / 2]} { + set lines_before [count_info_registers] + + gdb_test "next" ".*if .res < 0." "step over prctl vg = ${i}" + + set lines_after [count_info_registers] + + # There was a bug where GDB would lose track of some registers when the + # vector length changed. Make sure they're still all there. + if {${lines_before} == ${lines_after}} { + pass "same number of registers vg = ${i}" + } else { + fail "same number of registers vg = ${i}" + } + + gdb_test "print \$vg" ". = ${i}" "vg was changed to ${i}" + + set size_after [expr {$i * 8}] + + for {set j 0} {$j < 32} {set j [incr j]} { + gdb_test "print sizeof(\$z$j)" ". = ${size_after}" "z$j has ${size_after} bytes" + } + + gdb_test_multiple "continue" "" { + -re ".*Breakpoint $decimal, do_sve_ioctl_test .*$gdb_prompt $" { + # Next iteration. + } + -re "Inferior 1 .* exited normally.*$gdb_prompt $" { + # We're done. + break + } + -re "$gdb_prompt $" { + fail "unexpected output" + break; + } + } +} diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index a8f25b5f0dd5..b6bfa8eaafa5 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -7885,6 +7885,12 @@ proc multi_line_input { args } { return [join $args "\n"] } +# Return how many newlines there are in the given string. + +proc count_newlines { string } { + return [regexp -all "\n" $string] +} + # Return the version of the DejaGnu framework. # # The return value is a list containing the major, minor and patch version diff --git a/gdb/testsuite/lib/mi-support.exp b/gdb/testsuite/lib/mi-support.exp index ca56e12b06bf..e821c0f6914f 100644 --- a/gdb/testsuite/lib/mi-support.exp +++ b/gdb/testsuite/lib/mi-support.exp @@ -1728,10 +1728,6 @@ set mi_autotest_data "" # The name of the source file for autotesting. set mi_autotest_source "" -proc count_newlines { string } { - return [regexp -all "\n" $string] -} - # Prepares for running inline tests in FILENAME. # See comments for mi_run_inline_test for detailed # explanation of the idea and syntax.