1# Copyright 2009, 2010, 2011 Free Software Foundation, Inc.
2# This program is free software; you can redistribute it and/or modify
3# it under the terms of the GNU General Public License as published by
4# the Free Software Foundation; either version 3 of the License, or
5# (at your option) any later version.
6#
7# This program is distributed in the hope that it will be useful,
8# but WITHOUT ANY WARRANTY; without even the implied warranty of
9# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
10# GNU General Public License for more details.
11#
12# You should have received a copy of the GNU General Public License
13# along with this program.  If not, see <http://www.gnu.org/licenses/>.
14#
15# Contributed by Jan Kratochvil <jan.kratochvil@redhat.com>.
16
17# Test GDB can cope with two libraries loaded with overlapping VMA ranges.
18# Prelink libraries first so they can be loaded and their native address.
19# In such case `struct linkmap'.l_addr will be zero.  Provide different
20# unprelinked library files on the disk which have zero-based VMAs.  These
21# different files should have their .dynamic section at a different offset in
22# page size so that we get for
23#   warning: .dynamic section for "..." is not at the expected address
24# the reason
25#   (wrong library or version mismatch?)
26# and not:
27#   difference appears to be caused by prelink, adjusting expectations
28# In such case both disk libraries will be loaded at VMAs starting at zero.
29
30if [skip_shlib_tests] {
31    return 0
32}
33
34# Are we on a target board?  It is required for attaching to a process.
35if [is_remote target] {
36    return 0
37}
38
39if [get_compiler_info binfile-unused] {
40    return -1;
41}
42
43# Library file.
44set libname "solib-overlap-lib"
45set srcfile_lib ${srcdir}/${subdir}/${libname}.c
46# Binary file.
47set testfile "solib-overlap-main"
48set srcfile ${srcdir}/${subdir}/${testfile}.c
49
50# Base addresses for `prelink -r' which should be compatible with both -m32 and
51# -m64 targets.  If it clashes with system prelinked libraries it would give
52# false PASS.
53# Prelink first lib1 at 0x40000000 and lib2 at 0x41000000.
54# During second pass try lib1 at 0x50000000 and lib2 at 0x51000000.
55foreach prelink_lib1 {0x40000000 0x50000000} {
56    set prelink_lib2 [format "0x%x" [expr $prelink_lib1 + 0x01000000]]
57
58    set old_prefix $pf_prefix
59    lappend pf_prefix "$prelink_lib1:"
60
61    # Library file.
62    set binfile_lib1 ${objdir}/${subdir}/${libname}1-${prelink_lib1}.so
63    set binfile_lib1_test_msg OBJDIR/${subdir}/${libname}1-${prelink_lib1}.so
64    set binfile_lib2 ${objdir}/${subdir}/${libname}2-${prelink_lib1}.so
65    set binfile_lib2_test_msg OBJDIR/${subdir}/${libname}2-${prelink_lib1}.so
66    set lib_flags {debug}
67    # Binary file.
68    set binfile_base ${testfile}-${prelink_lib1}
69    set binfile ${objdir}/${subdir}/${binfile_base}
70    set binfile_test_msg OBJDIR/${subdir}/${binfile_base}
71    set bin_flags [list debug shlib=${binfile_lib1} shlib=${binfile_lib2}]
72    set escapedbinfile  [string_to_regexp ${binfile}]
73
74    if { [gdb_compile_shlib ${srcfile_lib} ${binfile_lib1} $lib_flags] != ""
75	 || [gdb_compile_shlib ${srcfile_lib} ${binfile_lib2} $lib_flags] != ""
76	 || [gdb_compile ${srcfile} ${binfile} executable $bin_flags] != "" } {
77	untested "Could not compile ${binfile_lib1_test_msg}, ${binfile_lib2_test_msg} or ${binfile_test_msg}."
78	return -1
79    }
80
81    if {[catch "system \"prelink -N -r ${prelink_lib1} ${binfile_lib1}\""] != 0
82	|| [catch "system \"prelink -N -r ${prelink_lib2} ${binfile_lib2}\""] != 0} {
83	# Maybe we don't have prelink.
84	untested "Could not prelink ${binfile_lib1_test_msg} or ${binfile_lib2_test_msg}."
85	return -1
86    }
87
88    # Start the program running and then wait for a bit, to be sure
89    # that it can be attached to.
90
91    set testpid [eval exec $binfile &]
92    sleep 2
93    if { [istarget "*-*-cygwin*"] } {
94	# testpid is the Cygwin PID, GDB uses the Windows PID, which might be
95	# different due to the way fork/exec works.
96	set testpid [ exec ps -e | gawk "{ if (\$1 == $testpid) print \$4; }" ]
97    }
98
99    remote_exec build "mv -f ${binfile_lib1} ${binfile_lib1}-running"
100    remote_exec build "mv -f ${binfile_lib2} ${binfile_lib2}-running"
101
102    # Provide another exported function name to cause different sizes of sections.
103    lappend lib_flags additional_flags=-DSYMB
104
105    if { [gdb_compile_shlib ${srcfile_lib} ${binfile_lib1} $lib_flags] != ""
106	 || [gdb_compile_shlib ${srcfile_lib} ${binfile_lib2} $lib_flags] != ""} {
107	untested "Could not recompile ${binfile_lib1_test_msg} or ${binfile_lib2_test_msg}."
108	remote_exec build "kill -9 ${testpid}"
109	return -1
110    }
111
112    clean_restart ${binfile_base}
113    # This testcase currently does not support remote targets.
114    # gdb_load_shlibs ${binfile_lib1} ${binfile_lib2}
115
116    # Here we should get:
117    # warning: .dynamic section for ".../solib-overlap-lib1.so" is not at the expected address (wrong library or version mismatch?)
118    # warning: .dynamic section for ".../solib-overlap-lib2.so" is not at the expected address (wrong library or version mismatch?)
119
120    set test attach
121    gdb_test_multiple "attach $testpid" $test {
122	-re "Attaching to program.*`?$escapedbinfile'?, process $testpid.*$gdb_prompt $" {
123	    pass $test
124	}
125	-re "Attaching to program.*`?$escapedbinfile\.exe'?, process $testpid.*\[Switching to thread $testpid\..*\].*$gdb_prompt $" {
126	    # Response expected on Cygwin
127	    pass $test
128	}
129    }
130
131    # Detach the process.
132
133    gdb_test "detach" "Detaching from program: .*$escapedbinfile, process $testpid"
134
135    # Wait a bit for gdb to finish detaching
136
137    sleep 5
138
139    remote_exec build "kill -9 ${testpid}"
140
141    set pf_prefix $old_prefix
142}
143