You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
108 lines
3.0 KiB
108 lines
3.0 KiB
#!/bin/sh
|
|
#
|
|
# Ensure that strace can detach from stopped processes.
|
|
#
|
|
# Copyright (c) 2013-2015 Dmitry V. Levin <ldv@altlinux.org>
|
|
# Copyright (c) 2014-2017 The strace developers.
|
|
# All rights reserved.
|
|
#
|
|
# Redistribution and use in source and binary forms, with or without
|
|
# modification, are permitted provided that the following conditions
|
|
# are met:
|
|
# 1. Redistributions of source code must retain the above copyright
|
|
# notice, this list of conditions and the following disclaimer.
|
|
# 2. Redistributions in binary form must reproduce the above copyright
|
|
# notice, this list of conditions and the following disclaimer in the
|
|
# documentation and/or other materials provided with the distribution.
|
|
# 3. The name of the author may not be used to endorse or promote products
|
|
# derived from this software without specific prior written permission.
|
|
#
|
|
# THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
|
|
# IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
|
|
# OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
|
|
# IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
|
|
# INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
|
|
# NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
|
|
# DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
|
|
# THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
|
|
# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
|
|
# THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|
|
|
. "${srcdir=.}/init.sh"
|
|
|
|
run_prog_skip_if_failed \
|
|
kill -0 $$
|
|
|
|
check_prog sleep
|
|
|
|
$STRACE -d -enone / > /dev/null 2> "$LOG"
|
|
if grep -x "[^:]*strace: PTRACE_SEIZE doesn't work" "$LOG" > /dev/null; then
|
|
skip_ "PTRACE_SEIZE doesn't work"
|
|
fi
|
|
|
|
set -e
|
|
|
|
> "$LOG"
|
|
../set_ptracer_any sleep $((2*$TIMEOUT_DURATION)) > "$LOG" &
|
|
|
|
while ! [ -s "$LOG" ]; do
|
|
kill -0 $! 2> /dev/null ||
|
|
fail_ 'set_ptracer_any sleep failed'
|
|
$SLEEP_A_BIT
|
|
done
|
|
|
|
tracee_pid=$!
|
|
kill -STOP $tracee_pid
|
|
|
|
cleanup()
|
|
{
|
|
set +e
|
|
kill $tracee_pid
|
|
kill -CONT $tracee_pid
|
|
wait $tracee_pid 2> /dev/null
|
|
return 0
|
|
}
|
|
|
|
> "$LOG"
|
|
$STRACE -p $tracee_pid 2> "$LOG" &
|
|
|
|
while ! grep -F "Process $tracee_pid attached" "$LOG" > /dev/null; do
|
|
kill -0 $! 2> /dev/null || {
|
|
cleanup
|
|
dump_log_and_fail_with "$STRACE -p failed to attach"
|
|
}
|
|
$SLEEP_A_BIT
|
|
done
|
|
|
|
while ! grep -F -e '--- stopped by ' "$LOG" > /dev/null; do
|
|
kill -0 $! 2> /dev/null || {
|
|
cleanup
|
|
dump_log_and_fail_with "$STRACE -p missed stop notifications"
|
|
}
|
|
$SLEEP_A_BIT
|
|
done
|
|
|
|
kill -INT $!
|
|
wait $!
|
|
|
|
grep -F "Process $tracee_pid detached" "$LOG" > /dev/null || {
|
|
cleanup
|
|
dump_log_and_fail_with "$STRACE -p failed to detach"
|
|
}
|
|
|
|
if [ -f /proc/self/status ]; then
|
|
$SLEEP_A_BIT
|
|
test -d /proc/$tracee_pid || {
|
|
cleanup
|
|
dump_log_and_fail_with 'tracee died after detach'
|
|
}
|
|
grep_pid_status "$tracee_pid" '^State:.*T (stopped)' > /dev/null || {
|
|
grep_pid_status "$tracee_pid" '^State:'
|
|
cleanup
|
|
dump_log_and_fail_with 'tracee is not group-stopped after detach'
|
|
}
|
|
fi
|
|
|
|
cleanup
|
|
exit 0
|