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