1# Copyright 2010-2020 Free Software Foundation, Inc. 2 3# This program is free software; you can redistribute it and/or modify 4# it under the terms of the GNU General Public License as published by 5# the Free Software Foundation; either version 3 of the License, or 6# (at your option) any later version. 7# 8# This program is distributed in the hope that it will be useful, 9# but WITHOUT ANY WARRANTY; without even the implied warranty of 10# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 11# GNU General Public License for more details. 12# 13# You should have received a copy of the GNU General Public License 14# along with this program. If not, see <http://www.gnu.org/licenses/>. 15 16# Please email any bugs, comments, and/or additions to this file to: 17# bug-gdb@gnu.org 18 19# This file is part of the gdb testsuite. 20 21 22if { ![istarget i?86-*-*] && ![istarget x86_64-*-* ] } { 23 verbose "Skipping x86 AVX tests." 24 return 25} 26 27standard_testfile .c 28 29if [get_compiler_info] { 30 return -1 31} 32 33set additional_flags "" 34if { [test_compiler_info gcc*] || [test_compiler_info clang*] } { 35 set additional_flags "additional_flags=-mavx -I${srcdir}/.." 36} 37 38if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable [list debug $additional_flags]] != "" } { 39 unsupported "compiler does not support AVX" 40 return 41} 42 43clean_restart ${binfile} 44 45if ![runto_main] then { 46 fail "can't run to main" 47 return 0 48} 49 50send_gdb "print have_avx ()\r" 51gdb_expect { 52 -re ".. = 1\r\n$gdb_prompt " { 53 pass "check whether processor supports AVX" 54 } 55 -re ".. = 0\r\n$gdb_prompt " { 56 verbose "processor does not support AVX; skipping AVX tests" 57 return 58 } 59 -re ".*$gdb_prompt $" { 60 fail "check whether processor supports AVX" 61 } 62 timeout { 63 fail "check whether processor supports AVX (timeout)" 64 } 65} 66 67gdb_test "break [gdb_get_line_number "first breakpoint here"]" \ 68 "Breakpoint .* at .*i386-avx.c.*" \ 69 "set first breakpoint in main" 70gdb_continue_to_breakpoint "continue to first breakpoint in main" 71 72if [is_amd64_regs_target] { 73 set nr_regs 16 74} else { 75 set nr_regs 8 76} 77 78for { set r 0 } { $r < $nr_regs } { incr r } { 79 gdb_test "print \$ymm$r.v8_float" \ 80 ".. = \\{$r, $r.125, $r.25, $r.375, $r.5, $r.625, $r.75, $r.875\\}.*" \ 81 "check float contents of %ymm$r" 82 gdb_test "print \$ymm$r.v32_int8" \ 83 ".. = \\{(-?\[0-9\]+, ){31}-?\[0-9\]+\\}.*" \ 84 "check int8 contents of %ymm$r" 85} 86 87for { set r 0 } { $r < $nr_regs } { incr r } { 88 gdb_test "set var \$ymm$r.v8_float\[0\] = $r + 10" "" "set %ymm$r" 89} 90 91gdb_test "break [gdb_get_line_number "second breakpoint here"]" \ 92 "Breakpoint .* at .*i386-avx.c.*" \ 93 "set second breakpoint in main" 94gdb_continue_to_breakpoint "continue to second breakpoint in main" 95 96for { set r 0 } { $r < $nr_regs } { incr r } { 97 gdb_test "print data\[$r\]" \ 98 ".. = \\{f = \\{[expr $r + 10], $r.125, $r.25, $r.375, $r.5, $r.625, $r.75, $r.875\\}\\}.*" \ 99 "check contents of data\[$r\]" 100} 101 102# If testing with a remote protocol target, check that we can 103# force-disable the use of XML descriptions. This should make the 104# client/server fallback to the pre-XML register file. 105 106with_test_prefix "force-disable xml descriptions" { 107 if {[target_info gdb_protocol] == "remote" 108 || [target_info gdb_protocol] == "extended-remote"} { 109 110 save_vars { GDBFLAGS } { 111 append GDBFLAGS " -ex \"set remote target-features-packet off\"" 112 clean_restart ${binfile} 113 } 114 115 if ![runto_main] then { 116 fail "run to main" 117 return 118 } 119 120 # With qXfer:features:read disabled, we won't know anything 121 # about YMM registers. 122 gdb_test "print \$ymm0" " = void" 123 gdb_test "print \$xmm0" "v4_float.*" 124 } 125} 126