diff options
author | Elena Zannoni <ezannoni@kwikemart.cygnus.com> | 2003-07-22 15:49:45 +0000 |
---|---|---|
committer | Elena Zannoni <ezannoni@kwikemart.cygnus.com> | 2003-07-22 15:49:45 +0000 |
commit | 8bc2021fdcd6e4a91a4ae0cfe81c518112fc5c0f (patch) | |
tree | f7569a1e72dded42b93155dafdeadb310bb8c235 /gdb/testsuite/gdb.threads/tls-shared.exp | |
parent | c3228f12381fe247c089a315455beced163f88e0 (diff) | |
download | fsf-binutils-gdb-8bc2021fdcd6e4a91a4ae0cfe81c518112fc5c0f.zip fsf-binutils-gdb-8bc2021fdcd6e4a91a4ae0cfe81c518112fc5c0f.tar.gz fsf-binutils-gdb-8bc2021fdcd6e4a91a4ae0cfe81c518112fc5c0f.tar.bz2 |
2003-07-22 Elena Zannoni <ezannoni@redhat.com>
* gdb.threads/tls.c : New file.
* gdb.threads/tls.exp : New file.
* gdb.threads/tls-main.c : New file.
* gdb.threads/tls-shared.c : New file.
* gdb.threads/tls-shared.exp : New file.
Diffstat (limited to 'gdb/testsuite/gdb.threads/tls-shared.exp')
-rw-r--r-- | gdb/testsuite/gdb.threads/tls-shared.exp | 115 |
1 files changed, 115 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.threads/tls-shared.exp b/gdb/testsuite/gdb.threads/tls-shared.exp new file mode 100644 index 0000000..e8c536b --- /dev/null +++ b/gdb/testsuite/gdb.threads/tls-shared.exp @@ -0,0 +1,115 @@ +# Copyright 2003 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 2 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, write to the Free Software +# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ + +# Please email any bugs, comments, and/or additions to this file to: +# bug-gdb@prep.ai.mit.edu + +# tls-shared.exp -- Expect script to test thread local storage in gdb, with +# shared libraries. + +if $tracelevel then { + strace $tracelevel +} + +set testfile tls-main +set libfile tls-shared +set srcfile ${testfile}.c +set binfile ${objdir}/${subdir}/${testfile} + +remote_exec build "rm -f ${binfile}" + +# get the value of gcc_compiled +if [get_compiler_info ${binfile}] { + return -1 +} + +if { [gdb_compile_pthreads "${srcdir}/${subdir}/${srcfile}" "${binfile}.o" object {debug}] != "" } { + return -1 +} + +# Build the shared libraries this test case needs. +# + +if {$gcc_compiled == 0} { + if [istarget "hppa*-hp-hpux*"] then { + set additional_flags "additional_flags=+z" + } elseif { [istarget "mips-sgi-irix*"] } { + # Disable SGI compiler's implicit -Dsgi + set additional_flags "additional_flags=-Usgi" + } else { + # don't know what the compiler is... + set additional_flags "" + } +} else { + if { ([istarget "powerpc*-*-aix*"] + || [istarget "rs6000*-*-aix*"]) } { + set additional_flags "" + } else { + set additional_flags "additional_flags=-fpic" + } +} + +set additional_flags "$additional_flags -shared" +if {[gdb_compile_pthreads "${srcdir}/${subdir}/${libfile}.c" "${objdir}/${subdir}/${libfile}.so" executable [list debug $additional_flags "incdir=${objdir}"]] != ""} { + return -1 +} + +if { ($gcc_compiled +&& ([istarget "powerpc*-*-aix*"] +|| [istarget "rs6000*-*-aix*"] )) } { + set additional_flags "additional_flags=-L${objdir}/${subdir}" +} elseif { [istarget "mips-sgi-irix*"] } { + set additional_flags "additional_flags=-rpath ${objdir}/${subdir}" +} else { + set additional_flags "" +} + +if {[gdb_compile_pthreads "${objdir}/${subdir}/${testfile}.o ${objdir}/${subdir}/${libfile}.so" "${binfile}" executable [list debug $additional_flags]] != ""} { + gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail." +} + + +gdb_exit +gdb_start +gdb_reinitialize_dir $srcdir/$subdir +gdb_load ${binfile} + +if ![runto_main] then { + fail "Can't run to main" + return 0 +} + +gdb_test "print i_tls" "2" "print thread local storage variable" + +gdb_test "ptype i_tls" "int" "ptype of thread local storage variable" + +gdb_test "info address i_tls" \ + "Symbol \\\"i_tls\\\" is a thread-local variable at offset 0 in the thread-local storage for .*tls-main.." \ + "print storage info for thread local storage variable" + +set line_number [gdb_get_line_number "break here to check result"] + +gdb_test "break $line_number" \ + "Breakpoint.*at.*file.*tls-main.c.*line ${line_number}." \ + "break at and of main" +gdb_test "continue" \ + "main .* at .*:.*return 0.*break here to check result.*" \ + "continue to break" +# This is more of a gcc/glibc test, really. +# +gdb_test "print result" "3" "print result" + + |