selftest/gdb_backtrace

   1 #!/bin/sh
   2
   3 BASENAME=`basename $0`
   4
   5 if [ -n "$VALGRIND" -o -n "$SMBD_VALGRIND" ]; then
   6         echo "${BASENAME}: Not running debugger under valgrind"
   7         exit 1
   8 fi
   9
  10 # we want everything on stderr, so the program is not disturbed
  11 exec 1>&2
  12
  13 BASENAME=`basename $0`
  14 UNAME=`uname`
  15
  16 PID=$1
  17 BINARY=$2
  18
  19 test x"${PID}" = x"" && {
  20         echo "Usage: ${BASENAME} <pid> [<binary>]"
  21         exit 1
  22 }
  23
  24 DB_LIST="gdb"
  25 case "${UNAME}" in
  26         #
  27         # on Tru64 we need to try ladebug first
  28         # because gdb crashes itself...
  29         #
  30         OSF1)
  31                 DB_LIST="ladebug ${DB_LIST}"
  32         ;;
  33         #
  34         # On solaris dbx is working way more better than gdb
  35         # let's try it first
  36         #
  37         SunOS)
  38                 DB_LIST="dbx ${DB_LIST}"
  39         ;;
  40         #
  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 !
  43         #
  44         FreeBSD)
  45                 DB_LIST="gdb66 ${DB_LIST}"
  46         ;;
  47 esac
  48
  49 for DB in ${DB_LIST}; do
  50         DB_BIN=`which ${DB} 2>/dev/null | grep '^/'`
  51         test x"${DB_BIN}" != x"" && {
  52                 break
  53         }
  54 done
  55
  56 test x"${DB_BIN}" = x"" && {
  57         echo "${BASENAME}: ERROR: No debugger found."
  58         exit 1
  59 }
  60
  61 need_binary="no"
  62 case "${DB}" in
  63 # These debuggers need the process binary specified:
  64         ladebug)
  65         need_binary="yes"
  66         ;;
  67         gdb66)
  68         need_binary="yes"
  69         ;;
  70         dbx)
  71         need_binary="yes"
  72         ;;
  73 esac
  74
  75 test x"${need_binary}" = x"yes" && {
  76
  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'
  81 #
  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}`
  86
  87         test -f "${BINARY}" || {
  88             echo "${BASENAME}: ERROR: Cannot find binary '${BINARY}'."
  89             exit 1
  90         }
  91 }
  92
  93 BATCHFILE_PRE=`mktemp --tmpdir gdb_backtrace_pre.XXXXXXXXXX`
  94 test -n "${BATCHFILE_PRE}" || {
  95         echo "mktemp doesn't work" 1>&2
  96         exit 1
  97 }
  98 BATCHFILE_MAIN=`mktemp --tmpdir gdb_backtrace_main.XXXXXXXXXX`
  99 test -n "${BATCHFILE_MAIN}" || {
 100         echo "mktemp doesn't work" 1>&2
 101         exit 1
 102 }
 103 case "${DB}" in
 104         ladebug)
 105 cat << EOF  > ${BATCHFILE_PRE}
 106 set \$stoponattach
 107 EOF
 108
 109 cat << EOF  > ${BATCHFILE_MAIN}
 110 where
 111 quit
 112 EOF
 113         ${DB_BIN} -c "${BATCHFILE_MAIN}" -i "${BATCHFILE_PRE}" -pid "${PID}" "${BINARY}"
 114         ;;
 115         gdb66)
 116 cat << EOF  > ${BATCHFILE_MAIN}
 117 set height 1000
 118 bt full
 119 info locals
 120 kill
 121 quit
 122 EOF
 123         ${DB_BIN} -x "${BATCHFILE_MAIN}" "${BINARY}" "${PID}"
 124         ;;
 125         gdb)
 126 cat << EOF  > ${BATCHFILE_MAIN}
 127 set height 0
 128 bt full
 129 thread apply all bt full
 130 info locals
 131 quit
 132 EOF
 133         ${DB_BIN} -batch -x "${BATCHFILE_MAIN}" --pid "${PID}" < /dev/null
 134         ;;
 135 dbx)
 136         ${DB_BIN} "where;dump;kill;quit" "${BINARY}" "${PID}"
 137         ;;
 138 esac
 139 /bin/rm -f ${BATCHFILE_PRE} ${BATCHFILE_MAIN}