1# tls.exp -- Expect script to test thread-local storage without debuginfo 2# Copyright (C) 2006-2023 Free Software Foundation, Inc. 3 4# This program is free software; you can redistribute it and/or modify 5# it under the terms of the GNU General Public License as published by 6# the Free Software Foundation; either version 3 of the License, or 7# (at your option) any later version. 8# 9# This program is distributed in the hope that it will be useful, 10# but WITHOUT ANY WARRANTY; without even the implied warranty of 11# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 12# GNU General Public License for more details. 13# 14# You should have received a copy of the GNU General Public License 15# along with this program. If not, see <http://www.gnu.org/licenses/>. */ 16 17standard_testfile 18 19if {[istarget "*-*-linux"]} { 20 set target_cflags "-D_MIT_POSIX_THREADS" 21} else { 22 set target_cflags "" 23} 24 25if {[gdb_compile_pthreads "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable []] != "" } { 26 return -1 27} 28 29clean_restart ${binfile} 30if {![runto_main]} { 31 return 0 32} 33 34# Formerly: Cannot access memory at address 0x0 35gdb_test "p thread_local" "'thread_local' has unknown type; cast it to its declared type" \ 36 "thread local storage, unknown type" 37gdb_test "p (int) thread_local" "= 42" \ 38 "thread local storage, cast" 39 40# Done! 41# 42gdb_exit 43 44return 0 45