granicus.if.org Git - strace/blob - wait.c

   1 /*
   2  * Copyright (c) 1991, 1992 Paul Kranenburg <pk@cs.few.eur.nl>
   3  * Copyright (c) 1993 Branko Lankester <branko@hacktic.nl>
   4  * Copyright (c) 1993-1996 Rick Sladkey <jrs@world.std.com>
   5  * Copyright (c) 1996-1999 Wichert Akkerman <wichert@cistron.nl>
   6  * Copyright (c) 2002-2004 Roland McGrath <roland@redhat.com>
   7  * Copyright (c) 2004 Ulrich Drepper <drepper@redhat.com>
   8  * Copyright (c) 2009-2013 Denys Vlasenko <dvlasenk@redhat.com>
   9  * Copyright (c) 2014-2015 Dmitry V. Levin <ldv@altlinux.org>
  10  * Copyright (c) 2014-2018 The strace developers.
  11  * All rights reserved.
  12  *
  13  * Redistribution and use in source and binary forms, with or without
  14  * modification, are permitted provided that the following conditions
  15  * are met:
  16  * 1. Redistributions of source code must retain the above copyright
  17  *    notice, this list of conditions and the following disclaimer.
  18  * 2. Redistributions in binary form must reproduce the above copyright
  19  *    notice, this list of conditions and the following disclaimer in the
  20  *    documentation and/or other materials provided with the distribution.
  21  * 3. The name of the author may not be used to endorse or promote products
  22  *    derived from this software without specific prior written permission.
  23  *
  24  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
  25  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
  26  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
  27  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
  28  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
  29  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
  30  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
  31  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  32  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
  33  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  34  */
  35
  36 #include "defs.h"
  37 #include "ptrace.h"
  38
  39 #include <sys/wait.h>
  40
  41 #include "xlat/wait4_options.h"
  42
  43 #if !defined WCOREFLAG && defined WCOREFLG
  44 # define WCOREFLAG WCOREFLG
  45 #endif
  46 #ifndef WCOREFLAG
  47 # define WCOREFLAG 0x80
  48 #endif
  49 #ifndef WCOREDUMP
  50 # define WCOREDUMP(status)  ((status) & 0200)
  51 #endif
  52 #ifndef W_STOPCODE
  53 # define W_STOPCODE(sig)  ((sig) << 8 | 0x7f)
  54 #endif
  55 #ifndef W_EXITCODE
  56 # define W_EXITCODE(ret, sig)  ((ret) << 8 | (sig))
  57 #endif
  58 #ifndef W_CONTINUED
  59 # define W_CONTINUED 0xffff
  60 #endif
  61
  62 #include "xlat/ptrace_events.h"
  63
  64 static int
  65 printstatus(int status)
  66 {
  67         int exited = 0;
  68
  69         /*
  70          * Here is a tricky presentation problem.  This solution
  71          * is still not entirely satisfactory but since there
  72          * are no wait status constructors it will have to do.
  73          */
  74         if (WIFSTOPPED(status)) {
  75                 int sig = WSTOPSIG(status);
  76                 tprintf("[{WIFSTOPPED(s) && WSTOPSIG(s) == %s%s}",
  77                         signame(sig & 0x7f),
  78                         sig & 0x80 ? " | 0x80" : "");
  79                 status &= ~W_STOPCODE(sig);
  80         } else if (WIFSIGNALED(status)) {
  81                 tprintf("[{WIFSIGNALED(s) && WTERMSIG(s) == %s%s}",
  82                         signame(WTERMSIG(status)),
  83                         WCOREDUMP(status) ? " && WCOREDUMP(s)" : "");
  84                 status &= ~(W_EXITCODE(0, WTERMSIG(status)) | WCOREFLAG);
  85         } else if (WIFEXITED(status)) {
  86                 tprintf("[{WIFEXITED(s) && WEXITSTATUS(s) == %d}",
  87                         WEXITSTATUS(status));
  88                 exited = 1;
  89                 status &= ~W_EXITCODE(WEXITSTATUS(status), 0);
  90         }
  91 #ifdef WIFCONTINUED
  92         else if (WIFCONTINUED(status)) {
  93                 tprints("[{WIFCONTINUED(s)}");
  94                 status &= ~W_CONTINUED;
  95         }
  96 #endif
  97         else {
  98                 tprintf("[%#x]", status);
  99                 return 0;
 100         }
 101
 102         if (status) {
 103                 unsigned int event = (unsigned int) status >> 16;
 104                 if (event) {
 105                         tprints(" | ");
 106                         printxval(ptrace_events, event, "PTRACE_EVENT_???");
 107                         tprints(" << 16");
 108                         status &= 0xffff;
 109                 }
 110                 if (status)
 111                         tprintf(" | %#x", status);
 112         }
 113         tprints("]");
 114
 115         return exited;
 116 }
 117
 118 static int
 119 printwaitn(struct tcb *const tcp,
 120            void (*const print_rusage)(struct tcb *, kernel_ulong_t))
 121 {
 122         if (entering(tcp)) {
 123                 /* On Linux, kernel-side pid_t is typedef'ed to int
 124                  * on all arches. Also, glibc-2.8 truncates wait3 and wait4
 125                  * pid argument to int on 64bit arches, producing,
 126                  * for example, wait4(4294967295, ...) instead of -1
 127                  * in strace. We have to use int here, not long.
 128                  */
 129                 int pid = tcp->u_arg[0];
 130                 tprintf("%d, ", pid);
 131         } else {
 132                 int status;
 133
 134                 /* status */
 135                 if (tcp->u_rval == 0)
 136                         printaddr(tcp->u_arg[1]);
 137                 else if (!umove_or_printaddr(tcp, tcp->u_arg[1], &status))
 138                         printstatus(status);
 139                 /* options */
 140                 tprints(", ");
 141                 printflags(wait4_options, tcp->u_arg[2], "W???");
 142                 if (print_rusage) {
 143                         /* usage */
 144                         tprints(", ");
 145                         if (tcp->u_rval > 0)
 146                                 print_rusage(tcp, tcp->u_arg[3]);
 147                         else
 148                                 printaddr(tcp->u_arg[3]);
 149                 }
 150         }
 151         return 0;
 152 }
 153
 154 SYS_FUNC(waitpid)
 155 {
 156         return printwaitn(tcp, NULL);
 157 }
 158
 159 SYS_FUNC(wait4)
 160 {
 161         return printwaitn(tcp, printrusage);
 162 }
 163
 164 #ifdef ALPHA
 165 SYS_FUNC(osf_wait4)
 166 {
 167         return printwaitn(tcp, printrusage32);
 168 }
 169 #endif
 170
 171 #include "xlat/waitid_types.h"
 172
 173 SYS_FUNC(waitid)
 174 {
 175         if (entering(tcp)) {
 176                 printxval(waitid_types, tcp->u_arg[0], "P_???");
 177                 int pid = tcp->u_arg[1];
 178                 tprintf(", %d, ", pid);
 179         } else {
 180                 /* siginfo */
 181                 printsiginfo_at(tcp, tcp->u_arg[2]);
 182                 /* options */
 183                 tprints(", ");
 184                 printflags(wait4_options, tcp->u_arg[3], "W???");
 185                 /* usage */
 186                 tprints(", ");
 187                 printrusage(tcp, tcp->u_arg[4]);
 188         }
 189         return 0;
 190 }