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