Commit | Line | Data |
---|---|---|
6432ec65 | 1 | #!/usr/bin/env bash |
853254db TT |
2 | # Wrapper around gcc to tweak the output in various ways when running |
3 | # the testsuite. | |
ea65fe05 | 4 | |
e2882c85 | 5 | # Copyright (C) 2010-2018 Free Software Foundation, Inc. |
ea65fe05 DE |
6 | # This program is free software; you can redistribute it and/or modify |
7 | # it under the terms of the GNU General Public License as published by | |
8 | # the Free Software Foundation; either version 3 of the License, or | |
9 | # (at your option) any later version. | |
10 | # | |
11 | # This program is distributed in the hope that it will be useful, | |
12 | # but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 | # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 | # GNU General Public License for more details. | |
15 | # | |
16 | # You should have received a copy of the GNU General Public License | |
17 | # along with this program. If not, see <http://www.gnu.org/licenses/>. | |
18 | ||
19 | # This program requires gdb and objcopy in addition to gcc. | |
0b5574da DE |
20 | # The default values are gdb from the build tree and objcopy from $PATH. |
21 | # They may be overridden by setting environment variables GDB and OBJCOPY | |
63b46266 YPK |
22 | # respectively. Note that GDB should contain the gdb binary as well as the |
23 | # -data-directory flag, e.g., "foo/gdb -data-directory foo/data-directory". | |
ea65fe05 DE |
24 | # We assume the current directory is either $obj/gdb or $obj/gdb/testsuite. |
25 | # | |
26 | # Example usage: | |
27 | # | |
28 | # bash$ cd $objdir/gdb/testsuite | |
29 | # bash$ runtest \ | |
6432ec65 JK |
30 | # CC_FOR_TARGET="/bin/bash $srcdir/gdb/contrib/cc-with-tweaks.sh ARGS gcc" \ |
31 | # CXX_FOR_TARGET="/bin/bash $srcdir/gdb/contrib/cc-with-tweaks.sh ARGS g++" | |
ea65fe05 | 32 | # |
fb8cf7c5 DE |
33 | # For documentation on Fission and dwp files: |
34 | # http://gcc.gnu.org/wiki/DebugFission | |
35 | # http://gcc.gnu.org/wiki/DebugFissionDWP | |
ea65fe05 | 36 | # For documentation on index files: info -f gdb.info -n "Index Files" |
853254db TT |
37 | # For information about 'dwz', see the announcement: |
38 | # http://gcc.gnu.org/ml/gcc/2012-04/msg00686.html | |
39 | # (More documentation is to come.) | |
ea65fe05 | 40 | |
853254db | 41 | # ARGS determine what is done. They can be: |
ea9f10bb | 42 | # -Z invoke objcopy --compress-debug-sections |
853254db TT |
43 | # -z compress using dwz |
44 | # -m compress using dwz -m | |
45 | # -i make an index | |
7fb2b84a | 46 | # -p create .dwp files (Fission), you need to also use gcc option -gsplit-dwarf |
853254db TT |
47 | # If nothing is given, no changes are made |
48 | ||
49 | myname=cc-with-tweaks.sh | |
6432ec65 | 50 | mydir=`dirname "$0"` |
ea65fe05 DE |
51 | |
52 | if [ -z "$GDB" ] | |
53 | then | |
54 | if [ -f ./gdb ] | |
55 | then | |
63b46266 | 56 | GDB="./gdb -data-directory data-directory" |
ea65fe05 DE |
57 | elif [ -f ../gdb ] |
58 | then | |
63b46266 | 59 | GDB="../gdb -data-directory ../data-directory" |
b8e9bd6c DE |
60 | elif [ -f ../../gdb ] |
61 | then | |
63b46266 | 62 | GDB="../../gdb -data-directory ../../data-directory" |
ea65fe05 DE |
63 | else |
64 | echo "$myname: unable to find usable gdb" >&2 | |
65 | exit 1 | |
66 | fi | |
67 | fi | |
68 | ||
69 | OBJCOPY=${OBJCOPY:-objcopy} | |
80626a55 | 70 | READELF=${READELF:-readelf} |
ea65fe05 | 71 | |
853254db | 72 | DWZ=${DWZ:-dwz} |
80626a55 | 73 | DWP=${DWP:-dwp} |
853254db | 74 | |
ea65fe05 DE |
75 | have_link=unknown |
76 | next_is_output_file=no | |
00e14314 | 77 | output_file=a.out |
ea65fe05 | 78 | |
853254db TT |
79 | want_index=false |
80 | want_dwz=false | |
81 | want_multi=false | |
80626a55 | 82 | want_dwp=false |
ea9f10bb | 83 | want_objcopy_compress=false |
853254db TT |
84 | |
85 | while [ $# -gt 0 ]; do | |
86 | case "$1" in | |
ea9f10bb | 87 | -Z) want_objcopy_compress=true ;; |
853254db TT |
88 | -z) want_dwz=true ;; |
89 | -i) want_index=true ;; | |
90 | -m) want_multi=true ;; | |
80626a55 | 91 | -p) want_dwp=true ;; |
853254db TT |
92 | *) break ;; |
93 | esac | |
94 | shift | |
95 | done | |
96 | ||
6432ec65 JK |
97 | if [ "$want_index" = true ] |
98 | then | |
99 | if [ -z "$GDB_ADD_INDEX" ] | |
100 | then | |
101 | if [ -f $mydir/gdb-add-index.sh ] | |
102 | then | |
103 | GDB_ADD_INDEX="$mydir/gdb-add-index.sh" | |
104 | else | |
105 | echo "$myname: unable to find usable contrib/gdb-add-index.sh" >&2 | |
106 | exit 1 | |
107 | fi | |
108 | fi | |
109 | fi | |
110 | ||
ea65fe05 DE |
111 | for arg in "$@" |
112 | do | |
113 | if [ "$next_is_output_file" = "yes" ] | |
114 | then | |
115 | output_file="$arg" | |
116 | next_is_output_file=no | |
117 | continue | |
118 | fi | |
119 | ||
120 | # Poor man's gcc argument parser. | |
121 | # We don't need to handle all arguments, we just need to know if we're | |
122 | # doing a link and what the output file is. | |
123 | # It's not perfect, but it seems to work well enough for the task at hand. | |
124 | case "$arg" in | |
125 | "-c") have_link=no ;; | |
126 | "-E") have_link=no ;; | |
127 | "-S") have_link=no ;; | |
128 | "-o") next_is_output_file=yes ;; | |
129 | esac | |
130 | done | |
131 | ||
132 | if [ "$next_is_output_file" = "yes" ] | |
133 | then | |
134 | echo "$myname: Unable to find output file" >&2 | |
135 | exit 1 | |
136 | fi | |
137 | ||
138 | if [ "$have_link" = "no" ] | |
139 | then | |
140 | "$@" | |
141 | exit $? | |
142 | fi | |
143 | ||
144 | index_file="${output_file}.gdb-index" | |
853254db | 145 | if [ "$want_index" = true ] && [ -f "$index_file" ] |
ea65fe05 DE |
146 | then |
147 | echo "$myname: Index file $index_file exists, won't clobber." >&2 | |
148 | exit 1 | |
149 | fi | |
150 | ||
151 | output_dir="${output_file%/*}" | |
152 | [ "$output_dir" = "$output_file" ] && output_dir="." | |
153 | ||
154 | "$@" | |
155 | rc=$? | |
156 | [ $rc != 0 ] && exit $rc | |
157 | if [ ! -f "$output_file" ] | |
158 | then | |
159 | echo "$myname: Internal error: $output_file missing." >&2 | |
160 | exit 1 | |
161 | fi | |
162 | ||
ea9f10bb TT |
163 | if [ "$want_objcopy_compress" = true ]; then |
164 | $OBJCOPY --compress-debug-sections "$output_file" | |
165 | rc=$? | |
166 | [ $rc != 0 ] && exit $rc | |
167 | fi | |
168 | ||
853254db | 169 | if [ "$want_index" = true ]; then |
6432ec65 JK |
170 | # Filter out these messages which would stop dejagnu testcase run: |
171 | # echo "$myname: No index was created for $file" 1>&2 | |
172 | # echo "$myname: [Was there no debuginfo? Was there already an index?]" 1>&2 | |
173 | GDB=$GDB $GDB_ADD_INDEX "$output_file" 2>&1|grep -v "^${GDB_ADD_INDEX##*/}: " >&2 | |
174 | rc=${PIPESTATUS[0]} | |
853254db TT |
175 | [ $rc != 0 ] && exit $rc |
176 | fi | |
177 | ||
178 | if [ "$want_dwz" = true ]; then | |
179 | $DWZ "$output_file" > /dev/null 2>&1 | |
180 | elif [ "$want_multi" = true ]; then | |
181 | cp $output_file ${output_file}.alt | |
182 | $DWZ -m ${output_file}.dwz "$output_file" ${output_file}.alt > /dev/null 2>&1 | |
ea65fe05 DE |
183 | fi |
184 | ||
80626a55 DE |
185 | if [ "$want_dwp" = true ]; then |
186 | dwo_files=$($READELF -wi "${output_file}" | grep _dwo_name | \ | |
187 | sed -e 's/^.*: //' | sort | uniq) | |
20d7f211 DE |
188 | rc=0 |
189 | if [ -n "$dwo_files" ]; then | |
190 | $DWP -o "${output_file}.dwp" ${dwo_files} > /dev/null | |
191 | rc=$? | |
192 | [ $rc != 0 ] && exit $rc | |
193 | rm -f ${dwo_files} | |
194 | fi | |
80626a55 DE |
195 | fi |
196 | ||
ea65fe05 DE |
197 | rm -f "$index_file" |
198 | exit $rc |