s3:smbd: s/event_add_fd/tevent_add_fd and s/EVENT_FD_/TEVENT_FD_
[Samba/gebeck_regimport.git] / selftest / gdb_backtrace
blob28ac064bcd400fbfc09b40697f34de422926e0b5
1 #!/bin/sh
3 BASENAME=`basename $0`
5 if [ -n "$VALGRIND" -o -n "$SMBD_VALGRIND" ]; then
6 echo "${BASENAME}: Not running debugger under valgrind"
7 exit 1
8 fi
10 # we want everything on stderr, so the program is not disturbed
11 exec 1>&2
13 BASENAME=`basename $0`
14 UNAME=`uname`
16 PID=$1
17 BINARY=$2
19 test x"${PID}" = x"" && {
20 echo "Usage: ${BASENAME} <pid> [<binary>]"
21 exit 1
24 DB_LIST="gdb"
25 case "${UNAME}" in
27 # on Tru64 we need to try ladebug first
28 # because gdb crashes itself...
30 OSF1)
31 DB_LIST="ladebug ${DB_LIST}"
34 # On solaris dbx is working way more better than gdb
35 # let's try it first
37 SunOS)
38 DB_LIST="dbx ${DB_LIST}"
41 # FreeBSD comes with a flavor that works gdb66 and one that don't gdb
42 # (gdb 6.1) let's try it first the one that works !
44 FreeBSD)
45 DB_LIST="gdb66 ${DB_LIST}"
47 esac
49 for DB in ${DB_LIST}; do
50 DB_BIN=`which ${DB} 2>/dev/null | grep '^/'`
51 test x"${DB_BIN}" != x"" && {
52 break
54 done
56 test x"${DB_BIN}" = x"" && {
57 echo "${BASENAME}: ERROR: No debugger found."
58 exit 1
61 need_binary="no"
62 case "${DB}" in
63 # These debuggers need the process binary specified:
64 ladebug)
65 need_binary="yes"
67 gdb66)
68 need_binary="yes"
70 dbx)
71 need_binary="yes"
73 esac
75 test x"${need_binary}" = x"yes" && {
77 # we first try to use /proc/${PID}/exe or /proc/{$PID}/path for solaris
78 # then fallback to the binary from the commandline
79 # then we search for the commandline argument with
80 # 'which'
82 test -f "/proc/${PID}/exe" && BINARY="/proc/${PID}/exe"
83 test -f "/proc/${PID}/path/a.out" && BINARY=`ls -l /proc/${PID}/path/a.out |sed 's/.*-> //'`
84 test x"${BINARY}" = x"" && BINARY="/proc/${PID}/exe"
85 test -f "${BINARY}" || BINARY=`which ${BINARY}`
87 test -f "${BINARY}" || {
88 echo "${BASENAME}: ERROR: Cannot find binary '${BINARY}'."
89 exit 1
93 BATCHFILE_PRE=/tmp/gdb_backtrace_pre.$$
94 BATCHFILE_MAIN=/tmp/gdb_backtrace_main.$$
95 case "${DB}" in
96 ladebug)
97 cat << EOF > ${BATCHFILE_PRE}
98 set \$stoponattach
99 EOF
101 cat << EOF > ${BATCHFILE_MAIN}
102 where
103 quit
105 ${DB_BIN} -c "${BATCHFILE_MAIN}" -i "${BATCHFILE_PRE}" -pid "${PID}" "${BINARY}"
107 gdb66)
108 cat << EOF > ${BATCHFILE_MAIN}
109 set height 1000
110 bt full
111 info locals
112 kill
113 quit
115 ${DB_BIN} -x "${BATCHFILE_MAIN}" "${BINARY}" "${PID}"
117 gdb)
118 cat << EOF > ${BATCHFILE_MAIN}
119 set height 0
120 bt full
121 thread apply all bt full
122 info locals
123 quit
125 ${DB_BIN} -batch -x "${BATCHFILE_MAIN}" --pid "${PID}" < /dev/null
127 dbx)
128 ${DB_BIN} "where;dump;kill;quit" "${BINARY}" "${PID}"
130 esac
131 /bin/rm -f ${BATCHFILE_PRE} ${BATCHFILE_MAIN}