Index: gdb/contrib/cc-with-tweaks.sh |
diff --git a/gdb/contrib/cc-with-tweaks.sh b/gdb/contrib/cc-with-tweaks.sh |
new file mode 100755 |
index 0000000000000000000000000000000000000000..dbab92a3098def855621c60e074fb4b240b4c60b |
--- /dev/null |
+++ b/gdb/contrib/cc-with-tweaks.sh |
@@ -0,0 +1,192 @@ |
+#! /bin/sh |
+# Wrapper around gcc to tweak the output in various ways when running |
+# the testsuite. |
+ |
+# Copyright (C) 2010-2013 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 <http://www.gnu.org/licenses/>. |
+ |
+# This program requires gdb and objcopy in addition to gcc. |
+# The default values are gdb from the build tree and objcopy from $PATH. |
+# They may be overridden by setting environment variables GDB and OBJCOPY |
+# respectively. Note that GDB should contain the gdb binary as well as the |
+# -data-directory flag, e.g., "foo/gdb -data-directory foo/data-directory". |
+# We assume the current directory is either $obj/gdb or $obj/gdb/testsuite. |
+# |
+# Example usage: |
+# |
+# bash$ cd $objdir/gdb/testsuite |
+# bash$ runtest \ |
+# CC_FOR_TARGET="/bin/sh $srcdir/gdb/contrib/cc-with-tweaks.sh ARGS gcc" \ |
+# CXX_FOR_TARGET="/bin/sh $srcdir/gdb/contrib/cc-with-tweaks.sh ARGS g++" |
+# |
+# For documentation on Fission and dwp files: |
+# http://gcc.gnu.org/wiki/DebugFission |
+# http://gcc.gnu.org/wiki/DebugFissionDWP |
+# For documentation on index files: info -f gdb.info -n "Index Files" |
+# For information about 'dwz', see the announcement: |
+# http://gcc.gnu.org/ml/gcc/2012-04/msg00686.html |
+# (More documentation is to come.) |
+ |
+# ARGS determine what is done. They can be: |
+# -Z invoke objcopy --compress-debug-sections |
+# -z compress using dwz |
+# -m compress using dwz -m |
+# -i make an index |
+# -p create .dwp files (Fission), you need to also use gcc option -gsplit-dwarf |
+# If nothing is given, no changes are made |
+ |
+myname=cc-with-tweaks.sh |
+ |
+if [ -z "$GDB" ] |
+then |
+ if [ -f ./gdb ] |
+ then |
+ GDB="./gdb -data-directory data-directory" |
+ elif [ -f ../gdb ] |
+ then |
+ GDB="../gdb -data-directory ../data-directory" |
+ elif [ -f ../../gdb ] |
+ then |
+ GDB="../../gdb -data-directory ../../data-directory" |
+ else |
+ echo "$myname: unable to find usable gdb" >&2 |
+ exit 1 |
+ fi |
+fi |
+ |
+OBJCOPY=${OBJCOPY:-objcopy} |
+READELF=${READELF:-readelf} |
+ |
+DWZ=${DWZ:-dwz} |
+DWP=${DWP:-dwp} |
+ |
+have_link=unknown |
+next_is_output_file=no |
+output_file=a.out |
+ |
+want_index=false |
+want_dwz=false |
+want_multi=false |
+want_dwp=false |
+want_objcopy_compress=false |
+ |
+while [ $# -gt 0 ]; do |
+ case "$1" in |
+ -Z) want_objcopy_compress=true ;; |
+ -z) want_dwz=true ;; |
+ -i) want_index=true ;; |
+ -m) want_multi=true ;; |
+ -p) want_dwp=true ;; |
+ *) break ;; |
+ esac |
+ shift |
+done |
+ |
+for arg in "$@" |
+do |
+ if [ "$next_is_output_file" = "yes" ] |
+ then |
+ output_file="$arg" |
+ next_is_output_file=no |
+ continue |
+ fi |
+ |
+ # Poor man's gcc argument parser. |
+ # We don't need to handle all arguments, we just need to know if we're |
+ # doing a link and what the output file is. |
+ # It's not perfect, but it seems to work well enough for the task at hand. |
+ case "$arg" in |
+ "-c") have_link=no ;; |
+ "-E") have_link=no ;; |
+ "-S") have_link=no ;; |
+ "-o") next_is_output_file=yes ;; |
+ esac |
+done |
+ |
+if [ "$next_is_output_file" = "yes" ] |
+then |
+ echo "$myname: Unable to find output file" >&2 |
+ exit 1 |
+fi |
+ |
+if [ "$have_link" = "no" ] |
+then |
+ "$@" |
+ exit $? |
+fi |
+ |
+index_file="${output_file}.gdb-index" |
+if [ "$want_index" = true ] && [ -f "$index_file" ] |
+then |
+ echo "$myname: Index file $index_file exists, won't clobber." >&2 |
+ exit 1 |
+fi |
+ |
+output_dir="${output_file%/*}" |
+[ "$output_dir" = "$output_file" ] && output_dir="." |
+ |
+"$@" |
+rc=$? |
+[ $rc != 0 ] && exit $rc |
+if [ ! -f "$output_file" ] |
+then |
+ echo "$myname: Internal error: $output_file missing." >&2 |
+ exit 1 |
+fi |
+ |
+if [ "$want_objcopy_compress" = true ]; then |
+ $OBJCOPY --compress-debug-sections "$output_file" |
+ rc=$? |
+ [ $rc != 0 ] && exit $rc |
+fi |
+ |
+if [ "$want_index" = true ]; then |
+ $GDB --batch-silent -nx -ex "set auto-load no" -ex "file $output_file" -ex "save gdb-index $output_dir" |
+ rc=$? |
+ [ $rc != 0 ] && exit $rc |
+ |
+ # GDB might not always create an index. Cope. |
+ if [ -f "$index_file" ] |
+ then |
+ $OBJCOPY --add-section .gdb_index="$index_file" \ |
+ --set-section-flags .gdb_index=readonly \ |
+ "$output_file" "$output_file" |
+ rc=$? |
+ else |
+ rc=0 |
+ fi |
+ [ $rc != 0 ] && exit $rc |
+fi |
+ |
+if [ "$want_dwz" = true ]; then |
+ $DWZ "$output_file" > /dev/null 2>&1 |
+elif [ "$want_multi" = true ]; then |
+ cp $output_file ${output_file}.alt |
+ $DWZ -m ${output_file}.dwz "$output_file" ${output_file}.alt > /dev/null 2>&1 |
+fi |
+ |
+if [ "$want_dwp" = true ]; then |
+ dwo_files=$($READELF -wi "${output_file}" | grep _dwo_name | \ |
+ sed -e 's/^.*: //' | sort | uniq) |
+ rc=0 |
+ if [ -n "$dwo_files" ]; then |
+ $DWP -o "${output_file}.dwp" ${dwo_files} > /dev/null |
+ rc=$? |
+ [ $rc != 0 ] && exit $rc |
+ rm -f ${dwo_files} |
+ fi |
+fi |
+ |
+rm -f "$index_file" |
+exit $rc |