granicus.if.org Git - strace/blob - resource.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, 1994, 1995, 1996 Rick Sladkey <jrs@world.std.com>
   5  * Copyright (c) 1996-1999 Wichert Akkerman <wichert@cistron.nl>
   6  * Copyright (c) 1999-2017 The strace developers.
   7  * All rights reserved.
   8  *
   9  * Redistribution and use in source and binary forms, with or without
  10  * modification, are permitted provided that the following conditions
  11  * are met:
  12  * 1. Redistributions of source code must retain the above copyright
  13  *    notice, this list of conditions and the following disclaimer.
  14  * 2. Redistributions in binary form must reproduce the above copyright
  15  *    notice, this list of conditions and the following disclaimer in the
  16  *    documentation and/or other materials provided with the distribution.
  17  * 3. The name of the author may not be used to endorse or promote products
  18  *    derived from this software without specific prior written permission.
  19  *
  20  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
  21  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
  22  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
  23  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
  24  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
  25  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
  26  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
  27  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
  28  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
  29  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  30  */
  31
  32 #include "defs.h"
  33 #include <sys/resource.h>
  34
  35 #include "xlat/resources.h"
  36
  37 static const char *
  38 sprint_rlim64(uint64_t lim)
  39 {
  40         static char buf[sizeof(uint64_t)*3 + sizeof("*1024")];
  41
  42         if (lim == UINT64_MAX)
  43                 return "RLIM64_INFINITY";
  44
  45         if (lim > 1024 && lim % 1024 == 0)
  46                 sprintf(buf, "%" PRIu64 "*1024", lim / 1024);
  47         else
  48                 sprintf(buf, "%" PRIu64, lim);
  49         return buf;
  50 }
  51
  52 static void
  53 print_rlimit64(struct tcb *const tcp, const kernel_ulong_t addr)
  54 {
  55         struct rlimit_64 {
  56                 uint64_t rlim_cur;
  57                 uint64_t rlim_max;
  58         } rlim;
  59
  60         if (!umove_or_printaddr(tcp, addr, &rlim)) {
  61                 tprintf("{rlim_cur=%s,", sprint_rlim64(rlim.rlim_cur));
  62                 tprintf(" rlim_max=%s}", sprint_rlim64(rlim.rlim_max));
  63         }
  64 }
  65
  66 #if !defined(current_wordsize) || current_wordsize == 4
  67
  68 static const char *
  69 sprint_rlim32(uint32_t lim)
  70 {
  71         static char buf[sizeof(uint32_t)*3 + sizeof("*1024")];
  72
  73         if (lim == UINT32_MAX)
  74                 return "RLIM_INFINITY";
  75
  76         if (lim > 1024 && lim % 1024 == 0)
  77                 sprintf(buf, "%" PRIu32 "*1024", lim / 1024);
  78         else
  79                 sprintf(buf, "%" PRIu32, lim);
  80         return buf;
  81 }
  82
  83 static void
  84 print_rlimit32(struct tcb *const tcp, const kernel_ulong_t addr)
  85 {
  86         struct rlimit_32 {
  87                 uint32_t rlim_cur;
  88                 uint32_t rlim_max;
  89         } rlim;
  90
  91         if (!umove_or_printaddr(tcp, addr, &rlim)) {
  92                 tprintf("{rlim_cur=%s,", sprint_rlim32(rlim.rlim_cur));
  93                 tprintf(" rlim_max=%s}", sprint_rlim32(rlim.rlim_max));
  94         }
  95 }
  96
  97 static void
  98 decode_rlimit(struct tcb *const tcp, const kernel_ulong_t addr)
  99 {
 100         /*
 101          * i386 is the only personality on X86_64 and X32
 102          * with 32-bit rlim_t.
 103          * When current_personality is X32, current_wordsize
 104          * equals to 4 but rlim_t is 64-bit.
 105          */
 106         if (current_klongsize == 4)
 107                 print_rlimit32(tcp, addr);
 108         else
 109                 print_rlimit64(tcp, addr);
 110 }
 111
 112 #else /* defined(current_wordsize) && current_wordsize != 4 */
 113
 114 # define decode_rlimit print_rlimit64
 115
 116 #endif
 117
 118 SYS_FUNC(getrlimit)
 119 {
 120         if (entering(tcp)) {
 121                 printxval(resources, tcp->u_arg[0], "RLIMIT_???");
 122                 tprints(", ");
 123         }
 124         else {
 125                 decode_rlimit(tcp, tcp->u_arg[1]);
 126         }
 127         return 0;
 128 }
 129
 130 SYS_FUNC(setrlimit)
 131 {
 132         printxval(resources, tcp->u_arg[0], "RLIMIT_???");
 133         tprints(", ");
 134         decode_rlimit(tcp, tcp->u_arg[1]);
 135
 136         return RVAL_DECODED;
 137 }
 138
 139 SYS_FUNC(prlimit64)
 140 {
 141         if (entering(tcp)) {
 142                 tprintf("%d, ", (int) tcp->u_arg[0]);
 143                 printxval(resources, tcp->u_arg[1], "RLIMIT_???");
 144                 tprints(", ");
 145                 print_rlimit64(tcp, tcp->u_arg[2]);
 146                 tprints(", ");
 147         } else {
 148                 print_rlimit64(tcp, tcp->u_arg[3]);
 149         }
 150         return 0;
 151 }
 152
 153 #include "xlat/usagewho.h"
 154
 155 SYS_FUNC(getrusage)
 156 {
 157         if (entering(tcp)) {
 158                 printxval(usagewho, tcp->u_arg[0], "RUSAGE_???");
 159                 tprints(", ");
 160         }
 161         else
 162                 printrusage(tcp, tcp->u_arg[1]);
 163         return 0;
 164 }
 165
 166 #ifdef ALPHA
 167 SYS_FUNC(osf_getrusage)
 168 {
 169         if (entering(tcp)) {
 170                 printxval(usagewho, tcp->u_arg[0], "RUSAGE_???");
 171                 tprints(", ");
 172         }
 173         else
 174                 printrusage32(tcp, tcp->u_arg[1]);
 175         return 0;
 176 }
 177 #endif /* ALPHA */
 178
 179 #include "xlat/priorities.h"
 180
 181 SYS_FUNC(getpriority)
 182 {
 183         printxval(priorities, tcp->u_arg[0], "PRIO_???");
 184         tprintf(", %d", (int) tcp->u_arg[1]);
 185
 186         return RVAL_DECODED;
 187 }
 188
 189 SYS_FUNC(setpriority)
 190 {
 191         printxval(priorities, tcp->u_arg[0], "PRIO_???");
 192         tprintf(", %d, %d", (int) tcp->u_arg[1], (int) tcp->u_arg[2]);
 193
 194         return RVAL_DECODED;
 195 }