Copyright 2001.
[kopensolaris-gnu/glibc.git] / debug / catchsegv.sh
1 #! /bin/sh
2
3 # Copyright (C) 1998, 1999, 2001 Free Software Foundation, Inc.
4 # This file is part of the GNU C Library.
5 # Contributed by Ulrich Drepper <drepper@cygnus.com>, 1998.
6
7 # The GNU C Library is free software; you can redistribute it and/or
8 # modify it under the terms of the GNU Library General Public License as
9 # published by the Free Software Foundation; either version 2 of the
10 # License, or (at your option) any later version.
11
12 # The GNU C Library is distributed in the hope that it will be useful,
13 # but WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
15 # Library General Public License for more details.
16
17 # You should have received a copy of the GNU Library General Public
18 # License along with the GNU C Library; see the file COPYING.LIB.  If not,
19 # write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
20 # Boston, MA 02111-1307, USA.
21
22 if test $# -eq 0; then
23   echo "$0: missing programm name" >&2
24   echo "Try \`$0 --help' for more information." >&2
25   exit 1
26 fi
27
28 prog="$1"
29 shift
30
31 if test $# -eq 0; then
32   case "$prog" in
33     --h | --he | --hel | --help)
34       echo 'Usage: catchsegv PROGRAM ARGS...'
35       echo '  --help      print this help, then exit'
36       echo '  --version   print version number, then exit'
37       echo "Report bugs using the \`glibcbug' script to <bugs@gnu.org>."
38       exit 0
39       ;;
40     --v | --ve | --ver | --vers | --versi | --versio | --version)
41       echo 'catchsegv (GNU libc) @VERSION@'
42       echo 'Copyright (C) 2001 Free Software Foundation, Inc.
43 This is free software; see the source for copying conditions.  There is NO
44 warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
45 Written by Ulrich Drepper.'
46       exit 0
47       ;;
48     *)
49       ;;
50   esac
51 fi
52
53 segv_output=`basename "$prog"`.segv.$$
54 # Make sure this output file does not exist.
55 rm -f "$segv_output"
56
57 # Redirect stderr to avoid termination message from shell.
58 (exec 3>&2 2>/dev/null
59 LD_PRELOAD=${LD_PRELOAD:+${LD_PRELOAD}:}@SLIB@/libSegFault.so \
60 SEGFAULT_USE_ALTSTACK=1 \
61 SEGFAULT_OUTPUT_NAME=$segv_output \
62 "$prog" ${1+"$@"} 2>&3 3>&-)
63 exval=$?
64
65 # Check for output.  Even if the program terminated correctly it might
66 # be that a minor process (clone) failed.  Therefore we do not check the
67 # exit code.
68 if test -f "$segv_output"; then
69   # The program caught a signal.  The output is in the file with the
70   # name we have in SEGFAULT_OUTPUT_NAME.  In the output the names of
71   # functions in shared objects are available, but names in the static
72   # part of the program are not.  We use addr2line to get this information.
73   case $prog in
74   */*) ;;
75   *)
76     old_IFS=$IFS
77     IFS=:
78     for p in $PATH; do
79       test -n "$p" || p=.
80       if test -f "$p/$prog"; then
81         prog=$p/$prog
82       break
83       fi
84     done
85     IFS=$old_IFS
86     ;;
87   esac
88   sed '/Backtrace/q' "$segv_output"
89   sed '1,/Backtrace/d' "$segv_output" |
90   (while read line; do
91      case "$line" in
92        [*) addr=`echo "$line" | sed 's/^\[\(.*\)\]$/\1/'`
93            complete=`addr2line -f -e "$prog" $addr 2>/dev/null`
94            if test $? -eq 0; then
95              echo "`echo "$complete"|sed 'N;s/\(.*\)\n\(.*\)/\2(\1)/;'`$line"
96            else
97              echo "$line"
98            fi
99            ;;
100         *) echo "$line"
101            ;;
102      esac
103    done)
104    rm -f "$segv_output"
105 fi
106
107 exit $exval