Commit | Line | Data |
---|---|---|
caf26be9 SB |
1 | #! /bin/sh |
2 | ||
3 | # Add a .gdb_index section to a file. | |
4 | ||
42a4f53d | 5 | # Copyright (C) 2010-2019 Free Software Foundation, Inc. |
caf26be9 SB |
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 assumes gdb and objcopy are in $PATH. | |
20 | # If not, or you want others, pass the following in the environment | |
21 | GDB=${GDB:=gdb} | |
22 | OBJCOPY=${OBJCOPY:=objcopy} | |
23 | ||
24 | myname="${0##*/}" | |
25 | ||
25289ac1 JK |
26 | dwarf5="" |
27 | if [ "$1" = "-dwarf-5" ]; then | |
28 | dwarf5="$1" | |
29 | shift | |
30 | fi | |
31 | ||
caf26be9 | 32 | if test $# != 1; then |
25289ac1 | 33 | echo "usage: $myname [-dwarf-5] FILE" 1>&2 |
caf26be9 SB |
34 | exit 1 |
35 | fi | |
36 | ||
37 | file="$1" | |
38 | ||
39 | if test ! -r "$file"; then | |
40 | echo "$myname: unable to access: $file" 1>&2 | |
41 | exit 1 | |
42 | fi | |
43 | ||
44 | dir="${file%/*}" | |
45 | test "$dir" = "$file" && dir="." | |
437afbb8 JK |
46 | index4="${file}.gdb-index" |
47 | index5="${file}.debug_names" | |
48 | debugstr="${file}.debug_str" | |
49 | debugstrmerge="${file}.debug_str.merge" | |
50 | debugstrerr="${file}.debug_str.err" | |
caf26be9 | 51 | |
437afbb8 | 52 | rm -f $index4 $index5 $debugstr $debugstrmerge $debugstrerr |
caf26be9 | 53 | # Ensure intermediate index file is removed when we exit. |
437afbb8 | 54 | trap "rm -f $index4 $index5 $debugstr $debugstrmerge $debugstrerr" 0 |
caf26be9 SB |
55 | |
56 | $GDB --batch -nx -iex 'set auto-load no' \ | |
25289ac1 | 57 | -ex "file $file" -ex "save gdb-index $dwarf5 $dir" || { |
caf26be9 SB |
58 | # Just in case. |
59 | status=$? | |
60 | echo "$myname: gdb error generating index for $file" 1>&2 | |
61 | exit $status | |
62 | } | |
63 | ||
64 | # In some situations gdb can exit without creating an index. This is | |
65 | # not an error. | |
66 | # E.g., if $file is stripped. This behaviour is akin to stripping an | |
67 | # already stripped binary, it's a no-op. | |
68 | status=0 | |
69 | ||
437afbb8 JK |
70 | if test -f "$index4" -a -f "$index5"; then |
71 | echo "$myname: Both index types were created for $file" 1>&2 | |
72 | status=1 | |
73 | elif test -f "$index4" -o -f "$index5"; then | |
74 | if test -f "$index4"; then | |
75 | index="$index4" | |
76 | section=".gdb_index" | |
77 | else | |
78 | index="$index5" | |
79 | section=".debug_names" | |
80 | fi | |
81 | debugstradd=false | |
82 | debugstrupdate=false | |
83 | if test -s "$debugstr"; then | |
84 | if ! $OBJCOPY --dump-section .debug_str="$debugstrmerge" "$file" /dev/null \ | |
85 | 2>$debugstrerr; then | |
86 | cat >&2 $debugstrerr | |
87 | exit 1 | |
88 | fi | |
89 | if grep -q "can't dump section '.debug_str' - it does not exist" \ | |
90 | $debugstrerr; then | |
91 | debugstradd=true | |
92 | else | |
93 | debugstrupdate=true | |
94 | cat >&2 $debugstrerr | |
95 | fi | |
96 | cat "$debugstr" >>"$debugstrmerge" | |
97 | fi | |
98 | ||
99 | $OBJCOPY --add-section $section="$index" \ | |
100 | --set-section-flags $section=readonly \ | |
101 | $(if $debugstradd; then \ | |
102 | echo --add-section .debug_str="$debugstrmerge"; \ | |
103 | echo --set-section-flags .debug_str=readonly; \ | |
104 | fi; \ | |
105 | if $debugstrupdate; then \ | |
106 | echo --update-section .debug_str="$debugstrmerge"; \ | |
107 | fi) \ | |
108 | "$file" "$file" | |
109 | ||
caf26be9 SB |
110 | status=$? |
111 | else | |
112 | echo "$myname: No index was created for $file" 1>&2 | |
113 | echo "$myname: [Was there no debuginfo? Was there already an index?]" 1>&2 | |
114 | fi | |
115 | ||
116 | exit $status |