1# Copyright 2003-2015 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# tls-shared.exp -- Expect script to test thread local storage in gdb, with 17# shared libraries. 18 19standard_testfile tls-main.c 20set libfile tls-shared 21set srcfile_lib ${libfile}.c 22set binfile_lib [standard_output_file ${libfile}.so] 23 24remote_exec build "rm -f ${binfile}" 25 26# get the value of gcc_compiled 27if [get_compiler_info] { 28 return -1 29} 30 31 32if { [gdb_compile_shlib_pthreads ${srcdir}/${subdir}/${srcfile_lib} ${binfile_lib} {debug}] != "" 33 || [gdb_compile_pthreads ${srcdir}/${subdir}/${srcfile} ${binfile} executable [list debug shlib=${binfile_lib}]] != ""} { 34 return -1 35} 36 37 38clean_restart ${binfile} 39gdb_load_shlibs ${binfile_lib} 40 41if ![runto_main] then { 42 fail "Can't run to main" 43 return 0 44} 45 46gdb_test "print i_tls" "2" "print thread local storage variable" 47 48gdb_test "ptype i_tls" "int" "ptype of thread local storage variable" 49 50gdb_test "info address i_tls" \ 51 "Symbol \\\"i_tls\\\" is a thread-local variable at offset 0x0 in the thread-local storage for .*tls-shared.." \ 52 "print storage info for thread local storage variable" 53 54set line_number [gdb_get_line_number "break here to check result"] 55 56gdb_test "break $line_number" \ 57 "Breakpoint.*at.*file.*tls-main.c.*line ${line_number}." \ 58 "break at and of main" 59gdb_test "continue" \ 60 "main .* at .*:.*return 0.*break here to check result.*" \ 61 "continue to break" 62# This is more of a gcc/glibc test, really. 63# 64gdb_test "print result" "3" "print result" 65 66 67