[gdb/testsuite] Use pie instead of -fPIE -pie
[binutils-gdb.git] / gdb / testsuite / gdb.base / jit-elf.exp
1 # Copyright 2011-2021 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 if {[skip_shlib_tests]} {
17 untested "skipping shared library tests"
18 return -1
19 }
20
21 if {[get_compiler_info]} {
22 untested "could not get compiler info"
23 return 1
24 }
25
26 load_lib jit-elf-helpers.exp
27
28 # Increase this to see more detail.
29 set test_verbose 0
30
31 # The main code that loads and registers JIT objects.
32 set main_basename "jit-elf-main"
33 set main_srcfile ${srcdir}/${subdir}/${main_basename}.c
34 set main_binfile [standard_output_file ${main_basename}]
35
36 # The shared library that gets loaded as JIT objects.
37 set jit_solib_basename jit-elf-solib
38 set jit_solib_srcfile ${srcdir}/${subdir}/${jit_solib_basename}.c
39
40 # Detach, restart GDB, and re-attach to the program.
41 proc clean_reattach {} {
42 global decimal gdb_prompt
43 global main_binfile main_srcfile
44
45 # Get PID of test program.
46 set testpid -1
47 set test "get inferior process ID"
48 gdb_test_multiple "p mypid" $test {
49 -re ".* = ($decimal).*$gdb_prompt $" {
50 set testpid $expect_out(1,string)
51 pass $test
52 }
53 }
54
55 gdb_test_no_output "set var wait_for_gdb = 1"
56 gdb_test "detach" "Detaching from .*"
57
58 clean_restart ${main_binfile}
59
60 set test "attach"
61 gdb_test_multiple "attach $testpid" "$test" {
62 -re "Attaching to program.*.*main.*at .*$main_srcfile:.*$gdb_prompt $" {
63 pass "$test"
64 }
65 }
66
67 gdb_test_no_output "set var wait_for_gdb = 0"
68 }
69
70 # Continue to LOCATION in the program. If REATTACH, detach and
71 # re-attach to the program from scratch.
72 proc continue_to_test_location {location reattach} {
73 global main_srcfile
74
75 gdb_breakpoint [gdb_get_line_number $location $main_srcfile]
76 gdb_continue_to_breakpoint $location
77 if {$reattach} {
78 with_test_prefix "$location" {
79 clean_reattach
80 }
81 }
82 }
83
84 proc one_jit_test {jit_solibs_target match_str reattach} {
85 set count [llength $jit_solibs_target]
86
87 with_test_prefix "one_jit_test-$count" {
88 global test_verbose
89 global main_binfile main_srcfile
90
91 clean_restart ${main_binfile}
92
93 # This is just to help debugging when things fail
94 if {$test_verbose > 0} {
95 gdb_test "set debug jit 1"
96 }
97
98 if { ![runto_main] } {
99 fail "can't run to main"
100 return
101 }
102
103 # Poke desired values directly into inferior instead of using "set args"
104 # because "set args" does not work under gdbserver.
105 incr count
106 gdb_test_no_output "set var argc=$count" "forging argc"
107 gdb_test_no_output "set var argv=fake_argv" "forging argv"
108 for {set i 1} {$i < $count} {incr i} {
109 set jit_solib_target [lindex $jit_solibs_target [expr $i-1]]
110 gdb_test_no_output "set var argv\[$i\]=\"${jit_solib_target}\"" \
111 "forging argv\[$i\]"
112 }
113
114 gdb_breakpoint [gdb_get_line_number "break here 0" $main_srcfile]
115 gdb_continue_to_breakpoint "break here 0"
116
117
118 continue_to_test_location "break here 1" $reattach
119
120 gdb_test "info function ^jit_function" "$match_str"
121
122 # This is just to help debugging when things fail
123 if {$test_verbose > 0} {
124 gdb_test "maintenance print objfiles"
125 gdb_test "maintenance info break"
126 }
127
128 continue_to_test_location "break here 2" $reattach
129
130 # All jit librares must have been unregistered
131 gdb_test "info function jit_function" \
132 "All functions matching regular expression \"jit_function\":"
133 }
134 }
135
136 # Compile two shared libraries to use as JIT objects.
137 set jit_solibs_target [compile_and_download_n_jit_so \
138 $jit_solib_basename $jit_solib_srcfile 2]
139 if { $jit_solibs_target == -1 } {
140 return
141 }
142
143 # Compile the main code (which loads the JIT objects).
144 if { [compile_jit_main ${main_srcfile} ${main_binfile} {}] == 0 } {
145 one_jit_test [lindex $jit_solibs_target 0] "${hex} jit_function_0001" 0
146 one_jit_test $jit_solibs_target "${hex} jit_function_0001\[\r\n\]+${hex} jit_function_0002" 0
147 }
148
149 # Test attaching to an inferior with some JIT libraries already
150 # registered. We reuse the normal test, and detach/reattach at
151 # specific interesting points.
152 if {[can_spawn_for_attach]} {
153 if { [compile_jit_main ${main_srcfile} "${main_binfile}-attach" \
154 {additional_flags=-DATTACH=1}] == 0 } {
155 with_test_prefix attach {
156 one_jit_test $jit_solibs_target "${hex} jit_function_0001\[\r\n\]+${hex} jit_function_0002" 1
157 }
158 }
159 }
160
161 if { [compile_jit_main ${main_srcfile} "${main_binfile}-pie" pie] == 0 } {
162 with_test_prefix PIE {
163 one_jit_test [lindex $jit_solibs_target 0] "${hex} jit_function_0001" 0
164 }
165 }