Commit | Line | Data |
---|---|---|
88b9d363 | 1 | # Copyright 2014-2022 Free Software Foundation, Inc. |
5e3f4fab EBM |
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 | standard_testfile | |
17 | ||
f1b620e9 MG |
18 | # Take a list of directories DIRS, and return a regular expression |
19 | # that will match against the output of the 'directory' command | |
20 | # assuming that DIRS are all of the directories that should appear in | |
21 | # the results. | |
22 | proc search_dir_list { dirs } { | |
23 | set output "\r\nSource directories searched: " | |
24 | append output [join $dirs "\[:;\]"] | |
5e3f4fab | 25 | |
f1b620e9 MG |
26 | return ${output} |
27 | } | |
5e3f4fab | 28 | |
f1b620e9 MG |
29 | # Check that adding directories to the search path changes the order |
30 | # in which directories are searched. | |
31 | proc test_changing_search_directory {} { | |
32 | gdb_start | |
33 | ||
34 | set foo "/nOtExStInG" | |
35 | ||
36 | gdb_test "directory $foo/a $foo/b $foo/c" \ | |
37 | [search_dir_list [list \ | |
38 | "$foo/a" \ | |
39 | "$foo/b" \ | |
40 | "$foo/c" \ | |
41 | "\\\$cdir" \ | |
42 | "\\\$cwd"]] | |
43 | gdb_test "directory $foo/b $foo/d $foo/c" \ | |
44 | [search_dir_list [list \ | |
45 | "$foo/b" \ | |
46 | "$foo/d" \ | |
47 | "$foo/c" \ | |
48 | "$foo/a" \ | |
49 | "\\\$cdir" \ | |
50 | "\\\$cwd"]] | |
51 | gdb_exit | |
52 | } | |
53 | ||
54 | # Test that the compilation directory can also be extended with a | |
55 | # prefix from the directory search path in order to find source files. | |
56 | proc test_truncated_comp_dir {} { | |
57 | global srcfile srcdir subdir binfile | |
58 | global decimal | |
59 | ||
60 | # When we run this test the current directory will be something | |
61 | # like this: | |
62 | # /some/path/to/gdb/build/testsuite/ | |
63 | # We are going to copy the source file out of the source tree into | |
64 | # a location like this: | |
65 | # /some/path/to/gdb/build/testsuite/output/gdb.base/soure-dir/ | |
66 | # | |
67 | # We will then switch to this directory and compile the source | |
68 | # file, however, we will ask GCC to remove this prefix from the | |
69 | # compilation directory in the debug info: | |
70 | # /some/path/to/gdb/build/testsuite/output/ | |
71 | # | |
72 | # As a result the debug information will look like this: | |
73 | # | |
74 | # DW_AT_name : source-dir.c | |
75 | # DW_AT_comp_dir : /gdb.base/source-dir | |
76 | # | |
77 | # Finally we switch back to this directory: | |
78 | # /some/path/to/gdb/build/testsuite/ | |
79 | # | |
80 | # and start GDB. There was a time when GDB would be unable to | |
81 | # find the source file no matter what we added to the directory | |
82 | # search path, this should now be fixed. | |
83 | ||
e822f2cd SL |
84 | # All of these pathname and directory manipulations assume |
85 | # host == build, so do not attempt this set of tests on remote host. | |
86 | if [is_remote host] { | |
87 | return | |
88 | } | |
89 | ||
f1b620e9 MG |
90 | set original_dir [pwd] |
91 | set working_dir [standard_output_file ""] | |
92 | cd ${working_dir} | |
93 | ||
94 | set strip_dir [file normalize "${working_dir}/../.."] | |
95 | ||
96 | set new_srcfile [standard_output_file ${srcfile}] | |
97 | set fd [open "$new_srcfile" w] | |
98 | puts $fd "int | |
99 | main () | |
100 | { | |
101 | return 0; | |
102 | }" | |
103 | close $fd | |
104 | ||
105 | set options \ | |
106 | "debug additional_flags=-fdebug-prefix-map=${strip_dir}=" | |
107 | if { [gdb_compile "${srcfile}" "${binfile}" \ | |
108 | executable ${options}] != "" } { | |
109 | untested "failed to compile" | |
110 | return -1 | |
111 | } | |
112 | ||
113 | cd ${original_dir} | |
114 | ||
115 | clean_restart ${binfile} | |
116 | ||
e822f2cd SL |
117 | if { [ishost *-*-mingw*] } { |
118 | gdb_test_no_output "set directories \$cdir;\$cwd" | |
119 | } else { | |
120 | gdb_test_no_output "set directories \$cdir:\$cwd" | |
121 | } | |
f1b620e9 MG |
122 | gdb_test "show directories" \ |
123 | "\r\nSource directories searched: \\\$cdir\[:;\]\\\$cwd" | |
124 | ||
125 | if ![runto_main] then { | |
126 | fail "can't run to main" | |
127 | return 0 | |
128 | } | |
129 | ||
130 | gdb_test "info source" \ | |
131 | [multi_line \ | |
132 | "Current source file is ${srcfile}" \ | |
133 | "Compilation directory is \[^\n\r\]+" \ | |
134 | "Source language is c." \ | |
135 | "Producer is \[^\n\r\]+" \ | |
136 | "Compiled with DWARF $decimal debugging format." \ | |
137 | "Does not include preprocessor macro info." ] \ | |
138 | "info source before setting directory search list" | |
139 | ||
140 | gdb_test "dir $strip_dir" \ | |
141 | [search_dir_list [list \ | |
142 | "$strip_dir" \ | |
143 | "\\\$cdir" \ | |
b078f3ac AB |
144 | "\\\$cwd"]] \ |
145 | "setup source path search directory" | |
f1b620e9 MG |
146 | gdb_test "list" [multi_line \ |
147 | "1\[ \t\]+int" \ | |
148 | "2\[ \t\]+main \\(\\)" \ | |
149 | "3\[ \t\]+\\{" \ | |
150 | "4\[ \t\]+return 0;" \ | |
151 | "5\[ \t\]+\\}" ] | |
152 | ||
153 | gdb_test "info source" \ | |
154 | [multi_line \ | |
155 | "Current source file is ${srcfile}" \ | |
156 | "Compilation directory is \[^\n\r\]+" \ | |
157 | "Located in ${new_srcfile}" \ | |
158 | "Contains 5 lines." \ | |
159 | "Source language is c." \ | |
160 | "Producer is \[^\n\r\]+" \ | |
161 | "\[^\n\r\]+" \ | |
162 | "\[^\n\r\]+" ] \ | |
163 | "info source after setting directory search list" | |
164 | } | |
165 | ||
bb3a4efe LS |
166 | proc test_change_search_directory_with_empty_dirname {} { |
167 | gdb_start | |
168 | ||
169 | # Add 3 entries to the source directories list: | |
170 | # - "" | |
171 | # - "/foo" | |
172 | # - "/bar" | |
173 | # Since /foo and /bar probably do not exist, ignore the warnings printed by | |
174 | # GDB. | |
175 | if { [ishost *-*-mingw*] } { | |
176 | gdb_test "set directories ;/foo;/bar" ".*" | |
177 | } else { | |
178 | gdb_test "set directories :/foo:/bar" ".*" | |
179 | } | |
180 | ||
181 | # The first entry added ("") should be ignored, only /foo and /bar are | |
182 | # effectively added. | |
183 | with_test_prefix "initial_directory_state" { | |
184 | gdb_test "show directories" \ | |
185 | [search_dir_list [list \ | |
186 | "/foo" \ | |
187 | "/bar" \ | |
188 | "\\\$cdir" \ | |
189 | "\\\$cwd"]] | |
190 | } | |
191 | ||
192 | # Arguments can be quoted. Check a empty string has the same effect as | |
193 | # 'set directory' (i.e. reset to $cdir:$cwd) | |
194 | gdb_test_no_output "set directories \"\"" | |
195 | ||
196 | with_test_prefix "directory_after_reset" { | |
197 | gdb_test "show directories" \ | |
198 | [search_dir_list [list \ | |
199 | "\\\$cdir" \ | |
200 | "\\\$cwd"]] | |
201 | } | |
202 | ||
203 | gdb_exit | |
204 | } | |
205 | ||
f1b620e9 | 206 | test_changing_search_directory |
bb3a4efe | 207 | test_change_search_directory_with_empty_dirname |
f1b620e9 | 208 | test_truncated_comp_dir |