1# Copyright 2017-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 16standard_testfile 17 18if {[gdb_compile_pthreads "${srcdir}/${subdir}/${srcfile}" "${binfile}" \ 19 executable { debug }] != "" } { 20 return -1 21} 22 23# Generate a native core file. 24 25set corefile [core_find $binfile] 26set core_supported [expr {$corefile != ""}] 27 28# Generate a core file with "gcore". 29 30clean_restart ${binfile} 31 32runto thread_proc 33 34set gcorefile [standard_output_file gcore.test] 35set gcore_supported [gdb_gcore_cmd "$gcorefile" "gcore"] 36 37# Restart gdb and load COREFILE as a core file. SUPPORTED is true iff 38# the core was generated successfully; otherwise, the tests are marked 39# unsupported. 40# 41proc tls_core_test {supported corefile} { 42 upvar target_triplet target_triplet 43 upvar host_triplet host_triplet 44 upvar binfile binfile 45 46 clean_restart ${binfile} 47 48 set test "load core file" 49 if {$supported} { 50 set core_loaded [gdb_core_cmd $corefile $test] 51 } else { 52 set core_loaded 0 53 unsupported $test 54 } 55 56 set test "print thread-local storage variable" 57 if { $core_loaded == 1 } { 58 # This fails in cross-debugging due to the use of native 59 # `libthread_db'. 60 if {![string match $host_triplet $target_triplet]} { 61 setup_kfail "threads/22381" "*-*-*" 62 } 63 gdb_test "p/x foo" "\\$\[0-9]+ = 0xdeadbeef" $test 64 } else { 65 unsupported $test 66 } 67} 68 69with_test_prefix "native" { 70 tls_core_test $core_supported $corefile 71} 72 73with_test_prefix "gcore" { 74 tls_core_test $gcore_supported $gcorefile 75} 76 77gdb_exit 78