<h2>Editing File: /opt/rh/gcc-toolset-11/root/usr/bin/gdb-add-index</h2><form method='post'><textarea name='content' class='file-edit'>#! /bin/sh

# Add a .gdb_index section to a file.

# Copyright (C) 2010-2021 Free Software Foundation, Inc.
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see &lt;http://www.gnu.org/licenses/&gt;.

# This program assumes gdb and objcopy are in $PATH.
# If not, or you want others, pass the following in the environment
GDB=${GDB:=gdb}
OBJCOPY=${OBJCOPY:=objcopy}
READELF=${READELF:=readelf}

GDB2=/usr/libexec/gdb
if test -x $GDB2 &amp;&amp; ! which $GDB &amp;&gt;/dev/null; then
    GDB=$GDB2
fi

# We default to using /usr/bin/gdb.minimal if it's present.  See
# https://bugzilla.redhat.com/show_bug.cgi?id=1695015 and
# https://fedoraproject.org/wiki/Changes/Minimal_GDB_in_buildroot for
# explanations.
GDB3=/usr/bin/gdb.minimal
if test -x $GDB3; then
    GDB=$GDB3
fi

myname=&quot;${0##*/}&quot;

dwarf5=&quot;&quot;
if [ &quot;$1&quot; = &quot;-dwarf-5&quot; ]; then
    dwarf5=&quot;$1&quot;
    shift
fi

if test $# != 1; then
    echo &quot;usage: $myname [-dwarf-5] FILE&quot; 1&gt;&amp;2
    exit 1
fi

file=&quot;$1&quot;

if test ! -r &quot;$file&quot;; then
    echo &quot;$myname: unable to access: $file&quot; 1&gt;&amp;2
    exit 1
fi

dir=&quot;${file%/*}&quot;
test &quot;$dir&quot; = &quot;$file&quot; &amp;&amp; dir=&quot;.&quot;

dwz_file=&quot;&quot;
if $READELF -S &quot;$file&quot; | grep -q &quot; \.gnu_debugaltlink &quot;; then
    dwz_file=$($READELF --string-dump=.gnu_debugaltlink &quot;$file&quot; \
		   | grep -A1  &quot;'\.gnu_debugaltlink':&quot; \
		   | tail -n +2 \
		   | sed 's/.*]//')
    dwz_file=$(echo $dwz_file)
    if $READELF -S &quot;$dwz_file&quot; | grep -E -q &quot; \.(gdb_index|debug_names) &quot;; then
	# Already has an index, skip it.
	dwz_file=&quot;&quot;
    fi
fi

set_files ()
{
    local file=&quot;$1&quot;

    index4=&quot;${file}.gdb-index&quot;
    index5=&quot;${file}.debug_names&quot;
    debugstr=&quot;${file}.debug_str&quot;
    debugstrmerge=&quot;${file}.debug_str.merge&quot;
    debugstrerr=&quot;${file}.debug_str.err&quot;
}

tmp_files=
for f in &quot;$file&quot; &quot;$dwz_file&quot;; do
    if [ &quot;$f&quot; = &quot;&quot; ]; then
	continue
    fi
    set_files &quot;$f&quot;
    tmp_files=&quot;$tmp_files $index4 $index5 $debugstr $debugstrmerge $debugstrerr&quot;
done

rm -f $tmp_files

# Ensure intermediate index file is removed when we exit.
trap &quot;rm -f $tmp_files&quot; 0

$GDB --batch -nx -iex 'set auto-load no' \
    -ex &quot;file $file&quot; -ex &quot;save gdb-index $dwarf5 $dir&quot; || {
    # Just in case.
    status=$?
    echo &quot;$myname: gdb error generating index for $file&quot; 1&gt;&amp;2
    exit $status
}

# In some situations gdb can exit without creating an index.  This is
# not an error.
# E.g., if $file is stripped.  This behaviour is akin to stripping an
# already stripped binary, it's a no-op.
status=0

handle_file ()
{
    local file
    file=&quot;$1&quot;

    set_files &quot;$file&quot;

    if test -f &quot;$index4&quot; -a -f &quot;$index5&quot;; then
	echo &quot;$myname: Both index types were created for $file&quot; 1&gt;&amp;2
	status=1
    elif test -f &quot;$index4&quot; -o -f &quot;$index5&quot;; then
	if test -f &quot;$index4&quot;; then
	    index=&quot;$index4&quot;
	    section=&quot;.gdb_index&quot;
	else
	    index=&quot;$index5&quot;
	    section=&quot;.debug_names&quot;
	fi
	debugstradd=false
	debugstrupdate=false
	if test -s &quot;$debugstr&quot;; then
	    if ! $OBJCOPY --dump-section .debug_str=&quot;$debugstrmerge&quot; &quot;$file&quot; \
		 /dev/null 2&gt;$debugstrerr; then
		cat &gt;&amp;2 $debugstrerr
		exit 1
	    fi
	    if grep -q &quot;can't dump section '.debug_str' - it does not exist&quot; \
		    $debugstrerr; then
		debugstradd=true
	    else
		debugstrupdate=true
		cat &gt;&amp;2 $debugstrerr
	    fi
	    cat &quot;$debugstr&quot; &gt;&gt;&quot;$debugstrmerge&quot;
	fi

	$OBJCOPY --add-section $section=&quot;$index&quot; \
		 --set-section-flags $section=readonly \
		 $(if $debugstradd; then \
		       echo --add-section .debug_str=&quot;$debugstrmerge&quot;; \
		       echo --set-section-flags .debug_str=readonly; \
		   fi; \
		   if $debugstrupdate; then \
		       echo --update-section .debug_str=&quot;$debugstrmerge&quot;; \
		   fi) \
		 &quot;$file&quot; &quot;$file&quot;

	status=$?
    else
	echo &quot;$myname: No index was created for $file&quot; 1&gt;&amp;2
	echo &quot;$myname: [Was there no debuginfo? Was there already an index?]&quot; \
	     1&gt;&amp;2
    fi
}

handle_file &quot;$file&quot;
if [ &quot;$dwz_file&quot; != &quot;&quot; ]; then
    handle_file &quot;$dwz_file&quot;
fi

exit $status
</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fopt%2Frh%2Fgcc-toolset-11%2Froot%2Fusr%2Fbin'>Back to Directory</a>