From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 35828 invoked by alias); 24 Feb 2016 14:40:39 -0000 Mailing-List: contact gdb-patches-help@sourceware.org; run by ezmlm Precedence: bulk List-Id: List-Subscribe: List-Archive: List-Post: List-Help: , Sender: gdb-patches-owner@sourceware.org Received: (qmail 35693 invoked by uid 89); 24 Feb 2016 14:40:32 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-2.6 required=5.0 tests=AWL,BAYES_00,FREEMAIL_FROM,RCVD_IN_DNSWL_LOW,SPF_PASS autolearn=ham version=3.3.2 spammy=20152016 X-HELO: mail-pf0-f170.google.com Received: from mail-pf0-f170.google.com (HELO mail-pf0-f170.google.com) (209.85.192.170) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with (AES128-GCM-SHA256 encrypted) ESMTPS; Wed, 24 Feb 2016 14:40:30 +0000 Received: by mail-pf0-f170.google.com with SMTP id x65so13969910pfb.1 for ; Wed, 24 Feb 2016 06:40:29 -0800 (PST) X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20130820; h=x-gm-message-state:from:to:subject:date:message-id:in-reply-to :references; bh=5HDpN99Ok4qEzN2uUay+7QcL9m5xg5XKNBCB8ynxAMI=; b=D/yJpni5alhohonUplg+dI8LYRAYcU5hESwI1d0w/6Ytv+CA6A0s4DMOPAg7Yw7Zmz 1U5RImnvsL0eVSVmHieHiBueJihEJE69L03RuVhWke2S2aJcbD+Twg+NFrDbsvqR66iP xrxIKlzJ2t2Kc4EQjE1m3k5WSiNZ6LsAW3xU00yYIxoREWlYVoJy+Gt8lQTNnO4OCjQx wRJiqQfOHvoYnhWDIzmTP6DPEdIe4Wmmc285F1JScmCPZmUSUAWE30BUr00HBbtWtUFx pxJSM11L8QLNiYoCthTC4UsvfTDA2pIkzuuBDOGIy/HDBHc7Fi1OSPSq64MCWTAK1frx 7fpA== X-Gm-Message-State: AG10YOS7QSOloVuOAJdW8wq/iVEJsLUqvEQHe1DpOB9OfqkTHb+1ogn/a94rz3V02T0d5Q== X-Received: by 10.98.70.28 with SMTP id t28mr55000889pfa.110.1456324828363; Wed, 24 Feb 2016 06:40:28 -0800 (PST) Received: from E107787-LIN.cambridge.arm.com (gcc1-power7.osuosl.org. [140.211.15.137]) by smtp.gmail.com with ESMTPSA id b63sm5646881pfj.25.2016.02.24.06.40.26 for (version=TLS1_2 cipher=ECDHE-RSA-AES128-SHA bits=128/128); Wed, 24 Feb 2016 06:40:27 -0800 (PST) From: Yao Qi X-Google-Original-From: Yao Qi To: gdb-patches@sourceware.org Subject: [PATCH 1.5/3] Rename gdb.reverse/aarch64.{exp,c} to gdb.reverse/insn-reverse.{exp,c} Date: Wed, 24 Feb 2016 14:40:00 -0000 Message-Id: <1456324818-25547-2-git-send-email-yao.qi@linaro.org> In-Reply-To: <1456324818-25547-1-git-send-email-yao.qi@linaro.org> References: <56CD9259.9040007@redhat.com> <1456324818-25547-1-git-send-email-yao.qi@linaro.org> X-IsSubscribed: yes X-SW-Source: 2016-02/txt/msg00729.txt.bz2 gdb/testsuite: 2016-02-24 Yao Qi * gdb.reverse/aarch64.c: Rename to ... * gdb.reverse/insn-reverse.c: ... it. * gdb.reverse/aarch64.exp: Rename to ... * gdb.reverse/insn-reverse.exp: ... it. --- gdb/testsuite/gdb.reverse/aarch64.c | 121 --------------------------- gdb/testsuite/gdb.reverse/aarch64.exp | 130 ----------------------------- gdb/testsuite/gdb.reverse/insn-reverse.c | 121 +++++++++++++++++++++++++++ gdb/testsuite/gdb.reverse/insn-reverse.exp | 130 +++++++++++++++++++++++++++++ 4 files changed, 251 insertions(+), 251 deletions(-) delete mode 100644 gdb/testsuite/gdb.reverse/aarch64.c delete mode 100644 gdb/testsuite/gdb.reverse/aarch64.exp create mode 100644 gdb/testsuite/gdb.reverse/insn-reverse.c create mode 100644 gdb/testsuite/gdb.reverse/insn-reverse.exp diff --git a/gdb/testsuite/gdb.reverse/aarch64.c b/gdb/testsuite/gdb.reverse/aarch64.c deleted file mode 100644 index 1bfb8b0..0000000 --- a/gdb/testsuite/gdb.reverse/aarch64.c +++ /dev/null @@ -1,121 +0,0 @@ -/* This testcase is part of GDB, the GNU debugger. - - Copyright 2015-2016 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 . */ - -#if (defined __aarch64__) -#include -#endif - -#if (defined __aarch64__) -static void -load (void) -{ - int buf[8]; - - asm ("ld1 { v1.8b }, [%[buf]]\n" - "ld1 { v2.8b, v3.8b }, [%[buf]]\n" - "ld1 { v3.8b, v4.8b, v5.8b }, [%[buf]]\n" - : - : [buf] "r" (buf) - : /* No clobbers */); -} - -static void -move (void) -{ - float32x2_t b1_ = vdup_n_f32(123.0f); - float32_t a1_ = 0; - float64x1_t b2_ = vdup_n_f64(456.0f); - float64_t a2_ = 0; - - asm ("ins %0.s[0], %w1\n" - : "=w"(b1_) - : "r"(a1_), "0"(b1_) - : /* No clobbers */); - - asm ("ins %0.d[1], %x1\n" - : "=w"(b2_) - : "r"(a2_), "0"(b2_) - : /* No clobbers */); -} - -static void -adv_simd_mod_imm (void) -{ - float32x2_t a1 = {2.0, 4.0}; - - asm ("bic %0.2s, #1\n" - "bic %0.2s, #1, lsl #8\n" - : "=w"(a1) - : "0"(a1) - : /* No clobbers */); -} - -static void -adv_simd_scalar_index (void) -{ - float64x2_t b_ = {0.0, 0.0}; - float64_t a_ = 1.0; - float64_t result; - - asm ("fmla %d0,%d1,%2.d[1]" - : "=w"(result) - : "w"(a_), "w"(b_) - : /* No clobbers */); -} - -static void -adv_simd_smlal (void) -{ - asm ("smlal v13.2d, v8.2s, v0.2s"); -} - -static void -adv_simd_vect_shift (void) -{ - asm ("fcvtzs s0, s0, #1"); -} -#endif - -typedef void (*testcase_ftype) (void); - -/* Functions testing instruction decodings. GDB will read n_testcases - to know how many functions to test. */ - -static testcase_ftype testcases[] = -{ -#if (defined __aarch64__) - load, - move, - adv_simd_mod_imm, - adv_simd_scalar_index, - adv_simd_smlal, - adv_simd_vect_shift, -#endif -}; - -static int n_testcases = (sizeof (testcases) / sizeof (testcase_ftype)); - -int -main () -{ - int i = 0; - - for (i = 0; i < n_testcases; i++) - testcases[i] (); - - return 0; -} diff --git a/gdb/testsuite/gdb.reverse/aarch64.exp b/gdb/testsuite/gdb.reverse/aarch64.exp deleted file mode 100644 index f52b40c..0000000 --- a/gdb/testsuite/gdb.reverse/aarch64.exp +++ /dev/null @@ -1,130 +0,0 @@ -# Copyright (C) 2015-2016 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 . - -if ![supports_reverse] { - return -} - -standard_testfile - -if {[prepare_for_testing $testfile.exp $testfile $srcfile \ - [list debug]]} { - untested ${testfile}.exp - return -1 -} -if { ![runto main] } then { - fail "run to main" - return -} - -# Read function name from testcases[N]. - -proc read_testcase { n } { - global gdb_prompt - - set result -1 - gdb_test_multiple "print testcases\[${n}\]" "read name of test case ${n}" { - -re "\[$\].*= .*<(.*)>.*$gdb_prompt $" { - set result $expect_out(1,string) - } - -re "$gdb_prompt $" { } - } - - return $result -} - -# In each function FUNC, GDB turns on process record, and single step -# until program goes to the end of the function. Then, single step -# backward. In each of forward single step and backward single step, -# the contents of registers are saved, and test compares them. If -# there is any differences, a FAIL is emitted. - -proc test { func } { - global hex decimal - global gdb_prompt - - with_test_prefix "$func" { - gdb_breakpoint $func - gdb_test "continue" - - set last_insn "" - set test "disassemble $func" - gdb_test_multiple $test $test { - -re ".*($hex) <\\+$decimal>:\[^\r\n\]+\r\nEnd of assembler dump\.\r\n$gdb_prompt $" { - set last_insn $expect_out(1,string) - } - } - if { $last_insn == "" } { - fail "find the last instruction of function $func" - } - - # Activate process record/replay - gdb_test_no_output "record" "Turn on process record" - - # Registers contents before each forward single step. - set count 0 - for {} {$count < 500} {incr count} { - gdb_test_multiple "x/i \$pc" "" { - -re ".* ($hex) <.*>:\[ \t\]*(.*)\r\n$gdb_prompt $" { - set insn_addr $expect_out(1,string) - - if [expr {$last_insn == $insn_addr}] { - break - } - - set insn_array($count) $expect_out(2,string) - } - } - - set pre_regs($count) [capture_command_output "info all-registers" ""] - gdb_test "si" "" "" - } - - incr count -1 - # Registers contents after each backward single step. - for {set i $count} {$i >= 0} {incr i -1} { - gdb_test "reverse-stepi" "" "" - set post_regs($i) [capture_command_output "info all-registers" ""] - } - - # Compare the register contents. - for {set i 0} {$i < $count} {incr i} { - if { ![gdb_assert { [string compare $pre_regs($i) $post_regs($i)] == 0 } \ - "compare registers on insn $i:$insn_array($i)"] } { - - foreach pre_line [split $pre_regs($i) \n] post_line [split $post_regs($i) \n] { - if { [string compare $pre_line $post_line] } { - verbose -log " -:$pre_line" - verbose -log " +:$post_line" - } - } - } - } - gdb_test "record stop" - } -} - -set n_testcases [get_integer_valueof "n_testcases" 0] - -if { ${n_testcases} == 0 } { - untested "No test" - return 1 -} - -for { set i 0 } { ${i} < ${n_testcases} } { incr i } { - set testcase [read_testcase $i] - - test $testcase -} diff --git a/gdb/testsuite/gdb.reverse/insn-reverse.c b/gdb/testsuite/gdb.reverse/insn-reverse.c new file mode 100644 index 0000000..1bfb8b0 --- /dev/null +++ b/gdb/testsuite/gdb.reverse/insn-reverse.c @@ -0,0 +1,121 @@ +/* This testcase is part of GDB, the GNU debugger. + + Copyright 2015-2016 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 . */ + +#if (defined __aarch64__) +#include +#endif + +#if (defined __aarch64__) +static void +load (void) +{ + int buf[8]; + + asm ("ld1 { v1.8b }, [%[buf]]\n" + "ld1 { v2.8b, v3.8b }, [%[buf]]\n" + "ld1 { v3.8b, v4.8b, v5.8b }, [%[buf]]\n" + : + : [buf] "r" (buf) + : /* No clobbers */); +} + +static void +move (void) +{ + float32x2_t b1_ = vdup_n_f32(123.0f); + float32_t a1_ = 0; + float64x1_t b2_ = vdup_n_f64(456.0f); + float64_t a2_ = 0; + + asm ("ins %0.s[0], %w1\n" + : "=w"(b1_) + : "r"(a1_), "0"(b1_) + : /* No clobbers */); + + asm ("ins %0.d[1], %x1\n" + : "=w"(b2_) + : "r"(a2_), "0"(b2_) + : /* No clobbers */); +} + +static void +adv_simd_mod_imm (void) +{ + float32x2_t a1 = {2.0, 4.0}; + + asm ("bic %0.2s, #1\n" + "bic %0.2s, #1, lsl #8\n" + : "=w"(a1) + : "0"(a1) + : /* No clobbers */); +} + +static void +adv_simd_scalar_index (void) +{ + float64x2_t b_ = {0.0, 0.0}; + float64_t a_ = 1.0; + float64_t result; + + asm ("fmla %d0,%d1,%2.d[1]" + : "=w"(result) + : "w"(a_), "w"(b_) + : /* No clobbers */); +} + +static void +adv_simd_smlal (void) +{ + asm ("smlal v13.2d, v8.2s, v0.2s"); +} + +static void +adv_simd_vect_shift (void) +{ + asm ("fcvtzs s0, s0, #1"); +} +#endif + +typedef void (*testcase_ftype) (void); + +/* Functions testing instruction decodings. GDB will read n_testcases + to know how many functions to test. */ + +static testcase_ftype testcases[] = +{ +#if (defined __aarch64__) + load, + move, + adv_simd_mod_imm, + adv_simd_scalar_index, + adv_simd_smlal, + adv_simd_vect_shift, +#endif +}; + +static int n_testcases = (sizeof (testcases) / sizeof (testcase_ftype)); + +int +main () +{ + int i = 0; + + for (i = 0; i < n_testcases; i++) + testcases[i] (); + + return 0; +} diff --git a/gdb/testsuite/gdb.reverse/insn-reverse.exp b/gdb/testsuite/gdb.reverse/insn-reverse.exp new file mode 100644 index 0000000..f52b40c --- /dev/null +++ b/gdb/testsuite/gdb.reverse/insn-reverse.exp @@ -0,0 +1,130 @@ +# Copyright (C) 2015-2016 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 . + +if ![supports_reverse] { + return +} + +standard_testfile + +if {[prepare_for_testing $testfile.exp $testfile $srcfile \ + [list debug]]} { + untested ${testfile}.exp + return -1 +} +if { ![runto main] } then { + fail "run to main" + return +} + +# Read function name from testcases[N]. + +proc read_testcase { n } { + global gdb_prompt + + set result -1 + gdb_test_multiple "print testcases\[${n}\]" "read name of test case ${n}" { + -re "\[$\].*= .*<(.*)>.*$gdb_prompt $" { + set result $expect_out(1,string) + } + -re "$gdb_prompt $" { } + } + + return $result +} + +# In each function FUNC, GDB turns on process record, and single step +# until program goes to the end of the function. Then, single step +# backward. In each of forward single step and backward single step, +# the contents of registers are saved, and test compares them. If +# there is any differences, a FAIL is emitted. + +proc test { func } { + global hex decimal + global gdb_prompt + + with_test_prefix "$func" { + gdb_breakpoint $func + gdb_test "continue" + + set last_insn "" + set test "disassemble $func" + gdb_test_multiple $test $test { + -re ".*($hex) <\\+$decimal>:\[^\r\n\]+\r\nEnd of assembler dump\.\r\n$gdb_prompt $" { + set last_insn $expect_out(1,string) + } + } + if { $last_insn == "" } { + fail "find the last instruction of function $func" + } + + # Activate process record/replay + gdb_test_no_output "record" "Turn on process record" + + # Registers contents before each forward single step. + set count 0 + for {} {$count < 500} {incr count} { + gdb_test_multiple "x/i \$pc" "" { + -re ".* ($hex) <.*>:\[ \t\]*(.*)\r\n$gdb_prompt $" { + set insn_addr $expect_out(1,string) + + if [expr {$last_insn == $insn_addr}] { + break + } + + set insn_array($count) $expect_out(2,string) + } + } + + set pre_regs($count) [capture_command_output "info all-registers" ""] + gdb_test "si" "" "" + } + + incr count -1 + # Registers contents after each backward single step. + for {set i $count} {$i >= 0} {incr i -1} { + gdb_test "reverse-stepi" "" "" + set post_regs($i) [capture_command_output "info all-registers" ""] + } + + # Compare the register contents. + for {set i 0} {$i < $count} {incr i} { + if { ![gdb_assert { [string compare $pre_regs($i) $post_regs($i)] == 0 } \ + "compare registers on insn $i:$insn_array($i)"] } { + + foreach pre_line [split $pre_regs($i) \n] post_line [split $post_regs($i) \n] { + if { [string compare $pre_line $post_line] } { + verbose -log " -:$pre_line" + verbose -log " +:$post_line" + } + } + } + } + gdb_test "record stop" + } +} + +set n_testcases [get_integer_valueof "n_testcases" 0] + +if { ${n_testcases} == 0 } { + untested "No test" + return 1 +} + +for { set i 0 } { ${i} < ${n_testcases} } { incr i } { + set testcase [read_testcase $i] + + test $testcase +} -- 1.9.1