sewardj | de4a1d0 | 2002-03-22 01:27:54 +0000 | [diff] [blame] | 1 | |
| 2 | /*--------------------------------------------------------------------*/ |
sewardj | 6e9de46 | 2011-06-28 07:25:29 +0000 | [diff] [blame] | 3 | /*--- Wrappers for generic Unix system calls ---*/ |
njn | 8b68b64 | 2009-06-24 00:37:09 +0000 | [diff] [blame] | 4 | /*--- syswrap-generic.c ---*/ |
sewardj | de4a1d0 | 2002-03-22 01:27:54 +0000 | [diff] [blame] | 5 | /*--------------------------------------------------------------------*/ |
| 6 | |
| 7 | /* |
njn | b9c427c | 2004-12-01 14:14:42 +0000 | [diff] [blame] | 8 | This file is part of Valgrind, a dynamic binary instrumentation |
| 9 | framework. |
sewardj | de4a1d0 | 2002-03-22 01:27:54 +0000 | [diff] [blame] | 10 | |
sewardj | 0f157dd | 2013-10-18 14:27:36 +0000 | [diff] [blame] | 11 | Copyright (C) 2000-2013 Julian Seward |
sewardj | de4a1d0 | 2002-03-22 01:27:54 +0000 | [diff] [blame] | 12 | jseward@acm.org |
sewardj | de4a1d0 | 2002-03-22 01:27:54 +0000 | [diff] [blame] | 13 | |
| 14 | This program is free software; you can redistribute it and/or |
| 15 | modify it under the terms of the GNU General Public License as |
| 16 | published by the Free Software Foundation; either version 2 of the |
| 17 | License, or (at your option) any later version. |
| 18 | |
| 19 | This program is distributed in the hope that it will be useful, but |
| 20 | WITHOUT ANY WARRANTY; without even the implied warranty of |
| 21 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
| 22 | General Public License for more details. |
| 23 | |
| 24 | You should have received a copy of the GNU General Public License |
| 25 | along with this program; if not, write to the Free Software |
| 26 | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA |
| 27 | 02111-1307, USA. |
| 28 | |
njn25 | e49d8e7 | 2002-09-23 09:36:25 +0000 | [diff] [blame] | 29 | The GNU General Public License is contained in the file COPYING. |
sewardj | de4a1d0 | 2002-03-22 01:27:54 +0000 | [diff] [blame] | 30 | */ |
| 31 | |
njn | 8b68b64 | 2009-06-24 00:37:09 +0000 | [diff] [blame] | 32 | #if defined(VGO_linux) || defined(VGO_darwin) |
| 33 | |
njn | c7561b9 | 2005-06-19 01:24:32 +0000 | [diff] [blame] | 34 | #include "pub_core_basics.h" |
sewardj | 4cfea4f | 2006-10-14 19:26:10 +0000 | [diff] [blame] | 35 | #include "pub_core_vki.h" |
| 36 | #include "pub_core_vkiscnums.h" |
sewardj | 6c591e1 | 2011-04-11 16:17:51 +0000 | [diff] [blame] | 37 | #include "pub_core_libcsetjmp.h" // to keep _threadstate.h happy |
njn | c7561b9 | 2005-06-19 01:24:32 +0000 | [diff] [blame] | 38 | #include "pub_core_threadstate.h" |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 39 | #include "pub_core_debuginfo.h" // VG_(di_notify_*) |
sewardj | 55f9d1a | 2005-04-25 11:11:44 +0000 | [diff] [blame] | 40 | #include "pub_core_aspacemgr.h" |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 41 | #include "pub_core_transtab.h" // VG_(discard_translations) |
sewardj | 14c7cc5 | 2007-02-25 15:08:24 +0000 | [diff] [blame] | 42 | #include "pub_core_xarray.h" |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 43 | #include "pub_core_clientstate.h" // VG_(brk_base), VG_(brk_limit) |
njn | 899ce73 | 2005-06-21 00:28:11 +0000 | [diff] [blame] | 44 | #include "pub_core_debuglog.h" |
njn | 0087c50 | 2005-07-01 04:15:36 +0000 | [diff] [blame] | 45 | #include "pub_core_errormgr.h" |
florian | c91f584 | 2013-09-15 10:42:26 +0000 | [diff] [blame] | 46 | #include "pub_core_gdbserver.h" // VG_(gdbserver) |
njn | 97405b2 | 2005-06-02 03:39:33 +0000 | [diff] [blame] | 47 | #include "pub_core_libcbase.h" |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 48 | #include "pub_core_libcassert.h" |
njn | de62cbf | 2005-06-10 22:08:14 +0000 | [diff] [blame] | 49 | #include "pub_core_libcfile.h" |
| 50 | #include "pub_core_libcprint.h" |
njn | f39e9a3 | 2005-06-12 02:43:17 +0000 | [diff] [blame] | 51 | #include "pub_core_libcproc.h" |
njn | de62cbf | 2005-06-10 22:08:14 +0000 | [diff] [blame] | 52 | #include "pub_core_libcsignal.h" |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 53 | #include "pub_core_machine.h" // VG_(get_SP) |
njn | af1d7df | 2005-06-11 01:31:52 +0000 | [diff] [blame] | 54 | #include "pub_core_mallocfree.h" |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 55 | #include "pub_core_options.h" |
njn | c7561b9 | 2005-06-19 01:24:32 +0000 | [diff] [blame] | 56 | #include "pub_core_scheduler.h" |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 57 | #include "pub_core_signals.h" |
njn | 419bbcb | 2005-06-21 03:52:49 +0000 | [diff] [blame] | 58 | #include "pub_core_stacktrace.h" // For VG_(get_and_pp_StackTrace)() |
njn | 9abd608 | 2005-06-17 21:31:45 +0000 | [diff] [blame] | 59 | #include "pub_core_syscall.h" |
njn | c1b0181 | 2005-06-17 22:19:06 +0000 | [diff] [blame] | 60 | #include "pub_core_syswrap.h" |
njn | 419bbcb | 2005-06-21 03:52:49 +0000 | [diff] [blame] | 61 | #include "pub_core_tooliface.h" |
njn | 7375061 | 2005-10-14 03:11:30 +0000 | [diff] [blame] | 62 | #include "pub_core_ume.h" |
sewardj | 55f9d1a | 2005-04-25 11:11:44 +0000 | [diff] [blame] | 63 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 64 | #include "priv_types_n_macros.h" |
njn | c1b0181 | 2005-06-17 22:19:06 +0000 | [diff] [blame] | 65 | #include "priv_syswrap-generic.h" |
sewardj | de4a1d0 | 2002-03-22 01:27:54 +0000 | [diff] [blame] | 66 | |
bart | 870f745 | 2009-12-29 16:56:18 +0000 | [diff] [blame] | 67 | #include "config.h" |
| 68 | |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 69 | |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 70 | /* Returns True iff address range is something the client can |
| 71 | plausibly mess with: all of it is either already belongs to the |
| 72 | client or is free or a reservation. */ |
| 73 | |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 74 | Bool ML_(valid_client_addr)(Addr start, SizeT size, ThreadId tid, |
florian | e543f30 | 2012-10-21 19:43:43 +0000 | [diff] [blame] | 75 | const HChar *syscallname) |
fitzhardinge | 1a30304 | 2003-12-22 08:48:50 +0000 | [diff] [blame] | 76 | { |
fitzhardinge | 1a30304 | 2003-12-22 08:48:50 +0000 | [diff] [blame] | 77 | Bool ret; |
| 78 | |
| 79 | if (size == 0) |
| 80 | return True; |
| 81 | |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 82 | ret = VG_(am_is_valid_for_client_or_free_or_resvn) |
| 83 | (start,size,VKI_PROT_NONE); |
fitzhardinge | 1a30304 | 2003-12-22 08:48:50 +0000 | [diff] [blame] | 84 | |
| 85 | if (0) |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 86 | VG_(printf)("%s: test=%#lx-%#lx ret=%d\n", |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 87 | syscallname, start, start+size-1, (Int)ret); |
fitzhardinge | 1a30304 | 2003-12-22 08:48:50 +0000 | [diff] [blame] | 88 | |
nethercote | 1543adf | 2004-10-25 15:43:21 +0000 | [diff] [blame] | 89 | if (!ret && syscallname != NULL) { |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 90 | VG_(message)(Vg_UserMsg, "Warning: client syscall %s tried " |
sewardj | 738856f | 2009-07-15 14:48:32 +0000 | [diff] [blame] | 91 | "to modify addresses %#lx-%#lx\n", |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 92 | syscallname, start, start+size-1); |
fitzhardinge | 1a30304 | 2003-12-22 08:48:50 +0000 | [diff] [blame] | 93 | if (VG_(clo_verbosity) > 1) { |
njn | d01fef7 | 2005-03-25 23:35:48 +0000 | [diff] [blame] | 94 | VG_(get_and_pp_StackTrace)(tid, VG_(clo_backtrace_size)); |
fitzhardinge | 1a30304 | 2003-12-22 08:48:50 +0000 | [diff] [blame] | 95 | } |
| 96 | } |
| 97 | |
| 98 | return ret; |
| 99 | } |
| 100 | |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 101 | |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 102 | Bool ML_(client_signal_OK)(Int sigNo) |
njn | 419bbcb | 2005-06-21 03:52:49 +0000 | [diff] [blame] | 103 | { |
| 104 | /* signal 0 is OK for kill */ |
njn | 351d006 | 2005-06-21 22:23:59 +0000 | [diff] [blame] | 105 | Bool ret = sigNo >= 0 && sigNo <= VG_SIGVGRTUSERMAX; |
njn | 419bbcb | 2005-06-21 03:52:49 +0000 | [diff] [blame] | 106 | |
| 107 | //VG_(printf)("client_signal_OK(%d) -> %d\n", sigNo, ret); |
| 108 | |
| 109 | return ret; |
| 110 | } |
| 111 | |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 112 | |
| 113 | /* Handy small function to help stop wrappers from segfaulting when |
| 114 | presented with bogus client addresses. Is not used for generating |
| 115 | user-visible errors. */ |
| 116 | |
| 117 | Bool ML_(safe_to_deref) ( void* start, SizeT size ) |
| 118 | { |
njn | 143377e | 2009-06-10 06:13:34 +0000 | [diff] [blame] | 119 | return VG_(am_is_valid_for_client)( (Addr)start, size, VKI_PROT_READ ); |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 120 | } |
| 121 | |
| 122 | |
njn25 | e49d8e7 | 2002-09-23 09:36:25 +0000 | [diff] [blame] | 123 | /* --------------------------------------------------------------------- |
nethercote | 27ea8bc | 2004-07-10 17:21:14 +0000 | [diff] [blame] | 124 | Doing mmap, mremap |
njn25 | e49d8e7 | 2002-09-23 09:36:25 +0000 | [diff] [blame] | 125 | ------------------------------------------------------------------ */ |
sewardj | de4a1d0 | 2002-03-22 01:27:54 +0000 | [diff] [blame] | 126 | |
njn25 | e49d8e7 | 2002-09-23 09:36:25 +0000 | [diff] [blame] | 127 | /* AFAICT from kernel sources (mm/mprotect.c) and general experimentation, |
| 128 | munmap, mprotect (and mremap??) work at the page level. So addresses |
| 129 | and lengths must be adjusted for this. */ |
| 130 | |
| 131 | /* Mash around start and length so that the area exactly covers |
| 132 | an integral number of pages. If we don't do that, memcheck's |
| 133 | idea of addressible memory diverges from that of the |
| 134 | kernel's, which causes the leak detector to crash. */ |
| 135 | static |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 136 | void page_align_addr_and_len( Addr* a, SizeT* len) |
sewardj | de4a1d0 | 2002-03-22 01:27:54 +0000 | [diff] [blame] | 137 | { |
fitzhardinge | 98abfc7 | 2003-12-16 02:05:15 +0000 | [diff] [blame] | 138 | Addr ra; |
| 139 | |
njn | 13bfd85 | 2005-06-02 03:52:53 +0000 | [diff] [blame] | 140 | ra = VG_PGROUNDDN(*a); |
| 141 | *len = VG_PGROUNDUP(*a + *len) - ra; |
fitzhardinge | 98abfc7 | 2003-12-16 02:05:15 +0000 | [diff] [blame] | 142 | *a = ra; |
sewardj | de4a1d0 | 2002-03-22 01:27:54 +0000 | [diff] [blame] | 143 | } |
| 144 | |
njn | dd37258 | 2009-05-10 22:42:19 +0000 | [diff] [blame] | 145 | static void notify_core_of_mmap(Addr a, SizeT len, UInt prot, |
| 146 | UInt flags, Int fd, Off64T offset) |
bart | 510521e | 2008-05-29 08:52:44 +0000 | [diff] [blame] | 147 | { |
| 148 | Bool d; |
njn25 | e49d8e7 | 2002-09-23 09:36:25 +0000 | [diff] [blame] | 149 | |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 150 | /* 'a' is the return value from a real kernel mmap, hence: */ |
| 151 | vg_assert(VG_IS_PAGE_ALIGNED(a)); |
| 152 | /* whereas len is whatever the syscall supplied. So: */ |
| 153 | len = VG_PGROUNDUP(len); |
fitzhardinge | 98abfc7 | 2003-12-16 02:05:15 +0000 | [diff] [blame] | 154 | |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 155 | d = VG_(am_notify_client_mmap)( a, len, prot, flags, fd, offset ); |
fitzhardinge | 98abfc7 | 2003-12-16 02:05:15 +0000 | [diff] [blame] | 156 | |
bart | 510521e | 2008-05-29 08:52:44 +0000 | [diff] [blame] | 157 | if (d) |
| 158 | VG_(discard_translations)( (Addr64)a, (ULong)len, |
njn | dd37258 | 2009-05-10 22:42:19 +0000 | [diff] [blame] | 159 | "notify_core_of_mmap" ); |
bart | 510521e | 2008-05-29 08:52:44 +0000 | [diff] [blame] | 160 | } |
| 161 | |
njn | dd37258 | 2009-05-10 22:42:19 +0000 | [diff] [blame] | 162 | static void notify_tool_of_mmap(Addr a, SizeT len, UInt prot, ULong di_handle) |
bart | 510521e | 2008-05-29 08:52:44 +0000 | [diff] [blame] | 163 | { |
| 164 | Bool rr, ww, xx; |
| 165 | |
| 166 | /* 'a' is the return value from a real kernel mmap, hence: */ |
| 167 | vg_assert(VG_IS_PAGE_ALIGNED(a)); |
| 168 | /* whereas len is whatever the syscall supplied. So: */ |
| 169 | len = VG_PGROUNDUP(len); |
| 170 | |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 171 | rr = toBool(prot & VKI_PROT_READ); |
| 172 | ww = toBool(prot & VKI_PROT_WRITE); |
| 173 | xx = toBool(prot & VKI_PROT_EXEC); |
njn25 | e49d8e7 | 2002-09-23 09:36:25 +0000 | [diff] [blame] | 174 | |
sewardj | 9c606bd | 2008-09-18 18:12:50 +0000 | [diff] [blame] | 175 | VG_TRACK( new_mem_mmap, a, len, rr, ww, xx, di_handle ); |
sewardj | de4a1d0 | 2002-03-22 01:27:54 +0000 | [diff] [blame] | 176 | } |
| 177 | |
njn | dd37258 | 2009-05-10 22:42:19 +0000 | [diff] [blame] | 178 | |
| 179 | /* When a client mmap has been successfully done, this function must |
| 180 | be called. It notifies both aspacem and the tool of the new |
| 181 | mapping. |
| 182 | |
| 183 | JRS 2008-Aug-14: But notice this is *very* obscure. The only place |
| 184 | it is called from is POST(sys_io_setup). In particular, |
| 185 | ML_(generic_PRE_sys_mmap), in m_syswrap, is the "normal case" handler for |
| 186 | client mmap. But it doesn't call this function; instead it does the |
| 187 | relevant notifications itself. Here, we just pass di_handle=0 to |
| 188 | notify_tool_of_mmap as we have no better information. But really this |
| 189 | function should be done away with; problem is I don't understand what |
| 190 | POST(sys_io_setup) does or how it works. |
| 191 | |
| 192 | [However, this function is used lots for Darwin, because |
| 193 | ML_(generic_PRE_sys_mmap) cannot be used for Darwin.] |
| 194 | */ |
| 195 | void |
| 196 | ML_(notify_core_and_tool_of_mmap) ( Addr a, SizeT len, UInt prot, |
| 197 | UInt flags, Int fd, Off64T offset ) |
| 198 | { |
| 199 | // XXX: unlike the other notify_core_and_tool* functions, this one doesn't |
| 200 | // do anything with debug info (ie. it doesn't call VG_(di_notify_mmap)). |
| 201 | // Should it? --njn |
| 202 | notify_core_of_mmap(a, len, prot, flags, fd, offset); |
| 203 | notify_tool_of_mmap(a, len, prot, 0/*di_handle*/); |
| 204 | } |
| 205 | |
| 206 | void |
| 207 | ML_(notify_core_and_tool_of_munmap) ( Addr a, SizeT len ) |
| 208 | { |
| 209 | Bool d; |
| 210 | |
| 211 | page_align_addr_and_len(&a, &len); |
| 212 | d = VG_(am_notify_munmap)(a, len); |
| 213 | VG_TRACK( die_mem_munmap, a, len ); |
| 214 | VG_(di_notify_munmap)( a, len ); |
| 215 | if (d) |
| 216 | VG_(discard_translations)( (Addr64)a, (ULong)len, |
| 217 | "ML_(notify_core_and_tool_of_munmap)" ); |
| 218 | } |
| 219 | |
| 220 | void |
| 221 | ML_(notify_core_and_tool_of_mprotect) ( Addr a, SizeT len, Int prot ) |
| 222 | { |
| 223 | Bool rr = toBool(prot & VKI_PROT_READ); |
| 224 | Bool ww = toBool(prot & VKI_PROT_WRITE); |
| 225 | Bool xx = toBool(prot & VKI_PROT_EXEC); |
| 226 | Bool d; |
| 227 | |
| 228 | page_align_addr_and_len(&a, &len); |
| 229 | d = VG_(am_notify_mprotect)(a, len, prot); |
| 230 | VG_TRACK( change_mem_mprotect, a, len, rr, ww, xx ); |
| 231 | VG_(di_notify_mprotect)( a, len, prot ); |
| 232 | if (d) |
| 233 | VG_(discard_translations)( (Addr64)a, (ULong)len, |
| 234 | "ML_(notify_core_and_tool_of_mprotect)" ); |
| 235 | } |
| 236 | |
| 237 | |
| 238 | |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 239 | #if HAVE_MREMAP |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 240 | /* Expand (or shrink) an existing mapping, potentially moving it at |
| 241 | the same time (controlled by the MREMAP_MAYMOVE flag). Nightmare. |
| 242 | */ |
| 243 | static |
| 244 | SysRes do_mremap( Addr old_addr, SizeT old_len, |
| 245 | Addr new_addr, SizeT new_len, |
| 246 | UWord flags, ThreadId tid ) |
njn25 | e49d8e7 | 2002-09-23 09:36:25 +0000 | [diff] [blame] | 247 | { |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 248 | # define MIN_SIZET(_aa,_bb) (_aa) < (_bb) ? (_aa) : (_bb) |
njn25 | e49d8e7 | 2002-09-23 09:36:25 +0000 | [diff] [blame] | 249 | |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 250 | Bool ok, d; |
sewardj | ef1cf8b | 2006-10-17 01:47:30 +0000 | [diff] [blame] | 251 | NSegment const* old_seg; |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 252 | Addr advised; |
| 253 | Bool f_fixed = toBool(flags & VKI_MREMAP_FIXED); |
| 254 | Bool f_maymove = toBool(flags & VKI_MREMAP_MAYMOVE); |
fitzhardinge | 1a30304 | 2003-12-22 08:48:50 +0000 | [diff] [blame] | 255 | |
| 256 | if (0) |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 257 | VG_(printf)("do_remap (old %#lx %ld) (new %#lx %ld) %s %s\n", |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 258 | old_addr,old_len,new_addr,new_len, |
| 259 | flags & VKI_MREMAP_MAYMOVE ? "MAYMOVE" : "", |
| 260 | flags & VKI_MREMAP_FIXED ? "FIXED" : ""); |
sewardj | 63a622f | 2006-08-16 14:22:29 +0000 | [diff] [blame] | 261 | if (0) |
| 262 | VG_(am_show_nsegments)(0, "do_remap: before"); |
fitzhardinge | 1a30304 | 2003-12-22 08:48:50 +0000 | [diff] [blame] | 263 | |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 264 | if (flags & ~(VKI_MREMAP_FIXED | VKI_MREMAP_MAYMOVE)) |
| 265 | goto eINVAL; |
fitzhardinge | 1a30304 | 2003-12-22 08:48:50 +0000 | [diff] [blame] | 266 | |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 267 | if (!VG_IS_PAGE_ALIGNED(old_addr)) |
| 268 | goto eINVAL; |
fitzhardinge | 1a30304 | 2003-12-22 08:48:50 +0000 | [diff] [blame] | 269 | |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 270 | old_len = VG_PGROUNDUP(old_len); |
| 271 | new_len = VG_PGROUNDUP(new_len); |
fitzhardinge | 1a30304 | 2003-12-22 08:48:50 +0000 | [diff] [blame] | 272 | |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 273 | if (new_len == 0) |
| 274 | goto eINVAL; |
fitzhardinge | 1a30304 | 2003-12-22 08:48:50 +0000 | [diff] [blame] | 275 | |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 276 | /* kernel doesn't reject this, but we do. */ |
| 277 | if (old_len == 0) |
| 278 | goto eINVAL; |
fitzhardinge | 1a30304 | 2003-12-22 08:48:50 +0000 | [diff] [blame] | 279 | |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 280 | /* reject wraparounds */ |
tom | a5e13dd | 2011-08-11 14:51:47 +0000 | [diff] [blame] | 281 | if (old_addr + old_len < old_addr) |
| 282 | goto eINVAL; |
| 283 | if (f_fixed == True && new_addr + new_len < new_len) |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 284 | goto eINVAL; |
fitzhardinge | 1a30304 | 2003-12-22 08:48:50 +0000 | [diff] [blame] | 285 | |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 286 | /* kernel rejects all fixed, no-move requests (which are |
| 287 | meaningless). */ |
| 288 | if (f_fixed == True && f_maymove == False) |
| 289 | goto eINVAL; |
fitzhardinge | 1a30304 | 2003-12-22 08:48:50 +0000 | [diff] [blame] | 290 | |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 291 | /* Stay away from non-client areas. */ |
| 292 | if (!ML_(valid_client_addr)(old_addr, old_len, tid, "mremap(old_addr)")) |
| 293 | goto eINVAL; |
fitzhardinge | 1a30304 | 2003-12-22 08:48:50 +0000 | [diff] [blame] | 294 | |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 295 | /* In all remaining cases, if the old range does not fall within a |
| 296 | single segment, fail. */ |
| 297 | old_seg = VG_(am_find_nsegment)( old_addr ); |
| 298 | if (old_addr < old_seg->start || old_addr+old_len-1 > old_seg->end) |
| 299 | goto eINVAL; |
sewardj | fdf619e | 2005-11-23 03:41:41 +0000 | [diff] [blame] | 300 | if (old_seg->kind != SkAnonC && old_seg->kind != SkFileC) |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 301 | goto eINVAL; |
fitzhardinge | 1a30304 | 2003-12-22 08:48:50 +0000 | [diff] [blame] | 302 | |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 303 | vg_assert(old_len > 0); |
| 304 | vg_assert(new_len > 0); |
| 305 | vg_assert(VG_IS_PAGE_ALIGNED(old_len)); |
| 306 | vg_assert(VG_IS_PAGE_ALIGNED(new_len)); |
| 307 | vg_assert(VG_IS_PAGE_ALIGNED(old_addr)); |
fitzhardinge | 1a30304 | 2003-12-22 08:48:50 +0000 | [diff] [blame] | 308 | |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 309 | /* There are 3 remaining cases: |
fitzhardinge | 1a30304 | 2003-12-22 08:48:50 +0000 | [diff] [blame] | 310 | |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 311 | * maymove == False |
| 312 | |
| 313 | new space has to be at old address, so: |
| 314 | - shrink -> unmap end |
| 315 | - same size -> do nothing |
| 316 | - grow -> if can grow in-place, do so, else fail |
| 317 | |
| 318 | * maymove == True, fixed == False |
| 319 | |
| 320 | new space can be anywhere, so: |
| 321 | - shrink -> unmap end |
| 322 | - same size -> do nothing |
| 323 | - grow -> if can grow in-place, do so, else |
| 324 | move to anywhere large enough, else fail |
| 325 | |
| 326 | * maymove == True, fixed == True |
| 327 | |
| 328 | new space must be at new address, so: |
| 329 | |
| 330 | - if new address is not page aligned, fail |
| 331 | - if new address range overlaps old one, fail |
| 332 | - if new address range cannot be allocated, fail |
| 333 | - else move to new address range with new size |
| 334 | - else fail |
| 335 | */ |
| 336 | |
| 337 | if (f_maymove == False) { |
| 338 | /* new space has to be at old address */ |
| 339 | if (new_len < old_len) |
| 340 | goto shrink_in_place; |
| 341 | if (new_len > old_len) |
| 342 | goto grow_in_place_or_fail; |
| 343 | goto same_in_place; |
| 344 | } |
| 345 | |
| 346 | if (f_maymove == True && f_fixed == False) { |
| 347 | /* new space can be anywhere */ |
| 348 | if (new_len < old_len) |
| 349 | goto shrink_in_place; |
| 350 | if (new_len > old_len) |
| 351 | goto grow_in_place_or_move_anywhere_or_fail; |
| 352 | goto same_in_place; |
| 353 | } |
| 354 | |
| 355 | if (f_maymove == True && f_fixed == True) { |
| 356 | /* new space can only be at the new address */ |
| 357 | if (!VG_IS_PAGE_ALIGNED(new_addr)) |
| 358 | goto eINVAL; |
| 359 | if (new_addr+new_len-1 < old_addr || new_addr > old_addr+old_len-1) { |
| 360 | /* no overlap */ |
fitzhardinge | 1a30304 | 2003-12-22 08:48:50 +0000 | [diff] [blame] | 361 | } else { |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 362 | goto eINVAL; |
| 363 | } |
| 364 | if (new_addr == 0) |
| 365 | goto eINVAL; |
| 366 | /* VG_(am_get_advisory_client_simple) interprets zero to mean |
| 367 | non-fixed, which is not what we want */ |
| 368 | advised = VG_(am_get_advisory_client_simple)(new_addr, new_len, &ok); |
| 369 | if (!ok || advised != new_addr) |
| 370 | goto eNOMEM; |
| 371 | ok = VG_(am_relocate_nooverlap_client) |
| 372 | ( &d, old_addr, old_len, new_addr, new_len ); |
| 373 | if (ok) { |
| 374 | VG_TRACK( copy_mem_remap, old_addr, new_addr, |
| 375 | MIN_SIZET(old_len,new_len) ); |
| 376 | if (new_len > old_len) |
| 377 | VG_TRACK( new_mem_mmap, new_addr+old_len, new_len-old_len, |
sewardj | 9c606bd | 2008-09-18 18:12:50 +0000 | [diff] [blame] | 378 | old_seg->hasR, old_seg->hasW, old_seg->hasX, |
| 379 | 0/*di_handle*/ ); |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 380 | VG_TRACK(die_mem_munmap, old_addr, old_len); |
| 381 | if (d) { |
| 382 | VG_(discard_translations)( old_addr, old_len, "do_remap(1)" ); |
| 383 | VG_(discard_translations)( new_addr, new_len, "do_remap(2)" ); |
| 384 | } |
| 385 | return VG_(mk_SysRes_Success)( new_addr ); |
| 386 | } |
| 387 | goto eNOMEM; |
| 388 | } |
fitzhardinge | 1a30304 | 2003-12-22 08:48:50 +0000 | [diff] [blame] | 389 | |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 390 | /* end of the 3 cases */ |
| 391 | /*NOTREACHED*/ vg_assert(0); |
fitzhardinge | 1a30304 | 2003-12-22 08:48:50 +0000 | [diff] [blame] | 392 | |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 393 | grow_in_place_or_move_anywhere_or_fail: |
| 394 | { |
| 395 | /* try growing it in-place */ |
| 396 | Addr needA = old_addr + old_len; |
| 397 | SSizeT needL = new_len - old_len; |
fitzhardinge | 1a30304 | 2003-12-22 08:48:50 +0000 | [diff] [blame] | 398 | |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 399 | vg_assert(needL > 0); |
| 400 | if (needA == 0) |
| 401 | goto eINVAL; |
| 402 | /* VG_(am_get_advisory_client_simple) interprets zero to mean |
| 403 | non-fixed, which is not what we want */ |
| 404 | advised = VG_(am_get_advisory_client_simple)( needA, needL, &ok ); |
sewardj | 63a622f | 2006-08-16 14:22:29 +0000 | [diff] [blame] | 405 | if (ok) { |
philippe | 15e301e | 2011-12-22 13:25:58 +0000 | [diff] [blame] | 406 | /* Fixes bug #129866. */ |
| 407 | ok = VG_(am_covered_by_single_free_segment) ( needA, needL ); |
sewardj | 63a622f | 2006-08-16 14:22:29 +0000 | [diff] [blame] | 408 | } |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 409 | if (ok && advised == needA) { |
florian | 3e79863 | 2012-11-24 19:41:54 +0000 | [diff] [blame] | 410 | ok = VG_(am_extend_map_client)( &d, old_seg, needL ); |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 411 | if (ok) { |
| 412 | VG_TRACK( new_mem_mmap, needA, needL, |
| 413 | old_seg->hasR, |
sewardj | 9c606bd | 2008-09-18 18:12:50 +0000 | [diff] [blame] | 414 | old_seg->hasW, old_seg->hasX, |
| 415 | 0/*di_handle*/ ); |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 416 | if (d) |
| 417 | VG_(discard_translations)( needA, needL, "do_remap(3)" ); |
| 418 | return VG_(mk_SysRes_Success)( old_addr ); |
fitzhardinge | 1a30304 | 2003-12-22 08:48:50 +0000 | [diff] [blame] | 419 | } |
| 420 | } |
| 421 | |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 422 | /* that failed. Look elsewhere. */ |
| 423 | advised = VG_(am_get_advisory_client_simple)( 0, new_len, &ok ); |
| 424 | if (ok) { |
tom | 5484f38 | 2010-09-27 15:08:34 +0000 | [diff] [blame] | 425 | Bool oldR = old_seg->hasR; |
| 426 | Bool oldW = old_seg->hasW; |
| 427 | Bool oldX = old_seg->hasX; |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 428 | /* assert new area does not overlap old */ |
| 429 | vg_assert(advised+new_len-1 < old_addr |
| 430 | || advised > old_addr+old_len-1); |
| 431 | ok = VG_(am_relocate_nooverlap_client) |
| 432 | ( &d, old_addr, old_len, advised, new_len ); |
| 433 | if (ok) { |
| 434 | VG_TRACK( copy_mem_remap, old_addr, advised, |
| 435 | MIN_SIZET(old_len,new_len) ); |
| 436 | if (new_len > old_len) |
| 437 | VG_TRACK( new_mem_mmap, advised+old_len, new_len-old_len, |
tom | 5484f38 | 2010-09-27 15:08:34 +0000 | [diff] [blame] | 438 | oldR, oldW, oldX, 0/*di_handle*/ ); |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 439 | VG_TRACK(die_mem_munmap, old_addr, old_len); |
| 440 | if (d) { |
| 441 | VG_(discard_translations)( old_addr, old_len, "do_remap(4)" ); |
| 442 | VG_(discard_translations)( advised, new_len, "do_remap(5)" ); |
| 443 | } |
| 444 | return VG_(mk_SysRes_Success)( advised ); |
| 445 | } |
| 446 | } |
| 447 | goto eNOMEM; |
| 448 | } |
| 449 | /*NOTREACHED*/ vg_assert(0); |
| 450 | |
| 451 | grow_in_place_or_fail: |
| 452 | { |
| 453 | Addr needA = old_addr + old_len; |
| 454 | SizeT needL = new_len - old_len; |
| 455 | if (needA == 0) |
| 456 | goto eINVAL; |
| 457 | /* VG_(am_get_advisory_client_simple) interprets zero to mean |
| 458 | non-fixed, which is not what we want */ |
| 459 | advised = VG_(am_get_advisory_client_simple)( needA, needL, &ok ); |
sewardj | 63a622f | 2006-08-16 14:22:29 +0000 | [diff] [blame] | 460 | if (ok) { |
philippe | 15e301e | 2011-12-22 13:25:58 +0000 | [diff] [blame] | 461 | /* Fixes bug #129866. */ |
| 462 | ok = VG_(am_covered_by_single_free_segment) ( needA, needL ); |
sewardj | 63a622f | 2006-08-16 14:22:29 +0000 | [diff] [blame] | 463 | } |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 464 | if (!ok || advised != needA) |
| 465 | goto eNOMEM; |
florian | 3e79863 | 2012-11-24 19:41:54 +0000 | [diff] [blame] | 466 | ok = VG_(am_extend_map_client)( &d, old_seg, needL ); |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 467 | if (!ok) |
| 468 | goto eNOMEM; |
| 469 | VG_TRACK( new_mem_mmap, needA, needL, |
sewardj | 9c606bd | 2008-09-18 18:12:50 +0000 | [diff] [blame] | 470 | old_seg->hasR, old_seg->hasW, old_seg->hasX, |
| 471 | 0/*di_handle*/ ); |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 472 | if (d) |
| 473 | VG_(discard_translations)( needA, needL, "do_remap(6)" ); |
| 474 | return VG_(mk_SysRes_Success)( old_addr ); |
| 475 | } |
| 476 | /*NOTREACHED*/ vg_assert(0); |
| 477 | |
| 478 | shrink_in_place: |
| 479 | { |
| 480 | SysRes sres = VG_(am_munmap_client)( &d, old_addr+new_len, old_len-new_len ); |
njn | cda2f0f | 2009-05-18 02:12:08 +0000 | [diff] [blame] | 481 | if (sr_isError(sres)) |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 482 | return sres; |
| 483 | VG_TRACK( die_mem_munmap, old_addr+new_len, old_len-new_len ); |
| 484 | if (d) |
| 485 | VG_(discard_translations)( old_addr+new_len, old_len-new_len, |
| 486 | "do_remap(7)" ); |
| 487 | return VG_(mk_SysRes_Success)( old_addr ); |
| 488 | } |
| 489 | /*NOTREACHED*/ vg_assert(0); |
| 490 | |
| 491 | same_in_place: |
| 492 | return VG_(mk_SysRes_Success)( old_addr ); |
| 493 | /*NOTREACHED*/ vg_assert(0); |
| 494 | |
| 495 | eINVAL: |
| 496 | return VG_(mk_SysRes_Error)( VKI_EINVAL ); |
| 497 | eNOMEM: |
| 498 | return VG_(mk_SysRes_Error)( VKI_ENOMEM ); |
| 499 | |
| 500 | # undef MIN_SIZET |
sewardj | de4a1d0 | 2002-03-22 01:27:54 +0000 | [diff] [blame] | 501 | } |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 502 | #endif /* HAVE_MREMAP */ |
sewardj | de4a1d0 | 2002-03-22 01:27:54 +0000 | [diff] [blame] | 503 | |
| 504 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 505 | /* --------------------------------------------------------------------- |
| 506 | File-descriptor tracking |
| 507 | ------------------------------------------------------------------ */ |
sewardj | de4a1d0 | 2002-03-22 01:27:54 +0000 | [diff] [blame] | 508 | |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 509 | /* One of these is allocated for each open file descriptor. */ |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 510 | typedef struct OpenFd |
| 511 | { |
| 512 | Int fd; /* The file descriptor */ |
florian | 19f91bb | 2012-11-10 22:29:54 +0000 | [diff] [blame] | 513 | HChar *pathname; /* NULL if not a regular file or unknown */ |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 514 | ExeContext *where; /* NULL if inherited from parent */ |
| 515 | struct OpenFd *next, *prev; |
| 516 | } OpenFd; |
| 517 | |
| 518 | /* List of allocated file descriptors. */ |
sewardj | 1aa4021 | 2006-12-11 01:11:02 +0000 | [diff] [blame] | 519 | static OpenFd *allocated_fds = NULL; |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 520 | |
| 521 | /* Count of open file descriptors. */ |
sewardj | 0a400c7 | 2005-07-23 09:22:46 +0000 | [diff] [blame] | 522 | static Int fd_count = 0; |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 523 | |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 524 | |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 525 | /* Note the fact that a file descriptor was just closed. */ |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 526 | static |
njn | 1dcee09 | 2009-02-24 03:07:37 +0000 | [diff] [blame] | 527 | void record_fd_close(Int fd) |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 528 | { |
| 529 | OpenFd *i = allocated_fds; |
| 530 | |
thughes | ad1c956 | 2004-06-26 11:27:52 +0000 | [diff] [blame] | 531 | if (fd >= VG_(fd_hard_limit)) |
rjwalsh | 02665ba | 2003-12-18 01:48:06 +0000 | [diff] [blame] | 532 | return; /* Valgrind internal */ |
| 533 | |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 534 | while(i) { |
| 535 | if(i->fd == fd) { |
| 536 | if(i->prev) |
| 537 | i->prev->next = i->next; |
| 538 | else |
| 539 | allocated_fds = i->next; |
| 540 | if(i->next) |
| 541 | i->next->prev = i->prev; |
| 542 | if(i->pathname) |
fitzhardinge | a772847 | 2003-12-16 01:48:38 +0000 | [diff] [blame] | 543 | VG_(arena_free) (VG_AR_CORE, i->pathname); |
| 544 | VG_(arena_free) (VG_AR_CORE, i); |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 545 | fd_count--; |
| 546 | break; |
| 547 | } |
| 548 | i = i->next; |
| 549 | } |
| 550 | } |
| 551 | |
| 552 | /* Note the fact that a file descriptor was just opened. If the |
| 553 | tid is -1, this indicates an inherited fd. If the pathname is NULL, |
| 554 | this either indicates a non-standard file (i.e. a pipe or socket or |
| 555 | some such thing) or that we don't know the filename. If the fd is |
| 556 | already open, then we're probably doing a dup2() to an existing fd, |
| 557 | so just overwrite the existing one. */ |
njn | 4279a88 | 2005-08-26 03:43:28 +0000 | [diff] [blame] | 558 | void ML_(record_fd_open_with_given_name)(ThreadId tid, Int fd, char *pathname) |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 559 | { |
| 560 | OpenFd *i; |
| 561 | |
thughes | ad1c956 | 2004-06-26 11:27:52 +0000 | [diff] [blame] | 562 | if (fd >= VG_(fd_hard_limit)) |
fitzhardinge | 0e8bfcf | 2003-12-12 07:46:54 +0000 | [diff] [blame] | 563 | return; /* Valgrind internal */ |
| 564 | |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 565 | /* Check to see if this fd is already open. */ |
| 566 | i = allocated_fds; |
| 567 | while (i) { |
| 568 | if (i->fd == fd) { |
fitzhardinge | a772847 | 2003-12-16 01:48:38 +0000 | [diff] [blame] | 569 | if (i->pathname) VG_(arena_free)(VG_AR_CORE, i->pathname); |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 570 | break; |
| 571 | } |
| 572 | i = i->next; |
| 573 | } |
| 574 | |
| 575 | /* Not already one: allocate an OpenFd */ |
| 576 | if (i == NULL) { |
sewardj | 9c606bd | 2008-09-18 18:12:50 +0000 | [diff] [blame] | 577 | i = VG_(arena_malloc)(VG_AR_CORE, "syswrap.rfdowgn.1", sizeof(OpenFd)); |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 578 | |
| 579 | i->prev = NULL; |
| 580 | i->next = allocated_fds; |
| 581 | if(allocated_fds) allocated_fds->prev = i; |
| 582 | allocated_fds = i; |
| 583 | fd_count++; |
| 584 | } |
| 585 | |
| 586 | i->fd = fd; |
sewardj | 9c606bd | 2008-09-18 18:12:50 +0000 | [diff] [blame] | 587 | i->pathname = VG_(arena_strdup)(VG_AR_CORE, "syswrap.rfdowgn.2", pathname); |
sewardj | d01b598 | 2007-11-09 23:24:09 +0000 | [diff] [blame] | 588 | i->where = (tid == -1) ? NULL : VG_(record_ExeContext)(tid, 0/*first_ip_delta*/); |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 589 | } |
| 590 | |
njn | f845f8f | 2005-06-23 02:26:47 +0000 | [diff] [blame] | 591 | // Record opening of an fd, and find its name. |
njn | 096ccdd | 2009-02-22 23:00:30 +0000 | [diff] [blame] | 592 | void ML_(record_fd_open_named)(ThreadId tid, Int fd) |
njn | f845f8f | 2005-06-23 02:26:47 +0000 | [diff] [blame] | 593 | { |
| 594 | static HChar buf[VKI_PATH_MAX]; |
florian | e543f30 | 2012-10-21 19:43:43 +0000 | [diff] [blame] | 595 | HChar* name; |
njn | f845f8f | 2005-06-23 02:26:47 +0000 | [diff] [blame] | 596 | if (VG_(resolve_filename)(fd, buf, VKI_PATH_MAX)) |
| 597 | name = buf; |
| 598 | else |
| 599 | name = NULL; |
| 600 | |
njn | 4279a88 | 2005-08-26 03:43:28 +0000 | [diff] [blame] | 601 | ML_(record_fd_open_with_given_name)(tid, fd, name); |
njn | f845f8f | 2005-06-23 02:26:47 +0000 | [diff] [blame] | 602 | } |
| 603 | |
| 604 | // Record opening of a nameless fd. |
| 605 | void ML_(record_fd_open_nameless)(ThreadId tid, Int fd) |
| 606 | { |
njn | 4279a88 | 2005-08-26 03:43:28 +0000 | [diff] [blame] | 607 | ML_(record_fd_open_with_given_name)(tid, fd, NULL); |
njn | f845f8f | 2005-06-23 02:26:47 +0000 | [diff] [blame] | 608 | } |
| 609 | |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 610 | static |
tom | 3995526 | 2014-02-24 15:06:06 +0000 | [diff] [blame] | 611 | HChar *unix_to_name(struct vki_sockaddr_un *sa, UInt len, HChar *name) |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 612 | { |
nethercote | 73b526f | 2004-10-31 18:48:21 +0000 | [diff] [blame] | 613 | if (sa == NULL || len == 0 || sa->sun_path[0] == '\0') { |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 614 | VG_(sprintf)(name, "<unknown>"); |
| 615 | } else { |
| 616 | VG_(sprintf)(name, "%s", sa->sun_path); |
| 617 | } |
| 618 | |
| 619 | return name; |
| 620 | } |
| 621 | |
| 622 | static |
tom | 3995526 | 2014-02-24 15:06:06 +0000 | [diff] [blame] | 623 | HChar *inet_to_name(struct vki_sockaddr_in *sa, UInt len, HChar *name) |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 624 | { |
nethercote | 73b526f | 2004-10-31 18:48:21 +0000 | [diff] [blame] | 625 | if (sa == NULL || len == 0) { |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 626 | VG_(sprintf)(name, "<unknown>"); |
tom | 3995526 | 2014-02-24 15:06:06 +0000 | [diff] [blame] | 627 | } else if (sa->sin_port == 0) { |
| 628 | VG_(sprintf)(name, "<unbound>"); |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 629 | } else { |
tom | 329af4b | 2005-11-17 12:02:58 +0000 | [diff] [blame] | 630 | UInt addr = VG_(ntohl)(sa->sin_addr.s_addr); |
tom | 3995526 | 2014-02-24 15:06:06 +0000 | [diff] [blame] | 631 | VG_(sprintf)(name, "%u.%u.%u.%u:%u", |
| 632 | (addr>>24) & 0xFF, (addr>>16) & 0xFF, |
| 633 | (addr>>8) & 0xFF, addr & 0xFF, |
| 634 | VG_(ntohs)(sa->sin_port)); |
| 635 | } |
| 636 | |
| 637 | return name; |
| 638 | } |
| 639 | |
| 640 | static |
| 641 | void inet6_format(HChar *s, const UChar ip[16]) |
| 642 | { |
| 643 | static const unsigned char V4mappedprefix[12] = {0,0,0,0,0,0,0,0,0,0,0xff,0xff}; |
| 644 | |
| 645 | if (!VG_(memcmp)(ip, V4mappedprefix, 12)) { |
| 646 | struct vki_in_addr *sin_addr = (struct vki_in_addr *)(ip + 12); |
| 647 | UInt addr = VG_(ntohl)(sin_addr->s_addr); |
| 648 | |
| 649 | VG_(sprintf)(s, "::ffff:%u.%u.%u.%u", |
| 650 | (addr>>24) & 0xFF, (addr>>16) & 0xFF, |
| 651 | (addr>>8) & 0xFF, addr & 0xFF); |
| 652 | } else { |
| 653 | Bool compressing = False; |
| 654 | Bool compressed = False; |
| 655 | Int len = 0; |
| 656 | Int i; |
| 657 | |
| 658 | for (i = 0; i < 16; i += 2) { |
| 659 | UInt word = ((UInt)ip[i] << 8) | (UInt)ip[i+1]; |
| 660 | if (word == 0 && !compressed) { |
| 661 | compressing = True; |
| 662 | } else { |
| 663 | if (compressing) { |
| 664 | compressing = False; |
| 665 | compressed = True; |
| 666 | s[len++] = ':'; |
| 667 | } |
| 668 | if (i > 0) { |
| 669 | s[len++] = ':'; |
| 670 | } |
| 671 | len += VG_(sprintf)(s + len, "%x", word); |
| 672 | } |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 673 | } |
tom | 3995526 | 2014-02-24 15:06:06 +0000 | [diff] [blame] | 674 | |
| 675 | if (compressing) { |
| 676 | s[len++] = ':'; |
| 677 | s[len++] = ':'; |
| 678 | } |
| 679 | |
| 680 | s[len++] = 0; |
| 681 | } |
| 682 | |
| 683 | return; |
| 684 | } |
| 685 | |
| 686 | static |
| 687 | HChar *inet6_to_name(struct vki_sockaddr_in6 *sa, UInt len, HChar *name) |
| 688 | { |
| 689 | if (sa == NULL || len == 0) { |
| 690 | VG_(sprintf)(name, "<unknown>"); |
| 691 | } else if (sa->sin6_port == 0) { |
| 692 | VG_(sprintf)(name, "<unbound>"); |
| 693 | } else { |
| 694 | char addr[128]; |
| 695 | inet6_format(addr, (void *)&(sa->sin6_addr)); |
| 696 | VG_(sprintf)(name, "[%s]:%u", addr, VG_(ntohs)(sa->sin6_port)); |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 697 | } |
| 698 | |
| 699 | return name; |
| 700 | } |
| 701 | |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 702 | /* |
| 703 | * Try get some details about a socket. |
| 704 | */ |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 705 | static void |
sewardj | 0a400c7 | 2005-07-23 09:22:46 +0000 | [diff] [blame] | 706 | getsockdetails(Int fd) |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 707 | { |
| 708 | union u { |
nethercote | 73b526f | 2004-10-31 18:48:21 +0000 | [diff] [blame] | 709 | struct vki_sockaddr a; |
| 710 | struct vki_sockaddr_in in; |
tom | 3995526 | 2014-02-24 15:06:06 +0000 | [diff] [blame] | 711 | struct vki_sockaddr_in6 in6; |
nethercote | 73b526f | 2004-10-31 18:48:21 +0000 | [diff] [blame] | 712 | struct vki_sockaddr_un un; |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 713 | } laddr; |
florian | 1636d33 | 2012-11-15 04:27:04 +0000 | [diff] [blame] | 714 | Int llen; |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 715 | |
| 716 | llen = sizeof(laddr); |
| 717 | VG_(memset)(&laddr, 0, llen); |
| 718 | |
| 719 | if(VG_(getsockname)(fd, (struct vki_sockaddr *)&(laddr.a), &llen) != -1) { |
| 720 | switch(laddr.a.sa_family) { |
nethercote | 73b526f | 2004-10-31 18:48:21 +0000 | [diff] [blame] | 721 | case VKI_AF_INET: { |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 722 | static char lname[32]; |
| 723 | static char pname[32]; |
nethercote | 73b526f | 2004-10-31 18:48:21 +0000 | [diff] [blame] | 724 | struct vki_sockaddr_in paddr; |
florian | 1636d33 | 2012-11-15 04:27:04 +0000 | [diff] [blame] | 725 | Int plen = sizeof(struct vki_sockaddr_in); |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 726 | |
sewardj | 738856f | 2009-07-15 14:48:32 +0000 | [diff] [blame] | 727 | if (VG_(getpeername)(fd, (struct vki_sockaddr *)&paddr, &plen) != -1) { |
| 728 | VG_(message)(Vg_UserMsg, "Open AF_INET socket %d: %s <-> %s\n", fd, |
tom | 3995526 | 2014-02-24 15:06:06 +0000 | [diff] [blame] | 729 | inet_to_name(&(laddr.in), llen, lname), |
| 730 | inet_to_name(&paddr, plen, pname)); |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 731 | } else { |
sewardj | 738856f | 2009-07-15 14:48:32 +0000 | [diff] [blame] | 732 | VG_(message)(Vg_UserMsg, "Open AF_INET socket %d: %s <-> unbound\n", |
tom | 3995526 | 2014-02-24 15:06:06 +0000 | [diff] [blame] | 733 | fd, inet_to_name(&(laddr.in), llen, lname)); |
| 734 | } |
| 735 | return; |
| 736 | } |
| 737 | case VKI_AF_INET6: { |
| 738 | static char lname[128]; |
| 739 | static char pname[128]; |
| 740 | struct vki_sockaddr_in6 paddr; |
| 741 | Int plen = sizeof(struct vki_sockaddr_in6); |
| 742 | |
| 743 | if (VG_(getpeername)(fd, (struct vki_sockaddr *)&paddr, &plen) != -1) { |
| 744 | VG_(message)(Vg_UserMsg, "Open AF_INET6 socket %d: %s <-> %s\n", fd, |
| 745 | inet6_to_name(&(laddr.in6), llen, lname), |
| 746 | inet6_to_name(&paddr, plen, pname)); |
| 747 | } else { |
| 748 | VG_(message)(Vg_UserMsg, "Open AF_INET6 socket %d: %s <-> unbound\n", |
| 749 | fd, inet6_to_name(&(laddr.in6), llen, lname)); |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 750 | } |
| 751 | return; |
| 752 | } |
nethercote | 73b526f | 2004-10-31 18:48:21 +0000 | [diff] [blame] | 753 | case VKI_AF_UNIX: { |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 754 | static char lname[256]; |
sewardj | 738856f | 2009-07-15 14:48:32 +0000 | [diff] [blame] | 755 | VG_(message)(Vg_UserMsg, "Open AF_UNIX socket %d: %s\n", fd, |
tom | 3995526 | 2014-02-24 15:06:06 +0000 | [diff] [blame] | 756 | unix_to_name(&(laddr.un), llen, lname)); |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 757 | return; |
| 758 | } |
| 759 | default: |
sewardj | 738856f | 2009-07-15 14:48:32 +0000 | [diff] [blame] | 760 | VG_(message)(Vg_UserMsg, "Open pf-%d socket %d:\n", |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 761 | laddr.a.sa_family, fd); |
| 762 | return; |
| 763 | } |
| 764 | } |
| 765 | |
sewardj | 738856f | 2009-07-15 14:48:32 +0000 | [diff] [blame] | 766 | VG_(message)(Vg_UserMsg, "Open socket %d:\n", fd); |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 767 | } |
| 768 | |
| 769 | |
nethercote | 3a42fb8 | 2004-08-03 18:08:50 +0000 | [diff] [blame] | 770 | /* Dump out a summary, and a more detailed list, of open file descriptors. */ |
florian | e543f30 | 2012-10-21 19:43:43 +0000 | [diff] [blame] | 771 | void VG_(show_open_fds) (const HChar* when) |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 772 | { |
| 773 | OpenFd *i = allocated_fds; |
| 774 | |
philippe | c336038 | 2012-10-21 14:37:14 +0000 | [diff] [blame] | 775 | VG_(message)(Vg_UserMsg, "FILE DESCRIPTORS: %d open %s.\n", fd_count, when); |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 776 | |
sewardj | 738856f | 2009-07-15 14:48:32 +0000 | [diff] [blame] | 777 | while (i) { |
| 778 | if (i->pathname) { |
| 779 | VG_(message)(Vg_UserMsg, "Open file descriptor %d: %s\n", i->fd, |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 780 | i->pathname); |
| 781 | } else { |
sewardj | 0a400c7 | 2005-07-23 09:22:46 +0000 | [diff] [blame] | 782 | Int val; |
florian | 1636d33 | 2012-11-15 04:27:04 +0000 | [diff] [blame] | 783 | Int len = sizeof(val); |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 784 | |
sewardj | 738856f | 2009-07-15 14:48:32 +0000 | [diff] [blame] | 785 | if (VG_(getsockopt)(i->fd, VKI_SOL_SOCKET, VKI_SO_TYPE, &val, &len) |
| 786 | == -1) { |
| 787 | VG_(message)(Vg_UserMsg, "Open file descriptor %d:\n", i->fd); |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 788 | } else { |
| 789 | getsockdetails(i->fd); |
| 790 | } |
| 791 | } |
| 792 | |
| 793 | if(i->where) { |
| 794 | VG_(pp_ExeContext)(i->where); |
sewardj | 738856f | 2009-07-15 14:48:32 +0000 | [diff] [blame] | 795 | VG_(message)(Vg_UserMsg, "\n"); |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 796 | } else { |
sewardj | 738856f | 2009-07-15 14:48:32 +0000 | [diff] [blame] | 797 | VG_(message)(Vg_UserMsg, " <inherited from parent>\n"); |
| 798 | VG_(message)(Vg_UserMsg, "\n"); |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 799 | } |
| 800 | |
| 801 | i = i->next; |
| 802 | } |
| 803 | |
sewardj | 738856f | 2009-07-15 14:48:32 +0000 | [diff] [blame] | 804 | VG_(message)(Vg_UserMsg, "\n"); |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 805 | } |
| 806 | |
njn | 81b975c | 2009-04-28 05:35:53 +0000 | [diff] [blame] | 807 | /* If /proc/self/fd doesn't exist (e.g. you've got a Linux kernel that doesn't |
| 808 | have /proc support compiled in, or a non-Linux kernel), then we need to |
| 809 | find out what file descriptors we inherited from our parent process the |
| 810 | hard way - by checking each fd in turn. */ |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 811 | static |
njn | 81b975c | 2009-04-28 05:35:53 +0000 | [diff] [blame] | 812 | void init_preopened_fds_without_proc_self_fd(void) |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 813 | { |
| 814 | struct vki_rlimit lim; |
sewardj | 0a400c7 | 2005-07-23 09:22:46 +0000 | [diff] [blame] | 815 | UInt count; |
| 816 | Int i; |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 817 | |
nethercote | 620154f | 2004-11-12 21:21:07 +0000 | [diff] [blame] | 818 | if (VG_(getrlimit) (VKI_RLIMIT_NOFILE, &lim) == -1) { |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 819 | /* Hmm. getrlimit() failed. Now we're screwed, so just choose |
| 820 | an arbitrarily high number. 1024 happens to be the limit in |
njn | 81b975c | 2009-04-28 05:35:53 +0000 | [diff] [blame] | 821 | the 2.4 Linux kernels. */ |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 822 | count = 1024; |
| 823 | } else { |
| 824 | count = lim.rlim_cur; |
| 825 | } |
| 826 | |
| 827 | for (i = 0; i < count; i++) |
njn | 81b975c | 2009-04-28 05:35:53 +0000 | [diff] [blame] | 828 | if (VG_(fcntl)(i, VKI_F_GETFL, 0) != -1) |
| 829 | ML_(record_fd_open_named)(-1, i); |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 830 | } |
| 831 | |
| 832 | /* Initialize the list of open file descriptors with the file descriptors |
| 833 | we inherited from out parent process. */ |
| 834 | |
sewardj | 1aa4021 | 2006-12-11 01:11:02 +0000 | [diff] [blame] | 835 | void VG_(init_preopened_fds)(void) |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 836 | { |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 837 | // DDD: should probably use HAVE_PROC here or similar, instead. |
njn | 81b975c | 2009-04-28 05:35:53 +0000 | [diff] [blame] | 838 | #if defined(VGO_linux) |
sewardj | 0a400c7 | 2005-07-23 09:22:46 +0000 | [diff] [blame] | 839 | Int ret; |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 840 | struct vki_dirent d; |
sewardj | 9264559 | 2005-07-23 09:18:34 +0000 | [diff] [blame] | 841 | SysRes f; |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 842 | |
| 843 | f = VG_(open)("/proc/self/fd", VKI_O_RDONLY, 0); |
njn | cda2f0f | 2009-05-18 02:12:08 +0000 | [diff] [blame] | 844 | if (sr_isError(f)) { |
njn | 81b975c | 2009-04-28 05:35:53 +0000 | [diff] [blame] | 845 | init_preopened_fds_without_proc_self_fd(); |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 846 | return; |
| 847 | } |
| 848 | |
njn | cda2f0f | 2009-05-18 02:12:08 +0000 | [diff] [blame] | 849 | while ((ret = VG_(getdents)(sr_Res(f), &d, sizeof(d))) != 0) { |
njn | f845f8f | 2005-06-23 02:26:47 +0000 | [diff] [blame] | 850 | if (ret == -1) |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 851 | goto out; |
| 852 | |
njn | f845f8f | 2005-06-23 02:26:47 +0000 | [diff] [blame] | 853 | if (VG_(strcmp)(d.d_name, ".") && VG_(strcmp)(d.d_name, "..")) { |
florian | 19f91bb | 2012-11-10 22:29:54 +0000 | [diff] [blame] | 854 | HChar* s; |
njn | 83df0b6 | 2009-02-25 01:01:05 +0000 | [diff] [blame] | 855 | Int fno = VG_(strtoll10)(d.d_name, &s); |
| 856 | if (*s == '\0') { |
njn | cda2f0f | 2009-05-18 02:12:08 +0000 | [diff] [blame] | 857 | if (fno != sr_Res(f)) |
njn | 83df0b6 | 2009-02-25 01:01:05 +0000 | [diff] [blame] | 858 | if (VG_(clo_track_fds)) |
| 859 | ML_(record_fd_open_named)(-1, fno); |
| 860 | } else { |
| 861 | VG_(message)(Vg_DebugMsg, |
sewardj | 738856f | 2009-07-15 14:48:32 +0000 | [diff] [blame] | 862 | "Warning: invalid file name in /proc/self/fd: %s\n", |
| 863 | d.d_name); |
njn | 83df0b6 | 2009-02-25 01:01:05 +0000 | [diff] [blame] | 864 | } |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 865 | } |
| 866 | |
njn | cda2f0f | 2009-05-18 02:12:08 +0000 | [diff] [blame] | 867 | VG_(lseek)(sr_Res(f), d.d_off, VKI_SEEK_SET); |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 868 | } |
| 869 | |
sewardj | 9264559 | 2005-07-23 09:18:34 +0000 | [diff] [blame] | 870 | out: |
njn | cda2f0f | 2009-05-18 02:12:08 +0000 | [diff] [blame] | 871 | VG_(close)(sr_Res(f)); |
njn | 81b975c | 2009-04-28 05:35:53 +0000 | [diff] [blame] | 872 | |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 873 | #elif defined(VGO_darwin) |
| 874 | init_preopened_fds_without_proc_self_fd(); |
| 875 | |
njn | 81b975c | 2009-04-28 05:35:53 +0000 | [diff] [blame] | 876 | #else |
| 877 | # error Unknown OS |
| 878 | #endif |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 879 | } |
| 880 | |
sewardj | de4a1d0 | 2002-03-22 01:27:54 +0000 | [diff] [blame] | 881 | static |
florian | e543f30 | 2012-10-21 19:43:43 +0000 | [diff] [blame] | 882 | HChar *strdupcat ( const HChar* cc, const HChar *s1, const HChar *s2, |
| 883 | ArenaId aid ) |
sewardj | de4a1d0 | 2002-03-22 01:27:54 +0000 | [diff] [blame] | 884 | { |
| 885 | UInt len = VG_(strlen) ( s1 ) + VG_(strlen) ( s2 ) + 1; |
florian | e543f30 | 2012-10-21 19:43:43 +0000 | [diff] [blame] | 886 | HChar *result = VG_(arena_malloc) ( aid, cc, len ); |
sewardj | de4a1d0 | 2002-03-22 01:27:54 +0000 | [diff] [blame] | 887 | VG_(strcpy) ( result, s1 ); |
| 888 | VG_(strcat) ( result, s2 ); |
| 889 | return result; |
| 890 | } |
| 891 | |
| 892 | static |
tom | 56e1c84 | 2005-07-18 22:41:33 +0000 | [diff] [blame] | 893 | void pre_mem_read_sendmsg ( ThreadId tid, Bool read, |
florian | e543f30 | 2012-10-21 19:43:43 +0000 | [diff] [blame] | 894 | const HChar *msg, Addr base, SizeT size ) |
sewardj | de4a1d0 | 2002-03-22 01:27:54 +0000 | [diff] [blame] | 895 | { |
florian | e543f30 | 2012-10-21 19:43:43 +0000 | [diff] [blame] | 896 | HChar *outmsg = strdupcat ( "di.syswrap.pmrs.1", |
| 897 | "sendmsg", msg, VG_AR_CORE ); |
nethercote | ef0c766 | 2004-11-06 15:38:43 +0000 | [diff] [blame] | 898 | PRE_MEM_READ( outmsg, base, size ); |
njn | 9f46df6 | 2005-03-13 18:11:44 +0000 | [diff] [blame] | 899 | VG_(arena_free) ( VG_AR_CORE, outmsg ); |
sewardj | de4a1d0 | 2002-03-22 01:27:54 +0000 | [diff] [blame] | 900 | } |
| 901 | |
| 902 | static |
tom | 56e1c84 | 2005-07-18 22:41:33 +0000 | [diff] [blame] | 903 | void pre_mem_write_recvmsg ( ThreadId tid, Bool read, |
florian | e543f30 | 2012-10-21 19:43:43 +0000 | [diff] [blame] | 904 | const HChar *msg, Addr base, SizeT size ) |
sewardj | de4a1d0 | 2002-03-22 01:27:54 +0000 | [diff] [blame] | 905 | { |
florian | e543f30 | 2012-10-21 19:43:43 +0000 | [diff] [blame] | 906 | HChar *outmsg = strdupcat ( "di.syswrap.pmwr.1", |
| 907 | "recvmsg", msg, VG_AR_CORE ); |
tom | 56e1c84 | 2005-07-18 22:41:33 +0000 | [diff] [blame] | 908 | if ( read ) |
| 909 | PRE_MEM_READ( outmsg, base, size ); |
| 910 | else |
| 911 | PRE_MEM_WRITE( outmsg, base, size ); |
njn | 9f46df6 | 2005-03-13 18:11:44 +0000 | [diff] [blame] | 912 | VG_(arena_free) ( VG_AR_CORE, outmsg ); |
sewardj | de4a1d0 | 2002-03-22 01:27:54 +0000 | [diff] [blame] | 913 | } |
| 914 | |
| 915 | static |
tom | 56e1c84 | 2005-07-18 22:41:33 +0000 | [diff] [blame] | 916 | void post_mem_write_recvmsg ( ThreadId tid, Bool read, |
florian | e543f30 | 2012-10-21 19:43:43 +0000 | [diff] [blame] | 917 | const HChar *fieldName, Addr base, SizeT size ) |
sewardj | de4a1d0 | 2002-03-22 01:27:54 +0000 | [diff] [blame] | 918 | { |
tom | 56e1c84 | 2005-07-18 22:41:33 +0000 | [diff] [blame] | 919 | if ( !read ) |
| 920 | POST_MEM_WRITE( base, size ); |
sewardj | de4a1d0 | 2002-03-22 01:27:54 +0000 | [diff] [blame] | 921 | } |
| 922 | |
| 923 | static |
sewardj | 8c82451 | 2002-04-14 04:16:48 +0000 | [diff] [blame] | 924 | void msghdr_foreachfield ( |
tom | a499123 | 2012-02-10 11:30:09 +0000 | [diff] [blame] | 925 | ThreadId tid, |
florian | e543f30 | 2012-10-21 19:43:43 +0000 | [diff] [blame] | 926 | const HChar *name, |
tom | 8b3a609 | 2012-02-10 16:45:01 +0000 | [diff] [blame] | 927 | struct vki_msghdr *msg, |
| 928 | UInt length, |
tom | fc75e5e | 2013-02-28 12:50:55 +0000 | [diff] [blame] | 929 | void (*foreach_func)( ThreadId, Bool, const HChar *, Addr, SizeT ), |
| 930 | Bool recv |
sewardj | 8c82451 | 2002-04-14 04:16:48 +0000 | [diff] [blame] | 931 | ) |
sewardj | de4a1d0 | 2002-03-22 01:27:54 +0000 | [diff] [blame] | 932 | { |
florian | e543f30 | 2012-10-21 19:43:43 +0000 | [diff] [blame] | 933 | HChar *fieldName; |
tom | a499123 | 2012-02-10 11:30:09 +0000 | [diff] [blame] | 934 | |
sewardj | de4a1d0 | 2002-03-22 01:27:54 +0000 | [diff] [blame] | 935 | if ( !msg ) |
| 936 | return; |
| 937 | |
tom | a499123 | 2012-02-10 11:30:09 +0000 | [diff] [blame] | 938 | fieldName = VG_(arena_malloc) ( VG_AR_CORE, "di.syswrap.mfef", VG_(strlen)(name) + 32 ); |
sewardj | de4a1d0 | 2002-03-22 01:27:54 +0000 | [diff] [blame] | 939 | |
tom | a499123 | 2012-02-10 11:30:09 +0000 | [diff] [blame] | 940 | VG_(sprintf) ( fieldName, "(%s)", name ); |
| 941 | |
| 942 | foreach_func ( tid, True, fieldName, (Addr)&msg->msg_name, sizeof( msg->msg_name ) ); |
| 943 | foreach_func ( tid, True, fieldName, (Addr)&msg->msg_namelen, sizeof( msg->msg_namelen ) ); |
| 944 | foreach_func ( tid, True, fieldName, (Addr)&msg->msg_iov, sizeof( msg->msg_iov ) ); |
| 945 | foreach_func ( tid, True, fieldName, (Addr)&msg->msg_iovlen, sizeof( msg->msg_iovlen ) ); |
| 946 | foreach_func ( tid, True, fieldName, (Addr)&msg->msg_control, sizeof( msg->msg_control ) ); |
| 947 | foreach_func ( tid, True, fieldName, (Addr)&msg->msg_controllen, sizeof( msg->msg_controllen ) ); |
tom | fc75e5e | 2013-02-28 12:50:55 +0000 | [diff] [blame] | 948 | |
| 949 | /* msg_flags is completely ignored for send_mesg, recv_mesg doesn't read |
| 950 | the field, but does write to it. */ |
| 951 | if ( recv ) |
| 952 | foreach_func ( tid, False, fieldName, (Addr)&msg->msg_flags, sizeof( msg->msg_flags ) ); |
tom | a499123 | 2012-02-10 11:30:09 +0000 | [diff] [blame] | 953 | |
mjw | aa02f66 | 2014-05-14 11:35:54 +0000 | [diff] [blame] | 954 | if ( ML_(safe_to_deref)(&msg->msg_name, sizeof (void *)) |
| 955 | && msg->msg_name ) { |
tom | a499123 | 2012-02-10 11:30:09 +0000 | [diff] [blame] | 956 | VG_(sprintf) ( fieldName, "(%s.msg_name)", name ); |
| 957 | foreach_func ( tid, False, fieldName, |
sewardj | de4a1d0 | 2002-03-22 01:27:54 +0000 | [diff] [blame] | 958 | (Addr)msg->msg_name, msg->msg_namelen ); |
tom | a499123 | 2012-02-10 11:30:09 +0000 | [diff] [blame] | 959 | } |
sewardj | de4a1d0 | 2002-03-22 01:27:54 +0000 | [diff] [blame] | 960 | |
mjw | aa02f66 | 2014-05-14 11:35:54 +0000 | [diff] [blame] | 961 | if ( ML_(safe_to_deref)(&msg->msg_iov, sizeof (void *)) |
| 962 | && msg->msg_iov ) { |
nethercote | 73b526f | 2004-10-31 18:48:21 +0000 | [diff] [blame] | 963 | struct vki_iovec *iov = msg->msg_iov; |
sewardj | de4a1d0 | 2002-03-22 01:27:54 +0000 | [diff] [blame] | 964 | UInt i; |
| 965 | |
tom | a499123 | 2012-02-10 11:30:09 +0000 | [diff] [blame] | 966 | VG_(sprintf) ( fieldName, "(%s.msg_iov)", name ); |
| 967 | |
| 968 | foreach_func ( tid, True, fieldName, |
nethercote | 73b526f | 2004-10-31 18:48:21 +0000 | [diff] [blame] | 969 | (Addr)iov, msg->msg_iovlen * sizeof( struct vki_iovec ) ); |
sewardj | de4a1d0 | 2002-03-22 01:27:54 +0000 | [diff] [blame] | 970 | |
tom | a499123 | 2012-02-10 11:30:09 +0000 | [diff] [blame] | 971 | for ( i = 0; i < msg->msg_iovlen; ++i, ++iov ) { |
tom | 8b3a609 | 2012-02-10 16:45:01 +0000 | [diff] [blame] | 972 | UInt iov_len = iov->iov_len <= length ? iov->iov_len : length; |
tom | a499123 | 2012-02-10 11:30:09 +0000 | [diff] [blame] | 973 | VG_(sprintf) ( fieldName, "(%s.msg_iov[%u])", name, i ); |
| 974 | foreach_func ( tid, False, fieldName, |
tom | 8b3a609 | 2012-02-10 16:45:01 +0000 | [diff] [blame] | 975 | (Addr)iov->iov_base, iov_len ); |
| 976 | length = length - iov_len; |
tom | a499123 | 2012-02-10 11:30:09 +0000 | [diff] [blame] | 977 | } |
sewardj | de4a1d0 | 2002-03-22 01:27:54 +0000 | [diff] [blame] | 978 | } |
| 979 | |
mjw | aa02f66 | 2014-05-14 11:35:54 +0000 | [diff] [blame] | 980 | if ( ML_(safe_to_deref) (&msg->msg_control, sizeof (void *)) |
| 981 | && msg->msg_control ) |
tom | a499123 | 2012-02-10 11:30:09 +0000 | [diff] [blame] | 982 | { |
| 983 | VG_(sprintf) ( fieldName, "(%s.msg_control)", name ); |
| 984 | foreach_func ( tid, False, fieldName, |
sewardj | de4a1d0 | 2002-03-22 01:27:54 +0000 | [diff] [blame] | 985 | (Addr)msg->msg_control, msg->msg_controllen ); |
tom | a499123 | 2012-02-10 11:30:09 +0000 | [diff] [blame] | 986 | } |
| 987 | |
| 988 | VG_(arena_free) ( VG_AR_CORE, fieldName ); |
sewardj | de4a1d0 | 2002-03-22 01:27:54 +0000 | [diff] [blame] | 989 | } |
| 990 | |
sewardj | b5f6f51 | 2005-03-10 23:59:00 +0000 | [diff] [blame] | 991 | static void check_cmsg_for_fds(ThreadId tid, struct vki_msghdr *msg) |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 992 | { |
nethercote | 73b526f | 2004-10-31 18:48:21 +0000 | [diff] [blame] | 993 | struct vki_cmsghdr *cm = VKI_CMSG_FIRSTHDR(msg); |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 994 | |
| 995 | while (cm) { |
nethercote | 73b526f | 2004-10-31 18:48:21 +0000 | [diff] [blame] | 996 | if (cm->cmsg_level == VKI_SOL_SOCKET && |
| 997 | cm->cmsg_type == VKI_SCM_RIGHTS ) { |
sewardj | 0a400c7 | 2005-07-23 09:22:46 +0000 | [diff] [blame] | 998 | Int *fds = (Int *) VKI_CMSG_DATA(cm); |
| 999 | Int fdc = (cm->cmsg_len - VKI_CMSG_ALIGN(sizeof(struct vki_cmsghdr))) |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 1000 | / sizeof(int); |
sewardj | 0a400c7 | 2005-07-23 09:22:46 +0000 | [diff] [blame] | 1001 | Int i; |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 1002 | |
| 1003 | for (i = 0; i < fdc; i++) |
| 1004 | if(VG_(clo_track_fds)) |
nethercote | 493dd18 | 2004-02-24 23:57:47 +0000 | [diff] [blame] | 1005 | // XXX: must we check the range on these fds with |
cerion | 7b2c38c | 2005-06-23 07:52:54 +0000 | [diff] [blame] | 1006 | // ML_(fd_allowed)()? |
njn | 096ccdd | 2009-02-22 23:00:30 +0000 | [diff] [blame] | 1007 | ML_(record_fd_open_named)(tid, fds[i]); |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 1008 | } |
| 1009 | |
nethercote | 73b526f | 2004-10-31 18:48:21 +0000 | [diff] [blame] | 1010 | cm = VKI_CMSG_NXTHDR(msg, cm); |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 1011 | } |
| 1012 | } |
| 1013 | |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 1014 | /* GrP kernel ignores sa_len (at least on Darwin); this checks the rest */ |
sewardj | c483e8f | 2002-05-03 21:01:35 +0000 | [diff] [blame] | 1015 | static |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 1016 | void pre_mem_read_sockaddr ( ThreadId tid, |
florian | e543f30 | 2012-10-21 19:43:43 +0000 | [diff] [blame] | 1017 | const HChar *description, |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 1018 | struct vki_sockaddr *sa, UInt salen ) |
sewardj | c483e8f | 2002-05-03 21:01:35 +0000 | [diff] [blame] | 1019 | { |
florian | e543f30 | 2012-10-21 19:43:43 +0000 | [diff] [blame] | 1020 | HChar *outmsg; |
njn | ff42447 | 2009-05-23 01:18:44 +0000 | [diff] [blame] | 1021 | struct vki_sockaddr_un* sun = (struct vki_sockaddr_un *)sa; |
| 1022 | struct vki_sockaddr_in* sin = (struct vki_sockaddr_in *)sa; |
| 1023 | struct vki_sockaddr_in6* sin6 = (struct vki_sockaddr_in6 *)sa; |
mjw | 4cb663f | 2013-05-22 10:37:52 +0000 | [diff] [blame] | 1024 | #ifdef VKI_AF_BLUETOOTH |
mjw | ada5ad7 | 2013-05-22 10:21:10 +0000 | [diff] [blame] | 1025 | struct vki_sockaddr_rc* rc = (struct vki_sockaddr_rc *)sa; |
mjw | 4cb663f | 2013-05-22 10:37:52 +0000 | [diff] [blame] | 1026 | #endif |
sewardj | ff7c1ab | 2003-02-24 21:55:34 +0000 | [diff] [blame] | 1027 | |
| 1028 | /* NULL/zero-length sockaddrs are legal */ |
| 1029 | if ( sa == NULL || salen == 0 ) return; |
| 1030 | |
sewardj | 9c606bd | 2008-09-18 18:12:50 +0000 | [diff] [blame] | 1031 | outmsg = VG_(arena_malloc) ( VG_AR_CORE, "di.syswrap.pmr_sockaddr.1", |
nethercote | 73b526f | 2004-10-31 18:48:21 +0000 | [diff] [blame] | 1032 | VG_(strlen)( description ) + 30 ); |
sewardj | c483e8f | 2002-05-03 21:01:35 +0000 | [diff] [blame] | 1033 | |
njn | ff42447 | 2009-05-23 01:18:44 +0000 | [diff] [blame] | 1034 | VG_(sprintf) ( outmsg, description, "sa_family" ); |
nethercote | ef0c766 | 2004-11-06 15:38:43 +0000 | [diff] [blame] | 1035 | PRE_MEM_READ( outmsg, (Addr) &sa->sa_family, sizeof(vki_sa_family_t)); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 1036 | |
sewardj | c483e8f | 2002-05-03 21:01:35 +0000 | [diff] [blame] | 1037 | switch (sa->sa_family) { |
| 1038 | |
nethercote | 73b526f | 2004-10-31 18:48:21 +0000 | [diff] [blame] | 1039 | case VKI_AF_UNIX: |
njn | ff42447 | 2009-05-23 01:18:44 +0000 | [diff] [blame] | 1040 | VG_(sprintf) ( outmsg, description, "sun_path" ); |
| 1041 | PRE_MEM_RASCIIZ( outmsg, (Addr) sun->sun_path ); |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 1042 | // GrP fixme max of sun_len-2? what about nul char? |
sewardj | c483e8f | 2002-05-03 21:01:35 +0000 | [diff] [blame] | 1043 | break; |
| 1044 | |
nethercote | 73b526f | 2004-10-31 18:48:21 +0000 | [diff] [blame] | 1045 | case VKI_AF_INET: |
njn | ff42447 | 2009-05-23 01:18:44 +0000 | [diff] [blame] | 1046 | VG_(sprintf) ( outmsg, description, "sin_port" ); |
| 1047 | PRE_MEM_READ( outmsg, (Addr) &sin->sin_port, sizeof (sin->sin_port) ); |
| 1048 | VG_(sprintf) ( outmsg, description, "sin_addr" ); |
| 1049 | PRE_MEM_READ( outmsg, (Addr) &sin->sin_addr, sizeof (sin->sin_addr) ); |
sewardj | c483e8f | 2002-05-03 21:01:35 +0000 | [diff] [blame] | 1050 | break; |
| 1051 | |
nethercote | 73b526f | 2004-10-31 18:48:21 +0000 | [diff] [blame] | 1052 | case VKI_AF_INET6: |
njn | ff42447 | 2009-05-23 01:18:44 +0000 | [diff] [blame] | 1053 | VG_(sprintf) ( outmsg, description, "sin6_port" ); |
nethercote | ef0c766 | 2004-11-06 15:38:43 +0000 | [diff] [blame] | 1054 | PRE_MEM_READ( outmsg, |
njn | ff42447 | 2009-05-23 01:18:44 +0000 | [diff] [blame] | 1055 | (Addr) &sin6->sin6_port, sizeof (sin6->sin6_port) ); |
| 1056 | VG_(sprintf) ( outmsg, description, "sin6_flowinfo" ); |
nethercote | ef0c766 | 2004-11-06 15:38:43 +0000 | [diff] [blame] | 1057 | PRE_MEM_READ( outmsg, |
njn | ff42447 | 2009-05-23 01:18:44 +0000 | [diff] [blame] | 1058 | (Addr) &sin6->sin6_flowinfo, sizeof (sin6->sin6_flowinfo) ); |
| 1059 | VG_(sprintf) ( outmsg, description, "sin6_addr" ); |
nethercote | ef0c766 | 2004-11-06 15:38:43 +0000 | [diff] [blame] | 1060 | PRE_MEM_READ( outmsg, |
njn | ff42447 | 2009-05-23 01:18:44 +0000 | [diff] [blame] | 1061 | (Addr) &sin6->sin6_addr, sizeof (sin6->sin6_addr) ); |
| 1062 | VG_(sprintf) ( outmsg, description, "sin6_scope_id" ); |
nethercote | ef0c766 | 2004-11-06 15:38:43 +0000 | [diff] [blame] | 1063 | PRE_MEM_READ( outmsg, |
njn | ff42447 | 2009-05-23 01:18:44 +0000 | [diff] [blame] | 1064 | (Addr) &sin6->sin6_scope_id, sizeof (sin6->sin6_scope_id) ); |
sewardj | c483e8f | 2002-05-03 21:01:35 +0000 | [diff] [blame] | 1065 | break; |
mjw | 4cb663f | 2013-05-22 10:37:52 +0000 | [diff] [blame] | 1066 | |
| 1067 | #ifdef VKI_AF_BLUETOOTH |
mjw | ada5ad7 | 2013-05-22 10:21:10 +0000 | [diff] [blame] | 1068 | case VKI_AF_BLUETOOTH: |
| 1069 | VG_(sprintf) ( outmsg, description, "rc_bdaddr" ); |
| 1070 | PRE_MEM_READ( outmsg, (Addr) &rc->rc_bdaddr, sizeof (rc->rc_bdaddr) ); |
| 1071 | VG_(sprintf) ( outmsg, description, "rc_channel" ); |
| 1072 | PRE_MEM_READ( outmsg, (Addr) &rc->rc_channel, sizeof (rc->rc_channel) ); |
| 1073 | break; |
mjw | 4cb663f | 2013-05-22 10:37:52 +0000 | [diff] [blame] | 1074 | #endif |
mjw | ada5ad7 | 2013-05-22 10:21:10 +0000 | [diff] [blame] | 1075 | |
sewardj | c483e8f | 2002-05-03 21:01:35 +0000 | [diff] [blame] | 1076 | default: |
| 1077 | VG_(sprintf) ( outmsg, description, "" ); |
nethercote | ef0c766 | 2004-11-06 15:38:43 +0000 | [diff] [blame] | 1078 | PRE_MEM_READ( outmsg, (Addr) sa, salen ); |
sewardj | c483e8f | 2002-05-03 21:01:35 +0000 | [diff] [blame] | 1079 | break; |
| 1080 | } |
| 1081 | |
njn | 9f46df6 | 2005-03-13 18:11:44 +0000 | [diff] [blame] | 1082 | VG_(arena_free) ( VG_AR_CORE, outmsg ); |
sewardj | c483e8f | 2002-05-03 21:01:35 +0000 | [diff] [blame] | 1083 | } |
| 1084 | |
njn25 | e49d8e7 | 2002-09-23 09:36:25 +0000 | [diff] [blame] | 1085 | /* Dereference a pointer to a UInt. */ |
florian | e543f30 | 2012-10-21 19:43:43 +0000 | [diff] [blame] | 1086 | static UInt deref_UInt ( ThreadId tid, Addr a, const HChar* s ) |
njn25 | e49d8e7 | 2002-09-23 09:36:25 +0000 | [diff] [blame] | 1087 | { |
| 1088 | UInt* a_p = (UInt*)a; |
nethercote | ef0c766 | 2004-11-06 15:38:43 +0000 | [diff] [blame] | 1089 | PRE_MEM_READ( s, (Addr)a_p, sizeof(UInt) ); |
njn25 | e49d8e7 | 2002-09-23 09:36:25 +0000 | [diff] [blame] | 1090 | if (a_p == NULL) |
| 1091 | return 0; |
| 1092 | else |
| 1093 | return *a_p; |
| 1094 | } |
| 1095 | |
njn | f37a81b | 2009-02-17 00:23:30 +0000 | [diff] [blame] | 1096 | void ML_(buf_and_len_pre_check) ( ThreadId tid, Addr buf_p, Addr buflen_p, |
florian | e543f30 | 2012-10-21 19:43:43 +0000 | [diff] [blame] | 1097 | const HChar* buf_s, const HChar* buflen_s ) |
njn25 | e49d8e7 | 2002-09-23 09:36:25 +0000 | [diff] [blame] | 1098 | { |
njn | 51d827b | 2005-05-09 01:02:08 +0000 | [diff] [blame] | 1099 | if (VG_(tdict).track_pre_mem_write) { |
njn | 7271864 | 2003-07-24 08:45:32 +0000 | [diff] [blame] | 1100 | UInt buflen_in = deref_UInt( tid, buflen_p, buflen_s); |
njn25 | e49d8e7 | 2002-09-23 09:36:25 +0000 | [diff] [blame] | 1101 | if (buflen_in > 0) { |
njn | cda2f0f | 2009-05-18 02:12:08 +0000 | [diff] [blame] | 1102 | VG_(tdict).track_pre_mem_write( |
| 1103 | Vg_CoreSysCall, tid, buf_s, buf_p, buflen_in ); |
njn25 | e49d8e7 | 2002-09-23 09:36:25 +0000 | [diff] [blame] | 1104 | } |
| 1105 | } |
| 1106 | } |
| 1107 | |
njn | f37a81b | 2009-02-17 00:23:30 +0000 | [diff] [blame] | 1108 | void ML_(buf_and_len_post_check) ( ThreadId tid, SysRes res, |
florian | e543f30 | 2012-10-21 19:43:43 +0000 | [diff] [blame] | 1109 | Addr buf_p, Addr buflen_p, const HChar* s ) |
njn25 | e49d8e7 | 2002-09-23 09:36:25 +0000 | [diff] [blame] | 1110 | { |
njn | cda2f0f | 2009-05-18 02:12:08 +0000 | [diff] [blame] | 1111 | if (!sr_isError(res) && VG_(tdict).track_post_mem_write) { |
njn | 7271864 | 2003-07-24 08:45:32 +0000 | [diff] [blame] | 1112 | UInt buflen_out = deref_UInt( tid, buflen_p, s); |
njn25 | e49d8e7 | 2002-09-23 09:36:25 +0000 | [diff] [blame] | 1113 | if (buflen_out > 0 && buf_p != (Addr)NULL) { |
njn | 51d827b | 2005-05-09 01:02:08 +0000 | [diff] [blame] | 1114 | VG_(tdict).track_post_mem_write( Vg_CoreSysCall, tid, buf_p, buflen_out ); |
njn25 | e49d8e7 | 2002-09-23 09:36:25 +0000 | [diff] [blame] | 1115 | } |
| 1116 | } |
| 1117 | } |
| 1118 | |
| 1119 | /* --------------------------------------------------------------------- |
| 1120 | Data seg end, for brk() |
| 1121 | ------------------------------------------------------------------ */ |
sewardj | de4a1d0 | 2002-03-22 01:27:54 +0000 | [diff] [blame] | 1122 | |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 1123 | /* +--------+------------+ |
| 1124 | | anon | resvn | |
| 1125 | +--------+------------+ |
nethercote | ce47126 | 2004-08-25 13:43:44 +0000 | [diff] [blame] | 1126 | |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 1127 | ^ ^ ^ |
| 1128 | | | boundary is page aligned |
| 1129 | | VG_(brk_limit) -- no alignment constraint |
| 1130 | VG_(brk_base) -- page aligned -- does not move |
| 1131 | |
| 1132 | Both the anon part and the reservation part are always at least |
| 1133 | one page. |
| 1134 | */ |
| 1135 | |
| 1136 | /* Set the new data segment end to NEWBRK. If this succeeds, return |
| 1137 | NEWBRK, else return the current data segment end. */ |
| 1138 | |
| 1139 | static Addr do_brk ( Addr newbrk ) |
| 1140 | { |
sewardj | ef1cf8b | 2006-10-17 01:47:30 +0000 | [diff] [blame] | 1141 | NSegment const* aseg; |
| 1142 | NSegment const* rseg; |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 1143 | Addr newbrkP; |
| 1144 | SizeT delta; |
| 1145 | Bool ok; |
| 1146 | Bool debug = False; |
fitzhardinge | 98abfc7 | 2003-12-16 02:05:15 +0000 | [diff] [blame] | 1147 | |
| 1148 | if (debug) |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 1149 | VG_(printf)("\ndo_brk: brk_base=%#lx brk_limit=%#lx newbrk=%#lx\n", |
fitzhardinge | 98abfc7 | 2003-12-16 02:05:15 +0000 | [diff] [blame] | 1150 | VG_(brk_base), VG_(brk_limit), newbrk); |
| 1151 | |
sewardj | 79048ce | 2005-02-18 08:28:32 +0000 | [diff] [blame] | 1152 | # if 0 |
sewardj | e517b80 | 2005-02-16 01:58:51 +0000 | [diff] [blame] | 1153 | if (0) show_segments("in_brk"); |
sewardj | 79048ce | 2005-02-18 08:28:32 +0000 | [diff] [blame] | 1154 | # endif |
sewardj | 548be6d | 2005-02-16 01:31:37 +0000 | [diff] [blame] | 1155 | |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 1156 | if (newbrk < VG_(brk_base)) |
| 1157 | /* Clearly impossible. */ |
| 1158 | goto bad; |
fitzhardinge | 98abfc7 | 2003-12-16 02:05:15 +0000 | [diff] [blame] | 1159 | |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 1160 | if (newbrk >= VG_(brk_base) && newbrk < VG_(brk_limit)) { |
| 1161 | /* shrinking the data segment. Be lazy and don't munmap the |
| 1162 | excess area. */ |
sewardj | ef1cf8b | 2006-10-17 01:47:30 +0000 | [diff] [blame] | 1163 | NSegment const * seg = VG_(am_find_nsegment)(newbrk); |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 1164 | if (seg && seg->hasT) |
| 1165 | VG_(discard_translations)( newbrk, VG_(brk_limit) - newbrk, |
| 1166 | "do_brk(shrink)" ); |
sewardj | d2d241b | 2006-02-14 11:37:41 +0000 | [diff] [blame] | 1167 | /* Since we're being lazy and not unmapping pages, we have to |
| 1168 | zero out the area, so that if the area later comes back into |
| 1169 | circulation, it will be filled with zeroes, as if it really |
| 1170 | had been unmapped and later remapped. Be a bit paranoid and |
| 1171 | try hard to ensure we're not going to segfault by doing the |
| 1172 | write - check both ends of the range are in the same segment |
| 1173 | and that segment is writable. */ |
| 1174 | if (seg) { |
| 1175 | /* pre: newbrk < VG_(brk_limit) |
| 1176 | => newbrk <= VG_(brk_limit)-1 */ |
sewardj | ef1cf8b | 2006-10-17 01:47:30 +0000 | [diff] [blame] | 1177 | NSegment const * seg2; |
sewardj | d2d241b | 2006-02-14 11:37:41 +0000 | [diff] [blame] | 1178 | vg_assert(newbrk < VG_(brk_limit)); |
| 1179 | seg2 = VG_(am_find_nsegment)( VG_(brk_limit)-1 ); |
| 1180 | if (seg2 && seg == seg2 && seg->hasW) |
| 1181 | VG_(memset)( (void*)newbrk, 0, VG_(brk_limit) - newbrk ); |
| 1182 | } |
| 1183 | |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 1184 | VG_(brk_limit) = newbrk; |
| 1185 | return newbrk; |
| 1186 | } |
fitzhardinge | 98abfc7 | 2003-12-16 02:05:15 +0000 | [diff] [blame] | 1187 | |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 1188 | /* otherwise we're expanding the brk segment. */ |
tom | 8e5963d | 2005-10-06 14:49:21 +0000 | [diff] [blame] | 1189 | if (VG_(brk_limit) > VG_(brk_base)) |
| 1190 | aseg = VG_(am_find_nsegment)( VG_(brk_limit)-1 ); |
| 1191 | else |
| 1192 | aseg = VG_(am_find_nsegment)( VG_(brk_limit) ); |
florian | 3e79863 | 2012-11-24 19:41:54 +0000 | [diff] [blame] | 1193 | rseg = VG_(am_next_nsegment)( aseg, True/*forwards*/ ); |
fitzhardinge | 98abfc7 | 2003-12-16 02:05:15 +0000 | [diff] [blame] | 1194 | |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 1195 | /* These should be assured by setup_client_dataseg in m_main. */ |
| 1196 | vg_assert(aseg); |
| 1197 | vg_assert(rseg); |
| 1198 | vg_assert(aseg->kind == SkAnonC); |
| 1199 | vg_assert(rseg->kind == SkResvn); |
| 1200 | vg_assert(aseg->end+1 == rseg->start); |
fitzhardinge | 98abfc7 | 2003-12-16 02:05:15 +0000 | [diff] [blame] | 1201 | |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 1202 | vg_assert(newbrk >= VG_(brk_base)); |
| 1203 | if (newbrk <= rseg->start) { |
| 1204 | /* still fits within the anon segment. */ |
| 1205 | VG_(brk_limit) = newbrk; |
| 1206 | return newbrk; |
| 1207 | } |
fitzhardinge | 98abfc7 | 2003-12-16 02:05:15 +0000 | [diff] [blame] | 1208 | |
tom | 02f7533 | 2006-06-21 08:01:14 +0000 | [diff] [blame] | 1209 | if (newbrk > rseg->end+1 - VKI_PAGE_SIZE) { |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 1210 | /* request is too large -- the resvn would fall below 1 page, |
| 1211 | which isn't allowed. */ |
| 1212 | goto bad; |
| 1213 | } |
fitzhardinge | 98abfc7 | 2003-12-16 02:05:15 +0000 | [diff] [blame] | 1214 | |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 1215 | newbrkP = VG_PGROUNDUP(newbrk); |
tom | 02f7533 | 2006-06-21 08:01:14 +0000 | [diff] [blame] | 1216 | vg_assert(newbrkP > rseg->start && newbrkP <= rseg->end+1 - VKI_PAGE_SIZE); |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 1217 | delta = newbrkP - rseg->start; |
| 1218 | vg_assert(delta > 0); |
| 1219 | vg_assert(VG_IS_PAGE_ALIGNED(delta)); |
| 1220 | |
florian | 3e79863 | 2012-11-24 19:41:54 +0000 | [diff] [blame] | 1221 | ok = VG_(am_extend_into_adjacent_reservation_client)( aseg, delta ); |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 1222 | if (!ok) goto bad; |
fitzhardinge | 98abfc7 | 2003-12-16 02:05:15 +0000 | [diff] [blame] | 1223 | |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 1224 | VG_(brk_limit) = newbrk; |
| 1225 | return newbrk; |
fitzhardinge | 98abfc7 | 2003-12-16 02:05:15 +0000 | [diff] [blame] | 1226 | |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 1227 | bad: |
| 1228 | return VG_(brk_limit); |
fitzhardinge | 98abfc7 | 2003-12-16 02:05:15 +0000 | [diff] [blame] | 1229 | } |
| 1230 | |
| 1231 | |
njn25 | e49d8e7 | 2002-09-23 09:36:25 +0000 | [diff] [blame] | 1232 | /* --------------------------------------------------------------------- |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 1233 | Vet file descriptors for sanity |
| 1234 | ------------------------------------------------------------------ */ |
sewardj | 0423690 | 2005-10-04 22:27:22 +0000 | [diff] [blame] | 1235 | /* |
| 1236 | > - what does the "Bool soft" parameter mean? |
| 1237 | |
| 1238 | (Tom Hughes, 3 Oct 05): |
| 1239 | |
| 1240 | Whether or not to consider a file descriptor invalid if it is above |
| 1241 | the current soft limit. |
| 1242 | |
| 1243 | Basically if we are testing whether a newly created file descriptor is |
| 1244 | valid (in a post handler) then we set soft to true, and if we are |
| 1245 | testing whether a file descriptor that is about to be used (in a pre |
| 1246 | handler) is valid [viz, an already-existing fd] then we set it to false. |
| 1247 | |
| 1248 | The point is that if the (virtual) soft limit is lowered then any |
| 1249 | existing descriptors can still be read/written/closed etc (so long as |
| 1250 | they are below the valgrind reserved descriptors) but no new |
| 1251 | descriptors can be created above the new soft limit. |
| 1252 | |
| 1253 | (jrs 4 Oct 05: in which case, I've renamed it "isNewFd") |
| 1254 | */ |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 1255 | |
| 1256 | /* Return true if we're allowed to use or create this fd */ |
florian | e543f30 | 2012-10-21 19:43:43 +0000 | [diff] [blame] | 1257 | Bool ML_(fd_allowed)(Int fd, const HChar *syscallname, ThreadId tid, |
| 1258 | Bool isNewFd) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 1259 | { |
sewardj | 0423690 | 2005-10-04 22:27:22 +0000 | [diff] [blame] | 1260 | Bool allowed = True; |
| 1261 | |
| 1262 | /* hard limits always apply */ |
| 1263 | if (fd < 0 || fd >= VG_(fd_hard_limit)) |
| 1264 | allowed = False; |
| 1265 | |
sewardj | 738856f | 2009-07-15 14:48:32 +0000 | [diff] [blame] | 1266 | /* hijacking the output fds is never allowed */ |
| 1267 | if (fd == VG_(log_output_sink).fd || fd == VG_(xml_output_sink).fd) |
sewardj | 0423690 | 2005-10-04 22:27:22 +0000 | [diff] [blame] | 1268 | allowed = False; |
| 1269 | |
| 1270 | /* if creating a new fd (rather than using an existing one), the |
| 1271 | soft limit must also be observed */ |
| 1272 | if (isNewFd && fd >= VG_(fd_soft_limit)) |
| 1273 | allowed = False; |
| 1274 | |
| 1275 | /* this looks like it ought to be included, but causes problems: */ |
| 1276 | /* |
| 1277 | if (fd == 2 && VG_(debugLog_getLevel)() > 0) |
| 1278 | allowed = False; |
| 1279 | */ |
| 1280 | /* The difficulty is as follows: consider a program P which expects |
| 1281 | to be able to mess with (redirect) its own stderr (fd 2). |
| 1282 | Usually to deal with P we would issue command line flags to send |
| 1283 | logging somewhere other than stderr, so as not to disrupt P. |
| 1284 | The problem is that -d unilaterally hijacks stderr with no |
| 1285 | consultation with P. And so, if this check is enabled, P will |
| 1286 | work OK normally but fail if -d is issued. |
| 1287 | |
| 1288 | Basically -d is a hack and you take your chances when using it. |
| 1289 | It's very useful for low level debugging -- particularly at |
| 1290 | startup -- and having its presence change the behaviour of the |
| 1291 | client is exactly what we don't want. */ |
| 1292 | |
| 1293 | /* croak? */ |
| 1294 | if ((!allowed) && VG_(showing_core_errors)() ) { |
jseward | d9320a4 | 2003-12-12 06:40:05 +0000 | [diff] [blame] | 1295 | VG_(message)(Vg_UserMsg, |
sewardj | 738856f | 2009-07-15 14:48:32 +0000 | [diff] [blame] | 1296 | "Warning: invalid file descriptor %d in syscall %s()\n", |
nethercote | 1543adf | 2004-10-25 15:43:21 +0000 | [diff] [blame] | 1297 | fd, syscallname); |
sewardj | 738856f | 2009-07-15 14:48:32 +0000 | [diff] [blame] | 1298 | if (fd == VG_(log_output_sink).fd && VG_(log_output_sink).fd >= 0) |
jseward | d9320a4 | 2003-12-12 06:40:05 +0000 | [diff] [blame] | 1299 | VG_(message)(Vg_UserMsg, |
sewardj | 738856f | 2009-07-15 14:48:32 +0000 | [diff] [blame] | 1300 | " Use --log-fd=<number> to select an alternative log fd.\n"); |
| 1301 | if (fd == VG_(xml_output_sink).fd && VG_(xml_output_sink).fd >= 0) |
| 1302 | VG_(message)(Vg_UserMsg, |
| 1303 | " Use --xml-fd=<number> to select an alternative XML " |
| 1304 | "output fd.\n"); |
njn | eb04c89 | 2009-05-22 07:09:03 +0000 | [diff] [blame] | 1305 | // DDD: consider always printing this stack trace, it's useful. |
| 1306 | // Also consider also making this a proper core error, ie. |
| 1307 | // suppressible and all that. |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 1308 | if (VG_(clo_verbosity) > 1) { |
njn | d01fef7 | 2005-03-25 23:35:48 +0000 | [diff] [blame] | 1309 | VG_(get_and_pp_StackTrace)(tid, VG_(clo_backtrace_size)); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 1310 | } |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 1311 | } |
sewardj | 0423690 | 2005-10-04 22:27:22 +0000 | [diff] [blame] | 1312 | |
| 1313 | return allowed; |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 1314 | } |
| 1315 | |
| 1316 | |
| 1317 | /* --------------------------------------------------------------------- |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1318 | Deal with a bunch of socket-related syscalls |
| 1319 | ------------------------------------------------------------------ */ |
| 1320 | |
| 1321 | /* ------ */ |
| 1322 | |
sewardj | 987a8eb | 2005-03-01 19:00:30 +0000 | [diff] [blame] | 1323 | void |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 1324 | ML_(generic_PRE_sys_socketpair) ( ThreadId tid, |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1325 | UWord arg0, UWord arg1, |
| 1326 | UWord arg2, UWord arg3 ) |
| 1327 | { |
| 1328 | /* int socketpair(int d, int type, int protocol, int sv[2]); */ |
| 1329 | PRE_MEM_WRITE( "socketcall.socketpair(sv)", |
| 1330 | arg3, 2*sizeof(int) ); |
| 1331 | } |
| 1332 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 1333 | SysRes |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 1334 | ML_(generic_POST_sys_socketpair) ( ThreadId tid, |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 1335 | SysRes res, |
sewardj | 987a8eb | 2005-03-01 19:00:30 +0000 | [diff] [blame] | 1336 | UWord arg0, UWord arg1, |
| 1337 | UWord arg2, UWord arg3 ) |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1338 | { |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 1339 | SysRes r = res; |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1340 | Int fd1 = ((Int*)arg3)[0]; |
| 1341 | Int fd2 = ((Int*)arg3)[1]; |
njn | cda2f0f | 2009-05-18 02:12:08 +0000 | [diff] [blame] | 1342 | vg_assert(!sr_isError(res)); /* guaranteed by caller */ |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1343 | POST_MEM_WRITE( arg3, 2*sizeof(int) ); |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 1344 | if (!ML_(fd_allowed)(fd1, "socketcall.socketpair", tid, True) || |
| 1345 | !ML_(fd_allowed)(fd2, "socketcall.socketpair", tid, True)) { |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1346 | VG_(close)(fd1); |
| 1347 | VG_(close)(fd2); |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 1348 | r = VG_(mk_SysRes_Error)( VKI_EMFILE ); |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1349 | } else { |
| 1350 | POST_MEM_WRITE( arg3, 2*sizeof(int) ); |
| 1351 | if (VG_(clo_track_fds)) { |
njn | f845f8f | 2005-06-23 02:26:47 +0000 | [diff] [blame] | 1352 | ML_(record_fd_open_nameless)(tid, fd1); |
| 1353 | ML_(record_fd_open_nameless)(tid, fd2); |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1354 | } |
| 1355 | } |
| 1356 | return r; |
| 1357 | } |
| 1358 | |
| 1359 | /* ------ */ |
| 1360 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 1361 | SysRes |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 1362 | ML_(generic_POST_sys_socket) ( ThreadId tid, SysRes res ) |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1363 | { |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 1364 | SysRes r = res; |
njn | cda2f0f | 2009-05-18 02:12:08 +0000 | [diff] [blame] | 1365 | vg_assert(!sr_isError(res)); /* guaranteed by caller */ |
| 1366 | if (!ML_(fd_allowed)(sr_Res(res), "socket", tid, True)) { |
| 1367 | VG_(close)(sr_Res(res)); |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 1368 | r = VG_(mk_SysRes_Error)( VKI_EMFILE ); |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1369 | } else { |
| 1370 | if (VG_(clo_track_fds)) |
njn | cda2f0f | 2009-05-18 02:12:08 +0000 | [diff] [blame] | 1371 | ML_(record_fd_open_nameless)(tid, sr_Res(res)); |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1372 | } |
| 1373 | return r; |
| 1374 | } |
| 1375 | |
| 1376 | /* ------ */ |
| 1377 | |
sewardj | 987a8eb | 2005-03-01 19:00:30 +0000 | [diff] [blame] | 1378 | void |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 1379 | ML_(generic_PRE_sys_bind) ( ThreadId tid, |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1380 | UWord arg0, UWord arg1, UWord arg2 ) |
| 1381 | { |
| 1382 | /* int bind(int sockfd, struct sockaddr *my_addr, |
| 1383 | int addrlen); */ |
| 1384 | pre_mem_read_sockaddr( |
| 1385 | tid, "socketcall.bind(my_addr.%s)", |
| 1386 | (struct vki_sockaddr *) arg1, arg2 |
| 1387 | ); |
| 1388 | } |
| 1389 | |
| 1390 | /* ------ */ |
| 1391 | |
sewardj | 987a8eb | 2005-03-01 19:00:30 +0000 | [diff] [blame] | 1392 | void |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 1393 | ML_(generic_PRE_sys_accept) ( ThreadId tid, |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1394 | UWord arg0, UWord arg1, UWord arg2 ) |
| 1395 | { |
| 1396 | /* int accept(int s, struct sockaddr *addr, int *addrlen); */ |
| 1397 | Addr addr_p = arg1; |
| 1398 | Addr addrlen_p = arg2; |
| 1399 | if (addr_p != (Addr)NULL) |
njn | f37a81b | 2009-02-17 00:23:30 +0000 | [diff] [blame] | 1400 | ML_(buf_and_len_pre_check) ( tid, addr_p, addrlen_p, |
| 1401 | "socketcall.accept(addr)", |
| 1402 | "socketcall.accept(addrlen_in)" ); |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1403 | } |
| 1404 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 1405 | SysRes |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 1406 | ML_(generic_POST_sys_accept) ( ThreadId tid, |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 1407 | SysRes res, |
sewardj | 987a8eb | 2005-03-01 19:00:30 +0000 | [diff] [blame] | 1408 | UWord arg0, UWord arg1, UWord arg2 ) |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1409 | { |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 1410 | SysRes r = res; |
njn | cda2f0f | 2009-05-18 02:12:08 +0000 | [diff] [blame] | 1411 | vg_assert(!sr_isError(res)); /* guaranteed by caller */ |
| 1412 | if (!ML_(fd_allowed)(sr_Res(res), "accept", tid, True)) { |
| 1413 | VG_(close)(sr_Res(res)); |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 1414 | r = VG_(mk_SysRes_Error)( VKI_EMFILE ); |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1415 | } else { |
| 1416 | Addr addr_p = arg1; |
| 1417 | Addr addrlen_p = arg2; |
| 1418 | if (addr_p != (Addr)NULL) |
njn | f37a81b | 2009-02-17 00:23:30 +0000 | [diff] [blame] | 1419 | ML_(buf_and_len_post_check) ( tid, res, addr_p, addrlen_p, |
| 1420 | "socketcall.accept(addrlen_out)" ); |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1421 | if (VG_(clo_track_fds)) |
njn | cda2f0f | 2009-05-18 02:12:08 +0000 | [diff] [blame] | 1422 | ML_(record_fd_open_nameless)(tid, sr_Res(res)); |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1423 | } |
| 1424 | return r; |
| 1425 | } |
| 1426 | |
| 1427 | /* ------ */ |
| 1428 | |
sewardj | 987a8eb | 2005-03-01 19:00:30 +0000 | [diff] [blame] | 1429 | void |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 1430 | ML_(generic_PRE_sys_sendto) ( ThreadId tid, |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1431 | UWord arg0, UWord arg1, UWord arg2, |
| 1432 | UWord arg3, UWord arg4, UWord arg5 ) |
| 1433 | { |
| 1434 | /* int sendto(int s, const void *msg, int len, |
| 1435 | unsigned int flags, |
| 1436 | const struct sockaddr *to, int tolen); */ |
| 1437 | PRE_MEM_READ( "socketcall.sendto(msg)", |
| 1438 | arg1, /* msg */ |
| 1439 | arg2 /* len */ ); |
| 1440 | pre_mem_read_sockaddr( |
| 1441 | tid, "socketcall.sendto(to.%s)", |
| 1442 | (struct vki_sockaddr *) arg4, arg5 |
| 1443 | ); |
| 1444 | } |
| 1445 | |
| 1446 | /* ------ */ |
| 1447 | |
sewardj | 987a8eb | 2005-03-01 19:00:30 +0000 | [diff] [blame] | 1448 | void |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 1449 | ML_(generic_PRE_sys_send) ( ThreadId tid, |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1450 | UWord arg0, UWord arg1, UWord arg2 ) |
| 1451 | { |
| 1452 | /* int send(int s, const void *msg, size_t len, int flags); */ |
| 1453 | PRE_MEM_READ( "socketcall.send(msg)", |
| 1454 | arg1, /* msg */ |
| 1455 | arg2 /* len */ ); |
| 1456 | |
| 1457 | } |
| 1458 | |
| 1459 | /* ------ */ |
| 1460 | |
sewardj | 987a8eb | 2005-03-01 19:00:30 +0000 | [diff] [blame] | 1461 | void |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 1462 | ML_(generic_PRE_sys_recvfrom) ( ThreadId tid, |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1463 | UWord arg0, UWord arg1, UWord arg2, |
| 1464 | UWord arg3, UWord arg4, UWord arg5 ) |
| 1465 | { |
| 1466 | /* int recvfrom(int s, void *buf, int len, unsigned int flags, |
| 1467 | struct sockaddr *from, int *fromlen); */ |
| 1468 | Addr buf_p = arg1; |
| 1469 | Int len = arg2; |
| 1470 | Addr from_p = arg4; |
| 1471 | Addr fromlen_p = arg5; |
| 1472 | PRE_MEM_WRITE( "socketcall.recvfrom(buf)", buf_p, len ); |
| 1473 | if (from_p != (Addr)NULL) |
njn | f37a81b | 2009-02-17 00:23:30 +0000 | [diff] [blame] | 1474 | ML_(buf_and_len_pre_check) ( tid, from_p, fromlen_p, |
| 1475 | "socketcall.recvfrom(from)", |
| 1476 | "socketcall.recvfrom(fromlen_in)" ); |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1477 | } |
| 1478 | |
sewardj | 987a8eb | 2005-03-01 19:00:30 +0000 | [diff] [blame] | 1479 | void |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 1480 | ML_(generic_POST_sys_recvfrom) ( ThreadId tid, |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 1481 | SysRes res, |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1482 | UWord arg0, UWord arg1, UWord arg2, |
| 1483 | UWord arg3, UWord arg4, UWord arg5 ) |
| 1484 | { |
| 1485 | Addr buf_p = arg1; |
| 1486 | Int len = arg2; |
| 1487 | Addr from_p = arg4; |
| 1488 | Addr fromlen_p = arg5; |
| 1489 | |
njn | cda2f0f | 2009-05-18 02:12:08 +0000 | [diff] [blame] | 1490 | vg_assert(!sr_isError(res)); /* guaranteed by caller */ |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1491 | if (from_p != (Addr)NULL) |
njn | f37a81b | 2009-02-17 00:23:30 +0000 | [diff] [blame] | 1492 | ML_(buf_and_len_post_check) ( tid, res, from_p, fromlen_p, |
| 1493 | "socketcall.recvfrom(fromlen_out)" ); |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1494 | POST_MEM_WRITE( buf_p, len ); |
| 1495 | } |
| 1496 | |
| 1497 | /* ------ */ |
| 1498 | |
sewardj | 987a8eb | 2005-03-01 19:00:30 +0000 | [diff] [blame] | 1499 | void |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 1500 | ML_(generic_PRE_sys_recv) ( ThreadId tid, |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1501 | UWord arg0, UWord arg1, UWord arg2 ) |
| 1502 | { |
| 1503 | /* int recv(int s, void *buf, int len, unsigned int flags); */ |
| 1504 | /* man 2 recv says: |
| 1505 | The recv call is normally used only on a connected socket |
| 1506 | (see connect(2)) and is identical to recvfrom with a NULL |
| 1507 | from parameter. |
| 1508 | */ |
| 1509 | PRE_MEM_WRITE( "socketcall.recv(buf)", |
| 1510 | arg1, /* buf */ |
| 1511 | arg2 /* len */ ); |
| 1512 | } |
| 1513 | |
sewardj | 987a8eb | 2005-03-01 19:00:30 +0000 | [diff] [blame] | 1514 | void |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 1515 | ML_(generic_POST_sys_recv) ( ThreadId tid, |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1516 | UWord res, |
| 1517 | UWord arg0, UWord arg1, UWord arg2 ) |
| 1518 | { |
| 1519 | if (res >= 0 && arg1 != 0) { |
| 1520 | POST_MEM_WRITE( arg1, /* buf */ |
| 1521 | arg2 /* len */ ); |
| 1522 | } |
| 1523 | } |
| 1524 | |
| 1525 | /* ------ */ |
| 1526 | |
sewardj | 987a8eb | 2005-03-01 19:00:30 +0000 | [diff] [blame] | 1527 | void |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 1528 | ML_(generic_PRE_sys_connect) ( ThreadId tid, |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1529 | UWord arg0, UWord arg1, UWord arg2 ) |
| 1530 | { |
| 1531 | /* int connect(int sockfd, |
| 1532 | struct sockaddr *serv_addr, int addrlen ); */ |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1533 | pre_mem_read_sockaddr( tid, |
| 1534 | "socketcall.connect(serv_addr.%s)", |
| 1535 | (struct vki_sockaddr *) arg1, arg2); |
| 1536 | } |
| 1537 | |
| 1538 | /* ------ */ |
| 1539 | |
sewardj | 987a8eb | 2005-03-01 19:00:30 +0000 | [diff] [blame] | 1540 | void |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 1541 | ML_(generic_PRE_sys_setsockopt) ( ThreadId tid, |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1542 | UWord arg0, UWord arg1, UWord arg2, |
| 1543 | UWord arg3, UWord arg4 ) |
| 1544 | { |
| 1545 | /* int setsockopt(int s, int level, int optname, |
| 1546 | const void *optval, int optlen); */ |
| 1547 | PRE_MEM_READ( "socketcall.setsockopt(optval)", |
| 1548 | arg3, /* optval */ |
| 1549 | arg4 /* optlen */ ); |
| 1550 | } |
| 1551 | |
| 1552 | /* ------ */ |
| 1553 | |
sewardj | 987a8eb | 2005-03-01 19:00:30 +0000 | [diff] [blame] | 1554 | void |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 1555 | ML_(generic_PRE_sys_getsockname) ( ThreadId tid, |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1556 | UWord arg0, UWord arg1, UWord arg2 ) |
| 1557 | { |
| 1558 | /* int getsockname(int s, struct sockaddr* name, int* namelen) */ |
| 1559 | Addr name_p = arg1; |
| 1560 | Addr namelen_p = arg2; |
| 1561 | /* Nb: name_p cannot be NULL */ |
njn | f37a81b | 2009-02-17 00:23:30 +0000 | [diff] [blame] | 1562 | ML_(buf_and_len_pre_check) ( tid, name_p, namelen_p, |
| 1563 | "socketcall.getsockname(name)", |
| 1564 | "socketcall.getsockname(namelen_in)" ); |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1565 | } |
| 1566 | |
sewardj | 987a8eb | 2005-03-01 19:00:30 +0000 | [diff] [blame] | 1567 | void |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 1568 | ML_(generic_POST_sys_getsockname) ( ThreadId tid, |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 1569 | SysRes res, |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1570 | UWord arg0, UWord arg1, UWord arg2 ) |
| 1571 | { |
| 1572 | Addr name_p = arg1; |
| 1573 | Addr namelen_p = arg2; |
njn | cda2f0f | 2009-05-18 02:12:08 +0000 | [diff] [blame] | 1574 | vg_assert(!sr_isError(res)); /* guaranteed by caller */ |
njn | f37a81b | 2009-02-17 00:23:30 +0000 | [diff] [blame] | 1575 | ML_(buf_and_len_post_check) ( tid, res, name_p, namelen_p, |
| 1576 | "socketcall.getsockname(namelen_out)" ); |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1577 | } |
| 1578 | |
| 1579 | /* ------ */ |
| 1580 | |
sewardj | 987a8eb | 2005-03-01 19:00:30 +0000 | [diff] [blame] | 1581 | void |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 1582 | ML_(generic_PRE_sys_getpeername) ( ThreadId tid, |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1583 | UWord arg0, UWord arg1, UWord arg2 ) |
| 1584 | { |
| 1585 | /* int getpeername(int s, struct sockaddr* name, int* namelen) */ |
| 1586 | Addr name_p = arg1; |
| 1587 | Addr namelen_p = arg2; |
| 1588 | /* Nb: name_p cannot be NULL */ |
njn | f37a81b | 2009-02-17 00:23:30 +0000 | [diff] [blame] | 1589 | ML_(buf_and_len_pre_check) ( tid, name_p, namelen_p, |
| 1590 | "socketcall.getpeername(name)", |
| 1591 | "socketcall.getpeername(namelen_in)" ); |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1592 | } |
| 1593 | |
sewardj | 987a8eb | 2005-03-01 19:00:30 +0000 | [diff] [blame] | 1594 | void |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 1595 | ML_(generic_POST_sys_getpeername) ( ThreadId tid, |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 1596 | SysRes res, |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1597 | UWord arg0, UWord arg1, UWord arg2 ) |
| 1598 | { |
| 1599 | Addr name_p = arg1; |
| 1600 | Addr namelen_p = arg2; |
njn | cda2f0f | 2009-05-18 02:12:08 +0000 | [diff] [blame] | 1601 | vg_assert(!sr_isError(res)); /* guaranteed by caller */ |
njn | f37a81b | 2009-02-17 00:23:30 +0000 | [diff] [blame] | 1602 | ML_(buf_and_len_post_check) ( tid, res, name_p, namelen_p, |
| 1603 | "socketcall.getpeername(namelen_out)" ); |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1604 | } |
| 1605 | |
| 1606 | /* ------ */ |
| 1607 | |
sewardj | 987a8eb | 2005-03-01 19:00:30 +0000 | [diff] [blame] | 1608 | void |
florian | e543f30 | 2012-10-21 19:43:43 +0000 | [diff] [blame] | 1609 | ML_(generic_PRE_sys_sendmsg) ( ThreadId tid, const HChar *name, |
| 1610 | struct vki_msghdr *msg ) |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1611 | { |
tom | fc75e5e | 2013-02-28 12:50:55 +0000 | [diff] [blame] | 1612 | msghdr_foreachfield ( tid, name, msg, ~0, pre_mem_read_sendmsg, False ); |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1613 | } |
| 1614 | |
| 1615 | /* ------ */ |
| 1616 | |
sewardj | 987a8eb | 2005-03-01 19:00:30 +0000 | [diff] [blame] | 1617 | void |
florian | e543f30 | 2012-10-21 19:43:43 +0000 | [diff] [blame] | 1618 | ML_(generic_PRE_sys_recvmsg) ( ThreadId tid, const HChar *name, |
| 1619 | struct vki_msghdr *msg ) |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1620 | { |
tom | fc75e5e | 2013-02-28 12:50:55 +0000 | [diff] [blame] | 1621 | msghdr_foreachfield ( tid, name, msg, ~0, pre_mem_write_recvmsg, True ); |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1622 | } |
| 1623 | |
sewardj | 987a8eb | 2005-03-01 19:00:30 +0000 | [diff] [blame] | 1624 | void |
florian | e543f30 | 2012-10-21 19:43:43 +0000 | [diff] [blame] | 1625 | ML_(generic_POST_sys_recvmsg) ( ThreadId tid, const HChar *name, |
| 1626 | struct vki_msghdr *msg, UInt length ) |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1627 | { |
tom | fc75e5e | 2013-02-28 12:50:55 +0000 | [diff] [blame] | 1628 | msghdr_foreachfield( tid, name, msg, length, post_mem_write_recvmsg, True ); |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 1629 | check_cmsg_for_fds( tid, msg ); |
| 1630 | } |
| 1631 | |
| 1632 | |
| 1633 | /* --------------------------------------------------------------------- |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1634 | Deal with a bunch of IPC related syscalls |
| 1635 | ------------------------------------------------------------------ */ |
| 1636 | |
| 1637 | /* ------ */ |
| 1638 | |
| 1639 | void |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 1640 | ML_(generic_PRE_sys_semop) ( ThreadId tid, |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1641 | UWord arg0, UWord arg1, UWord arg2 ) |
| 1642 | { |
| 1643 | /* int semop(int semid, struct sembuf *sops, unsigned nsops); */ |
| 1644 | PRE_MEM_READ( "semop(sops)", arg1, arg2 * sizeof(struct vki_sembuf) ); |
| 1645 | } |
| 1646 | |
| 1647 | /* ------ */ |
| 1648 | |
| 1649 | void |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 1650 | ML_(generic_PRE_sys_semtimedop) ( ThreadId tid, |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1651 | UWord arg0, UWord arg1, |
| 1652 | UWord arg2, UWord arg3 ) |
| 1653 | { |
| 1654 | /* int semtimedop(int semid, struct sembuf *sops, unsigned nsops, |
| 1655 | struct timespec *timeout); */ |
| 1656 | PRE_MEM_READ( "semtimedop(sops)", arg1, arg2 * sizeof(struct vki_sembuf) ); |
| 1657 | if (arg3 != 0) |
| 1658 | PRE_MEM_READ( "semtimedop(timeout)", arg3, sizeof(struct vki_timespec) ); |
| 1659 | } |
| 1660 | |
| 1661 | /* ------ */ |
| 1662 | |
| 1663 | static |
| 1664 | UInt get_sem_count( Int semid ) |
| 1665 | { |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 1666 | struct vki_semid_ds buf; |
| 1667 | union vki_semun arg; |
| 1668 | SysRes res; |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1669 | |
sewardj | 27f96b3 | 2008-10-23 09:46:59 +0000 | [diff] [blame] | 1670 | /* Doesn't actually seem to be necessary, but gcc-4.4.0 20081017 |
| 1671 | (experimental) otherwise complains that the use in the return |
| 1672 | statement below is uninitialised. */ |
| 1673 | buf.sem_nsems = 0; |
| 1674 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 1675 | arg.buf = &buf; |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1676 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 1677 | # ifdef __NR_semctl |
| 1678 | res = VG_(do_syscall4)(__NR_semctl, semid, 0, VKI_IPC_STAT, *(UWord *)&arg); |
| 1679 | # else |
| 1680 | res = VG_(do_syscall5)(__NR_ipc, 3 /* IPCOP_semctl */, semid, 0, |
| 1681 | VKI_IPC_STAT, (UWord)&arg); |
sewardj | 27f96b3 | 2008-10-23 09:46:59 +0000 | [diff] [blame] | 1682 | # endif |
njn | cda2f0f | 2009-05-18 02:12:08 +0000 | [diff] [blame] | 1683 | if (sr_isError(res)) |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 1684 | return 0; |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1685 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 1686 | return buf.sem_nsems; |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1687 | } |
| 1688 | |
| 1689 | void |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 1690 | ML_(generic_PRE_sys_semctl) ( ThreadId tid, |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1691 | UWord arg0, UWord arg1, |
| 1692 | UWord arg2, UWord arg3 ) |
| 1693 | { |
| 1694 | /* int semctl(int semid, int semnum, int cmd, ...); */ |
| 1695 | union vki_semun arg = *(union vki_semun *)&arg3; |
| 1696 | UInt nsems; |
| 1697 | switch (arg2 /* cmd */) { |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 1698 | #if defined(VKI_IPC_INFO) |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1699 | case VKI_IPC_INFO: |
| 1700 | case VKI_SEM_INFO: |
| 1701 | case VKI_IPC_INFO|VKI_IPC_64: |
| 1702 | case VKI_SEM_INFO|VKI_IPC_64: |
| 1703 | PRE_MEM_WRITE( "semctl(IPC_INFO, arg.buf)", |
| 1704 | (Addr)arg.buf, sizeof(struct vki_seminfo) ); |
| 1705 | break; |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 1706 | #endif |
| 1707 | |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1708 | case VKI_IPC_STAT: |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 1709 | #if defined(VKI_SEM_STAT) |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1710 | case VKI_SEM_STAT: |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 1711 | #endif |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1712 | PRE_MEM_WRITE( "semctl(IPC_STAT, arg.buf)", |
| 1713 | (Addr)arg.buf, sizeof(struct vki_semid_ds) ); |
| 1714 | break; |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 1715 | |
| 1716 | #if defined(VKI_IPC_64) |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1717 | case VKI_IPC_STAT|VKI_IPC_64: |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 1718 | #if defined(VKI_SEM_STAT) |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1719 | case VKI_SEM_STAT|VKI_IPC_64: |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 1720 | #endif |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1721 | PRE_MEM_WRITE( "semctl(IPC_STAT, arg.buf)", |
| 1722 | (Addr)arg.buf, sizeof(struct vki_semid64_ds) ); |
| 1723 | break; |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 1724 | #endif |
| 1725 | |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1726 | case VKI_IPC_SET: |
| 1727 | PRE_MEM_READ( "semctl(IPC_SET, arg.buf)", |
| 1728 | (Addr)arg.buf, sizeof(struct vki_semid_ds) ); |
| 1729 | break; |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 1730 | |
| 1731 | #if defined(VKI_IPC_64) |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1732 | case VKI_IPC_SET|VKI_IPC_64: |
| 1733 | PRE_MEM_READ( "semctl(IPC_SET, arg.buf)", |
| 1734 | (Addr)arg.buf, sizeof(struct vki_semid64_ds) ); |
| 1735 | break; |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 1736 | #endif |
| 1737 | |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1738 | case VKI_GETALL: |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 1739 | #if defined(VKI_IPC_64) |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1740 | case VKI_GETALL|VKI_IPC_64: |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 1741 | #endif |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1742 | nsems = get_sem_count( arg0 ); |
| 1743 | PRE_MEM_WRITE( "semctl(IPC_GETALL, arg.array)", |
| 1744 | (Addr)arg.array, sizeof(unsigned short) * nsems ); |
| 1745 | break; |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 1746 | |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1747 | case VKI_SETALL: |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 1748 | #if defined(VKI_IPC_64) |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1749 | case VKI_SETALL|VKI_IPC_64: |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 1750 | #endif |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1751 | nsems = get_sem_count( arg0 ); |
| 1752 | PRE_MEM_READ( "semctl(IPC_SETALL, arg.array)", |
| 1753 | (Addr)arg.array, sizeof(unsigned short) * nsems ); |
| 1754 | break; |
| 1755 | } |
| 1756 | } |
| 1757 | |
| 1758 | void |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 1759 | ML_(generic_POST_sys_semctl) ( ThreadId tid, |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1760 | UWord res, |
| 1761 | UWord arg0, UWord arg1, |
| 1762 | UWord arg2, UWord arg3 ) |
| 1763 | { |
| 1764 | union vki_semun arg = *(union vki_semun *)&arg3; |
| 1765 | UInt nsems; |
| 1766 | switch (arg2 /* cmd */) { |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 1767 | #if defined(VKI_IPC_INFO) |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1768 | case VKI_IPC_INFO: |
| 1769 | case VKI_SEM_INFO: |
| 1770 | case VKI_IPC_INFO|VKI_IPC_64: |
| 1771 | case VKI_SEM_INFO|VKI_IPC_64: |
| 1772 | POST_MEM_WRITE( (Addr)arg.buf, sizeof(struct vki_seminfo) ); |
| 1773 | break; |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 1774 | #endif |
| 1775 | |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1776 | case VKI_IPC_STAT: |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 1777 | #if defined(VKI_SEM_STAT) |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1778 | case VKI_SEM_STAT: |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 1779 | #endif |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1780 | POST_MEM_WRITE( (Addr)arg.buf, sizeof(struct vki_semid_ds) ); |
| 1781 | break; |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 1782 | |
| 1783 | #if defined(VKI_IPC_64) |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1784 | case VKI_IPC_STAT|VKI_IPC_64: |
| 1785 | case VKI_SEM_STAT|VKI_IPC_64: |
| 1786 | POST_MEM_WRITE( (Addr)arg.buf, sizeof(struct vki_semid64_ds) ); |
| 1787 | break; |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 1788 | #endif |
| 1789 | |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1790 | case VKI_GETALL: |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 1791 | #if defined(VKI_IPC_64) |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1792 | case VKI_GETALL|VKI_IPC_64: |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 1793 | #endif |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1794 | nsems = get_sem_count( arg0 ); |
| 1795 | POST_MEM_WRITE( (Addr)arg.array, sizeof(unsigned short) * nsems ); |
| 1796 | break; |
| 1797 | } |
| 1798 | } |
| 1799 | |
| 1800 | /* ------ */ |
| 1801 | |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1802 | /* ------ */ |
| 1803 | |
| 1804 | static |
philippe | 2d75ea2 | 2012-08-16 19:40:52 +0000 | [diff] [blame] | 1805 | SizeT get_shm_size ( Int shmid ) |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1806 | { |
njn | cda2f0f | 2009-05-18 02:12:08 +0000 | [diff] [blame] | 1807 | #ifdef __NR_shmctl |
| 1808 | # ifdef VKI_IPC_64 |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1809 | struct vki_shmid64_ds buf; |
sewardj | 90741b2 | 2010-10-06 12:59:44 +0000 | [diff] [blame] | 1810 | # ifdef VGP_amd64_linux |
| 1811 | /* See bug 222545 comment 7 */ |
| 1812 | SysRes __res = VG_(do_syscall3)(__NR_shmctl, shmid, |
| 1813 | VKI_IPC_STAT, (UWord)&buf); |
| 1814 | # else |
| 1815 | SysRes __res = VG_(do_syscall3)(__NR_shmctl, shmid, |
| 1816 | VKI_IPC_STAT|VKI_IPC_64, (UWord)&buf); |
| 1817 | # endif |
| 1818 | # else /* !def VKI_IPC_64 */ |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1819 | struct vki_shmid_ds buf; |
njn | cda2f0f | 2009-05-18 02:12:08 +0000 | [diff] [blame] | 1820 | SysRes __res = VG_(do_syscall3)(__NR_shmctl, shmid, VKI_IPC_STAT, (UWord)&buf); |
sewardj | 90741b2 | 2010-10-06 12:59:44 +0000 | [diff] [blame] | 1821 | # endif /* def VKI_IPC_64 */ |
njn | cda2f0f | 2009-05-18 02:12:08 +0000 | [diff] [blame] | 1822 | #else |
| 1823 | struct vki_shmid_ds buf; |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 1824 | SysRes __res = VG_(do_syscall5)(__NR_ipc, 24 /* IPCOP_shmctl */, shmid, |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1825 | VKI_IPC_STAT, 0, (UWord)&buf); |
njn | cda2f0f | 2009-05-18 02:12:08 +0000 | [diff] [blame] | 1826 | #endif |
| 1827 | if (sr_isError(__res)) |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1828 | return 0; |
| 1829 | |
philippe | 2d75ea2 | 2012-08-16 19:40:52 +0000 | [diff] [blame] | 1830 | return (SizeT) buf.shm_segsz; |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1831 | } |
| 1832 | |
| 1833 | UWord |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 1834 | ML_(generic_PRE_sys_shmat) ( ThreadId tid, |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1835 | UWord arg0, UWord arg1, UWord arg2 ) |
| 1836 | { |
| 1837 | /* void *shmat(int shmid, const void *shmaddr, int shmflg); */ |
philippe | 2d75ea2 | 2012-08-16 19:40:52 +0000 | [diff] [blame] | 1838 | SizeT segmentSize = get_shm_size ( arg0 ); |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 1839 | UWord tmp; |
| 1840 | Bool ok; |
| 1841 | if (arg1 == 0) { |
sewardj | 6045709 | 2010-10-06 15:24:39 +0000 | [diff] [blame] | 1842 | /* arm-linux only: work around the fact that |
| 1843 | VG_(am_get_advisory_client_simple) produces something that is |
| 1844 | VKI_PAGE_SIZE aligned, whereas what we want is something |
| 1845 | VKI_SHMLBA aligned, and VKI_SHMLBA >= VKI_PAGE_SIZE. Hence |
| 1846 | increase the request size by VKI_SHMLBA - VKI_PAGE_SIZE and |
| 1847 | then round the result up to the next VKI_SHMLBA boundary. |
| 1848 | See bug 222545 comment 15. So far, arm-linux is the only |
| 1849 | platform where this is known to be necessary. */ |
| 1850 | vg_assert(VKI_SHMLBA >= VKI_PAGE_SIZE); |
| 1851 | if (VKI_SHMLBA > VKI_PAGE_SIZE) { |
| 1852 | segmentSize += VKI_SHMLBA - VKI_PAGE_SIZE; |
| 1853 | } |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 1854 | tmp = VG_(am_get_advisory_client_simple)(0, segmentSize, &ok); |
sewardj | 6045709 | 2010-10-06 15:24:39 +0000 | [diff] [blame] | 1855 | if (ok) { |
| 1856 | if (VKI_SHMLBA > VKI_PAGE_SIZE) { |
| 1857 | arg1 = VG_ROUNDUP(tmp, VKI_SHMLBA); |
| 1858 | } else { |
| 1859 | arg1 = tmp; |
| 1860 | } |
| 1861 | } |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 1862 | } |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 1863 | else if (!ML_(valid_client_addr)(arg1, segmentSize, tid, "shmat")) |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1864 | arg1 = 0; |
| 1865 | return arg1; |
| 1866 | } |
| 1867 | |
| 1868 | void |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 1869 | ML_(generic_POST_sys_shmat) ( ThreadId tid, |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1870 | UWord res, |
| 1871 | UWord arg0, UWord arg1, UWord arg2 ) |
| 1872 | { |
philippe | 2d75ea2 | 2012-08-16 19:40:52 +0000 | [diff] [blame] | 1873 | SizeT segmentSize = VG_PGROUNDUP(get_shm_size(arg0)); |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1874 | if ( segmentSize > 0 ) { |
| 1875 | UInt prot = VKI_PROT_READ|VKI_PROT_WRITE; |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 1876 | Bool d; |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1877 | |
tom | f61fea0 | 2005-10-04 12:04:06 +0000 | [diff] [blame] | 1878 | if (arg2 & VKI_SHM_RDONLY) |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1879 | prot &= ~VKI_PROT_WRITE; |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 1880 | /* It isn't exactly correct to pass 0 for the fd and offset |
| 1881 | here. The kernel seems to think the corresponding section |
| 1882 | does have dev/ino numbers: |
| 1883 | |
| 1884 | 04e52000-04ec8000 rw-s 00000000 00:06 1966090 /SYSV00000000 (deleted) |
| 1885 | |
| 1886 | However there is no obvious way to find them. In order to |
| 1887 | cope with the discrepancy, aspacem's sync checker omits the |
| 1888 | dev/ino correspondence check in cases where V does not know |
| 1889 | the dev/ino. */ |
njn | c6fe8a2 | 2010-12-08 02:51:43 +0000 | [diff] [blame] | 1890 | d = VG_(am_notify_client_shmat)( res, segmentSize, prot ); |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 1891 | |
| 1892 | /* we don't distinguish whether it's read-only or |
| 1893 | * read-write -- it doesn't matter really. */ |
sewardj | 9c606bd | 2008-09-18 18:12:50 +0000 | [diff] [blame] | 1894 | VG_TRACK( new_mem_mmap, res, segmentSize, True, True, False, |
| 1895 | 0/*di_handle*/ ); |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 1896 | if (d) |
| 1897 | VG_(discard_translations)( (Addr64)res, |
| 1898 | (ULong)VG_PGROUNDUP(segmentSize), |
| 1899 | "ML_(generic_POST_sys_shmat)" ); |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1900 | } |
| 1901 | } |
| 1902 | |
| 1903 | /* ------ */ |
| 1904 | |
| 1905 | Bool |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 1906 | ML_(generic_PRE_sys_shmdt) ( ThreadId tid, UWord arg0 ) |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1907 | { |
| 1908 | /* int shmdt(const void *shmaddr); */ |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 1909 | return ML_(valid_client_addr)(arg0, 1, tid, "shmdt"); |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1910 | } |
| 1911 | |
| 1912 | void |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 1913 | ML_(generic_POST_sys_shmdt) ( ThreadId tid, UWord res, UWord arg0 ) |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1914 | { |
sewardj | ef1cf8b | 2006-10-17 01:47:30 +0000 | [diff] [blame] | 1915 | NSegment const* s = VG_(am_find_nsegment)(arg0); |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1916 | |
sewardj | 0e682c6 | 2005-09-28 20:05:31 +0000 | [diff] [blame] | 1917 | if (s != NULL) { |
| 1918 | Addr s_start = s->start; |
| 1919 | SizeT s_len = s->end+1 - s->start; |
tom | 1340c35 | 2005-10-04 15:59:54 +0000 | [diff] [blame] | 1920 | Bool d; |
| 1921 | |
dirk | 7bc57fc | 2006-04-27 11:05:13 +0000 | [diff] [blame] | 1922 | vg_assert(s->kind == SkShmC); |
| 1923 | vg_assert(s->start == arg0); |
tom | 1340c35 | 2005-10-04 15:59:54 +0000 | [diff] [blame] | 1924 | |
| 1925 | d = VG_(am_notify_munmap)(s_start, s_len); |
sewardj | 0e682c6 | 2005-09-28 20:05:31 +0000 | [diff] [blame] | 1926 | s = NULL; /* s is now invalid */ |
| 1927 | VG_TRACK( die_mem_munmap, s_start, s_len ); |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 1928 | if (d) |
sewardj | 0e682c6 | 2005-09-28 20:05:31 +0000 | [diff] [blame] | 1929 | VG_(discard_translations)( (Addr64)s_start, |
| 1930 | (ULong)s_len, |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 1931 | "ML_(generic_POST_sys_shmdt)" ); |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1932 | } |
| 1933 | } |
| 1934 | /* ------ */ |
| 1935 | |
| 1936 | void |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 1937 | ML_(generic_PRE_sys_shmctl) ( ThreadId tid, |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1938 | UWord arg0, UWord arg1, UWord arg2 ) |
| 1939 | { |
| 1940 | /* int shmctl(int shmid, int cmd, struct shmid_ds *buf); */ |
| 1941 | switch (arg1 /* cmd */) { |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 1942 | #if defined(VKI_IPC_INFO) |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1943 | case VKI_IPC_INFO: |
| 1944 | PRE_MEM_WRITE( "shmctl(IPC_INFO, buf)", |
| 1945 | arg2, sizeof(struct vki_shminfo) ); |
| 1946 | break; |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 1947 | #if defined(VKI_IPC_64) |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1948 | case VKI_IPC_INFO|VKI_IPC_64: |
| 1949 | PRE_MEM_WRITE( "shmctl(IPC_INFO, buf)", |
| 1950 | arg2, sizeof(struct vki_shminfo64) ); |
| 1951 | break; |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 1952 | #endif |
| 1953 | #endif |
| 1954 | |
| 1955 | #if defined(VKI_SHM_INFO) |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1956 | case VKI_SHM_INFO: |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 1957 | #if defined(VKI_IPC_64) |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1958 | case VKI_SHM_INFO|VKI_IPC_64: |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 1959 | #endif |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1960 | PRE_MEM_WRITE( "shmctl(SHM_INFO, buf)", |
| 1961 | arg2, sizeof(struct vki_shm_info) ); |
| 1962 | break; |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 1963 | #endif |
| 1964 | |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1965 | case VKI_IPC_STAT: |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 1966 | #if defined(VKI_SHM_STAT) |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1967 | case VKI_SHM_STAT: |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 1968 | #endif |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1969 | PRE_MEM_WRITE( "shmctl(IPC_STAT, buf)", |
| 1970 | arg2, sizeof(struct vki_shmid_ds) ); |
| 1971 | break; |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 1972 | |
| 1973 | #if defined(VKI_IPC_64) |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1974 | case VKI_IPC_STAT|VKI_IPC_64: |
| 1975 | case VKI_SHM_STAT|VKI_IPC_64: |
| 1976 | PRE_MEM_WRITE( "shmctl(IPC_STAT, arg.buf)", |
| 1977 | arg2, sizeof(struct vki_shmid64_ds) ); |
| 1978 | break; |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 1979 | #endif |
| 1980 | |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1981 | case VKI_IPC_SET: |
| 1982 | PRE_MEM_READ( "shmctl(IPC_SET, arg.buf)", |
| 1983 | arg2, sizeof(struct vki_shmid_ds) ); |
| 1984 | break; |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 1985 | |
| 1986 | #if defined(VKI_IPC_64) |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1987 | case VKI_IPC_SET|VKI_IPC_64: |
| 1988 | PRE_MEM_READ( "shmctl(IPC_SET, arg.buf)", |
| 1989 | arg2, sizeof(struct vki_shmid64_ds) ); |
| 1990 | break; |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 1991 | #endif |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1992 | } |
| 1993 | } |
| 1994 | |
| 1995 | void |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 1996 | ML_(generic_POST_sys_shmctl) ( ThreadId tid, |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 1997 | UWord res, |
| 1998 | UWord arg0, UWord arg1, UWord arg2 ) |
| 1999 | { |
| 2000 | switch (arg1 /* cmd */) { |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 2001 | #if defined(VKI_IPC_INFO) |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 2002 | case VKI_IPC_INFO: |
| 2003 | POST_MEM_WRITE( arg2, sizeof(struct vki_shminfo) ); |
| 2004 | break; |
| 2005 | case VKI_IPC_INFO|VKI_IPC_64: |
| 2006 | POST_MEM_WRITE( arg2, sizeof(struct vki_shminfo64) ); |
| 2007 | break; |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 2008 | #endif |
| 2009 | |
| 2010 | #if defined(VKI_SHM_INFO) |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 2011 | case VKI_SHM_INFO: |
| 2012 | case VKI_SHM_INFO|VKI_IPC_64: |
| 2013 | POST_MEM_WRITE( arg2, sizeof(struct vki_shm_info) ); |
| 2014 | break; |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 2015 | #endif |
| 2016 | |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 2017 | case VKI_IPC_STAT: |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 2018 | #if defined(VKI_SHM_STAT) |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 2019 | case VKI_SHM_STAT: |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 2020 | #endif |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 2021 | POST_MEM_WRITE( arg2, sizeof(struct vki_shmid_ds) ); |
| 2022 | break; |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 2023 | |
| 2024 | #if defined(VKI_IPC_64) |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 2025 | case VKI_IPC_STAT|VKI_IPC_64: |
| 2026 | case VKI_SHM_STAT|VKI_IPC_64: |
| 2027 | POST_MEM_WRITE( arg2, sizeof(struct vki_shmid64_ds) ); |
| 2028 | break; |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 2029 | #endif |
| 2030 | |
| 2031 | |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 2032 | } |
| 2033 | } |
| 2034 | |
sewardj | b369c5e | 2005-03-24 17:52:02 +0000 | [diff] [blame] | 2035 | /* --------------------------------------------------------------------- |
tom | 9548a16 | 2005-09-30 08:07:53 +0000 | [diff] [blame] | 2036 | Generic handler for mmap |
| 2037 | ------------------------------------------------------------------ */ |
| 2038 | |
tom | 6d85b04 | 2005-09-30 16:09:12 +0000 | [diff] [blame] | 2039 | /* |
| 2040 | * Although mmap is specified by POSIX and the argument are generally |
| 2041 | * consistent across platforms the precise details of the low level |
| 2042 | * argument passing conventions differ. For example: |
| 2043 | * |
| 2044 | * - On x86-linux there is mmap (aka old_mmap) which takes the |
| 2045 | * arguments in a memory block and the offset in bytes; and |
| 2046 | * mmap2 (aka sys_mmap2) which takes the arguments in the normal |
| 2047 | * way and the offset in pages. |
| 2048 | * |
| 2049 | * - On ppc32-linux there is mmap (aka sys_mmap) which takes the |
| 2050 | * arguments in the normal way and the offset in bytes; and |
| 2051 | * mmap2 (aka sys_mmap2) which takes the arguments in the normal |
| 2052 | * way and the offset in pages. |
| 2053 | * |
| 2054 | * - On amd64-linux everything is simple and there is just the one |
| 2055 | * call, mmap (aka sys_mmap) which takes the arguments in the |
| 2056 | * normal way and the offset in bytes. |
| 2057 | * |
sewardj | b5b8740 | 2011-03-07 16:05:35 +0000 | [diff] [blame] | 2058 | * - On s390x-linux there is mmap (aka old_mmap) which takes the |
| 2059 | * arguments in a memory block and the offset in bytes. mmap2 |
| 2060 | * is also available (but not exported via unistd.h) with |
| 2061 | * arguments in a memory block and the offset in pages. |
| 2062 | * |
tom | 6d85b04 | 2005-09-30 16:09:12 +0000 | [diff] [blame] | 2063 | * To cope with all this we provide a generic handler function here |
| 2064 | * and then each platform implements one or more system call handlers |
| 2065 | * which call this generic routine after extracting and normalising |
| 2066 | * the arguments. |
| 2067 | */ |
| 2068 | |
tom | 9548a16 | 2005-09-30 08:07:53 +0000 | [diff] [blame] | 2069 | SysRes |
| 2070 | ML_(generic_PRE_sys_mmap) ( ThreadId tid, |
| 2071 | UWord arg1, UWord arg2, UWord arg3, |
sewardj | 274461d | 2005-10-02 17:01:41 +0000 | [diff] [blame] | 2072 | UWord arg4, UWord arg5, Off64T arg6 ) |
tom | 9548a16 | 2005-09-30 08:07:53 +0000 | [diff] [blame] | 2073 | { |
| 2074 | Addr advised; |
| 2075 | SysRes sres; |
| 2076 | MapRequest mreq; |
| 2077 | Bool mreq_ok; |
| 2078 | |
sewardj | 80fe549 | 2013-10-14 14:50:57 +0000 | [diff] [blame] | 2079 | # if defined(VGO_darwin) |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 2080 | // Nb: we can't use this on Darwin, it has races: |
| 2081 | // * needs to RETRY if advisory succeeds but map fails |
| 2082 | // (could have been some other thread in a nonblocking call) |
| 2083 | // * needs to not use fixed-position mmap() on Darwin |
| 2084 | // (mmap will cheerfully smash whatever's already there, which might |
| 2085 | // be a new mapping from some other thread in a nonblocking call) |
| 2086 | VG_(core_panic)("can't use ML_(generic_PRE_sys_mmap) on Darwin"); |
sewardj | 80fe549 | 2013-10-14 14:50:57 +0000 | [diff] [blame] | 2087 | # endif |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 2088 | |
tom | 9548a16 | 2005-09-30 08:07:53 +0000 | [diff] [blame] | 2089 | if (arg2 == 0) { |
| 2090 | /* SuSV3 says: If len is zero, mmap() shall fail and no mapping |
| 2091 | shall be established. */ |
| 2092 | return VG_(mk_SysRes_Error)( VKI_EINVAL ); |
| 2093 | } |
| 2094 | |
| 2095 | if (!VG_IS_PAGE_ALIGNED(arg1)) { |
| 2096 | /* zap any misaligned addresses. */ |
| 2097 | /* SuSV3 says misaligned addresses only cause the MAP_FIXED case |
| 2098 | to fail. Here, we catch them all. */ |
| 2099 | return VG_(mk_SysRes_Error)( VKI_EINVAL ); |
| 2100 | } |
| 2101 | |
sewardj | 7e21df8 | 2005-09-30 10:48:27 +0000 | [diff] [blame] | 2102 | if (!VG_IS_PAGE_ALIGNED(arg6)) { |
| 2103 | /* zap any misaligned offsets. */ |
| 2104 | /* SuSV3 says: The off argument is constrained to be aligned and |
| 2105 | sized according to the value returned by sysconf() when |
| 2106 | passed _SC_PAGESIZE or _SC_PAGE_SIZE. */ |
| 2107 | return VG_(mk_SysRes_Error)( VKI_EINVAL ); |
| 2108 | } |
| 2109 | |
sewardj | 80fe549 | 2013-10-14 14:50:57 +0000 | [diff] [blame] | 2110 | # if defined(VKI_MAP_32BIT) |
| 2111 | /* We can't support MAP_32BIT (at least, not without significant |
| 2112 | complication), and it's royally unportable, so if the client |
| 2113 | asks for it, just fail it. */ |
| 2114 | if (arg4 & VKI_MAP_32BIT) { |
| 2115 | return VG_(mk_SysRes_Error)( VKI_ENOMEM ); |
| 2116 | } |
| 2117 | # endif |
| 2118 | |
tom | 9548a16 | 2005-09-30 08:07:53 +0000 | [diff] [blame] | 2119 | /* Figure out what kind of allocation constraints there are |
| 2120 | (fixed/hint/any), and ask aspacem what we should do. */ |
| 2121 | mreq.start = arg1; |
| 2122 | mreq.len = arg2; |
| 2123 | if (arg4 & VKI_MAP_FIXED) { |
| 2124 | mreq.rkind = MFixed; |
| 2125 | } else |
| 2126 | if (arg1 != 0) { |
| 2127 | mreq.rkind = MHint; |
| 2128 | } else { |
| 2129 | mreq.rkind = MAny; |
| 2130 | } |
| 2131 | |
| 2132 | /* Enquire ... */ |
| 2133 | advised = VG_(am_get_advisory)( &mreq, True/*client*/, &mreq_ok ); |
| 2134 | if (!mreq_ok) { |
| 2135 | /* Our request was bounced, so we'd better fail. */ |
| 2136 | return VG_(mk_SysRes_Error)( VKI_EINVAL ); |
| 2137 | } |
| 2138 | |
| 2139 | /* Otherwise we're OK (so far). Install aspacem's choice of |
| 2140 | address, and let the mmap go through. */ |
| 2141 | sres = VG_(am_do_mmap_NO_NOTIFY)(advised, arg2, arg3, |
| 2142 | arg4 | VKI_MAP_FIXED, |
| 2143 | arg5, arg6); |
| 2144 | |
sewardj | 427d016 | 2007-01-09 16:47:20 +0000 | [diff] [blame] | 2145 | /* A refinement: it may be that the kernel refused aspacem's choice |
| 2146 | of address. If we were originally asked for a hinted mapping, |
| 2147 | there is still a last chance: try again at any address. |
| 2148 | Hence: */ |
njn | cda2f0f | 2009-05-18 02:12:08 +0000 | [diff] [blame] | 2149 | if (mreq.rkind == MHint && sr_isError(sres)) { |
sewardj | 427d016 | 2007-01-09 16:47:20 +0000 | [diff] [blame] | 2150 | mreq.start = 0; |
| 2151 | mreq.len = arg2; |
| 2152 | mreq.rkind = MAny; |
| 2153 | advised = VG_(am_get_advisory)( &mreq, True/*client*/, &mreq_ok ); |
| 2154 | if (!mreq_ok) { |
| 2155 | /* Our request was bounced, so we'd better fail. */ |
| 2156 | return VG_(mk_SysRes_Error)( VKI_EINVAL ); |
| 2157 | } |
| 2158 | /* and try again with the kernel */ |
| 2159 | sres = VG_(am_do_mmap_NO_NOTIFY)(advised, arg2, arg3, |
| 2160 | arg4 | VKI_MAP_FIXED, |
| 2161 | arg5, arg6); |
| 2162 | } |
| 2163 | |
njn | cda2f0f | 2009-05-18 02:12:08 +0000 | [diff] [blame] | 2164 | if (!sr_isError(sres)) { |
sewardj | 9c606bd | 2008-09-18 18:12:50 +0000 | [diff] [blame] | 2165 | ULong di_handle; |
bart | 510521e | 2008-05-29 08:52:44 +0000 | [diff] [blame] | 2166 | /* Notify aspacem. */ |
njn | dd37258 | 2009-05-10 22:42:19 +0000 | [diff] [blame] | 2167 | notify_core_of_mmap( |
njn | cda2f0f | 2009-05-18 02:12:08 +0000 | [diff] [blame] | 2168 | (Addr)sr_Res(sres), /* addr kernel actually assigned */ |
bart | 510521e | 2008-05-29 08:52:44 +0000 | [diff] [blame] | 2169 | arg2, /* length */ |
| 2170 | arg3, /* prot */ |
tom | 9548a16 | 2005-09-30 08:07:53 +0000 | [diff] [blame] | 2171 | arg4, /* the original flags value */ |
bart | 510521e | 2008-05-29 08:52:44 +0000 | [diff] [blame] | 2172 | arg5, /* fd */ |
| 2173 | arg6 /* offset */ |
tom | 9548a16 | 2005-09-30 08:07:53 +0000 | [diff] [blame] | 2174 | ); |
| 2175 | /* Load symbols? */ |
njn | cda2f0f | 2009-05-18 02:12:08 +0000 | [diff] [blame] | 2176 | di_handle = VG_(di_notify_mmap)( (Addr)sr_Res(sres), |
sewardj | 5f2dcad | 2011-10-24 08:53:03 +0000 | [diff] [blame] | 2177 | False/*allow_SkFileV*/, (Int)arg5 ); |
bart | 510521e | 2008-05-29 08:52:44 +0000 | [diff] [blame] | 2178 | /* Notify the tool. */ |
| 2179 | notify_tool_of_mmap( |
njn | cda2f0f | 2009-05-18 02:12:08 +0000 | [diff] [blame] | 2180 | (Addr)sr_Res(sres), /* addr kernel actually assigned */ |
bart | 510521e | 2008-05-29 08:52:44 +0000 | [diff] [blame] | 2181 | arg2, /* length */ |
| 2182 | arg3, /* prot */ |
sewardj | 9c606bd | 2008-09-18 18:12:50 +0000 | [diff] [blame] | 2183 | di_handle /* so the tool can refer to the read debuginfo later, |
| 2184 | if it wants. */ |
bart | 510521e | 2008-05-29 08:52:44 +0000 | [diff] [blame] | 2185 | ); |
tom | 9548a16 | 2005-09-30 08:07:53 +0000 | [diff] [blame] | 2186 | } |
| 2187 | |
| 2188 | /* Stay sane */ |
njn | cda2f0f | 2009-05-18 02:12:08 +0000 | [diff] [blame] | 2189 | if (!sr_isError(sres) && (arg4 & VKI_MAP_FIXED)) |
| 2190 | vg_assert(sr_Res(sres) == arg1); |
tom | 9548a16 | 2005-09-30 08:07:53 +0000 | [diff] [blame] | 2191 | |
| 2192 | return sres; |
| 2193 | } |
| 2194 | |
| 2195 | |
| 2196 | /* --------------------------------------------------------------------- |
nethercote | 4fa681f | 2004-11-08 17:51:39 +0000 | [diff] [blame] | 2197 | The Main Entertainment ... syscall wrappers |
njn25 | e49d8e7 | 2002-09-23 09:36:25 +0000 | [diff] [blame] | 2198 | ------------------------------------------------------------------ */ |
sewardj | de4a1d0 | 2002-03-22 01:27:54 +0000 | [diff] [blame] | 2199 | |
nethercote | 4fa681f | 2004-11-08 17:51:39 +0000 | [diff] [blame] | 2200 | /* Note: the PRE() and POST() wrappers are for the actual functions |
nethercote | 8ff888f | 2004-11-17 17:11:45 +0000 | [diff] [blame] | 2201 | implementing the system calls in the OS kernel. These mostly have |
nethercote | 4fa681f | 2004-11-08 17:51:39 +0000 | [diff] [blame] | 2202 | names like sys_write(); a few have names like old_mmap(). See the |
njn | af839f5 | 2005-06-23 03:27:57 +0000 | [diff] [blame] | 2203 | comment for ML_(syscall_table)[] for important info about the __NR_foo |
nethercote | 8ff888f | 2004-11-17 17:11:45 +0000 | [diff] [blame] | 2204 | constants and their relationship to the sys_foo() functions. |
nethercote | 4fa681f | 2004-11-08 17:51:39 +0000 | [diff] [blame] | 2205 | |
nethercote | 92b2fd5 | 2004-11-16 16:15:41 +0000 | [diff] [blame] | 2206 | Some notes about names used for syscalls and args: |
| 2207 | - For the --trace-syscalls=yes output, we use the sys_foo() name to avoid |
| 2208 | ambiguity. |
| 2209 | |
| 2210 | - For error messages, we generally use a somewhat generic name |
| 2211 | for the syscall (eg. "write" rather than "sys_write"). This should be |
| 2212 | good enough for the average user to understand what is happening, |
| 2213 | without confusing them with names like "sys_write". |
| 2214 | |
| 2215 | - Also, for error messages the arg names are mostly taken from the man |
| 2216 | pages (even though many of those man pages are really for glibc |
nethercote | 8ff888f | 2004-11-17 17:11:45 +0000 | [diff] [blame] | 2217 | functions of the same name), rather than from the OS kernel source, |
nethercote | 92b2fd5 | 2004-11-16 16:15:41 +0000 | [diff] [blame] | 2218 | for the same reason -- a user presented with a "bogus foo(bar)" arg |
| 2219 | will most likely look at the "foo" man page to see which is the "bar" |
| 2220 | arg. |
nethercote | 8b76fe5 | 2004-11-08 19:20:09 +0000 | [diff] [blame] | 2221 | |
nethercote | 9c311eb | 2004-11-12 18:20:12 +0000 | [diff] [blame] | 2222 | Note that we use our own vki_* types. The one exception is in |
| 2223 | PRE_REG_READn calls, where pointer types haven't been changed, because |
| 2224 | they don't need to be -- eg. for "foo*" to be used, the type foo need not |
| 2225 | be visible. |
| 2226 | |
nethercote | 4fa681f | 2004-11-08 17:51:39 +0000 | [diff] [blame] | 2227 | XXX: some of these are arch-specific, and should be factored out. |
| 2228 | */ |
| 2229 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 2230 | #define PRE(name) DEFN_PRE_TEMPLATE(generic, name) |
| 2231 | #define POST(name) DEFN_POST_TEMPLATE(generic, name) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 2232 | |
tom | ca78724 | 2009-11-25 11:24:00 +0000 | [diff] [blame] | 2233 | // Macros to support 64-bit syscall args split into two 32 bit values |
| 2234 | #if defined(VG_LITTLEENDIAN) |
| 2235 | #define MERGE64(lo,hi) ( ((ULong)(lo)) | (((ULong)(hi)) << 32) ) |
| 2236 | #define MERGE64_FIRST(name) name##_low |
| 2237 | #define MERGE64_SECOND(name) name##_high |
| 2238 | #elif defined(VG_BIGENDIAN) |
| 2239 | #define MERGE64(hi,lo) ( ((ULong)(lo)) | (((ULong)(hi)) << 32) ) |
| 2240 | #define MERGE64_FIRST(name) name##_high |
| 2241 | #define MERGE64_SECOND(name) name##_low |
| 2242 | #else |
| 2243 | #error Unknown endianness |
njn | 89d43f7 | 2009-05-24 23:02:55 +0000 | [diff] [blame] | 2244 | #endif |
sewardj | e7aa4ae | 2005-06-09 12:43:42 +0000 | [diff] [blame] | 2245 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 2246 | PRE(sys_exit) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 2247 | { |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 2248 | ThreadState* tst; |
sewardj | a922b61 | 2005-03-11 02:47:32 +0000 | [diff] [blame] | 2249 | /* simple; just make this thread exit */ |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 2250 | PRINT("exit( %ld )", ARG1); |
njn | aab814e | 2009-03-03 05:39:23 +0000 | [diff] [blame] | 2251 | PRE_REG_READ1(void, "exit", int, status); |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 2252 | tst = VG_(get_ThreadState)(tid); |
| 2253 | /* Set the thread's status to be exiting, then claim that the |
| 2254 | syscall succeeded. */ |
sewardj | ef1cf8b | 2006-10-17 01:47:30 +0000 | [diff] [blame] | 2255 | tst->exitreason = VgSrc_ExitThread; |
sewardj | a922b61 | 2005-03-11 02:47:32 +0000 | [diff] [blame] | 2256 | tst->os_state.exitcode = ARG1; |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 2257 | SET_STATUS_Success(0); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 2258 | } |
| 2259 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 2260 | PRE(sys_ni_syscall) |
nethercote | eb1c7b7 | 2004-11-11 19:43:50 +0000 | [diff] [blame] | 2261 | { |
njn | 1a1e95c | 2009-06-03 06:50:06 +0000 | [diff] [blame] | 2262 | PRINT("unimplemented (by the kernel) syscall: %s! (ni_syscall)\n", |
| 2263 | VG_SYSNUM_STRING(SYSNO)); |
nethercote | eb1c7b7 | 2004-11-11 19:43:50 +0000 | [diff] [blame] | 2264 | PRE_REG_READ0(long, "ni_syscall"); |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 2265 | SET_STATUS_Failure( VKI_ENOSYS ); |
nethercote | eb1c7b7 | 2004-11-11 19:43:50 +0000 | [diff] [blame] | 2266 | } |
| 2267 | |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 2268 | PRE(sys_iopl) |
| 2269 | { |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 2270 | PRINT("sys_iopl ( %ld )", ARG1); |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 2271 | PRE_REG_READ1(long, "iopl", unsigned long, level); |
| 2272 | } |
| 2273 | |
sewardj | 78b50e4 | 2005-06-08 01:47:28 +0000 | [diff] [blame] | 2274 | PRE(sys_fsync) |
| 2275 | { |
| 2276 | *flags |= SfMayBlock; |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 2277 | PRINT("sys_fsync ( %ld )", ARG1); |
sewardj | 78b50e4 | 2005-06-08 01:47:28 +0000 | [diff] [blame] | 2278 | PRE_REG_READ1(long, "fsync", unsigned int, fd); |
| 2279 | } |
| 2280 | |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 2281 | PRE(sys_fdatasync) |
| 2282 | { |
| 2283 | *flags |= SfMayBlock; |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 2284 | PRINT("sys_fdatasync ( %ld )", ARG1); |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 2285 | PRE_REG_READ1(long, "fdatasync", unsigned int, fd); |
| 2286 | } |
| 2287 | |
| 2288 | PRE(sys_msync) |
| 2289 | { |
| 2290 | *flags |= SfMayBlock; |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 2291 | PRINT("sys_msync ( %#lx, %llu, %ld )", ARG1,(ULong)ARG2,ARG3); |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 2292 | PRE_REG_READ3(long, "msync", |
| 2293 | unsigned long, start, vki_size_t, length, int, flags); |
| 2294 | PRE_MEM_READ( "msync(start)", ARG1, ARG2 ); |
| 2295 | } |
| 2296 | |
sewardj | e6d5e72 | 2005-06-10 10:27:55 +0000 | [diff] [blame] | 2297 | // Nb: getpmsg() and putpmsg() are special additional syscalls used in early |
| 2298 | // versions of LiS (Linux Streams). They are not part of the kernel. |
| 2299 | // Therefore, we have to provide this type ourself, rather than getting it |
| 2300 | // from the kernel sources. |
| 2301 | struct vki_pmsg_strbuf { |
| 2302 | int maxlen; /* no. of bytes in buffer */ |
| 2303 | int len; /* no. of bytes returned */ |
| 2304 | vki_caddr_t buf; /* pointer to data */ |
| 2305 | }; |
| 2306 | PRE(sys_getpmsg) |
| 2307 | { |
| 2308 | /* LiS getpmsg from http://www.gcom.com/home/linux/lis/ */ |
| 2309 | struct vki_pmsg_strbuf *ctrl; |
| 2310 | struct vki_pmsg_strbuf *data; |
| 2311 | *flags |= SfMayBlock; |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 2312 | PRINT("sys_getpmsg ( %ld, %#lx, %#lx, %#lx, %#lx )", ARG1,ARG2,ARG3,ARG4,ARG5); |
sewardj | e6d5e72 | 2005-06-10 10:27:55 +0000 | [diff] [blame] | 2313 | PRE_REG_READ5(int, "getpmsg", |
| 2314 | int, fd, struct strbuf *, ctrl, struct strbuf *, data, |
| 2315 | int *, bandp, int *, flagsp); |
| 2316 | ctrl = (struct vki_pmsg_strbuf *)ARG2; |
| 2317 | data = (struct vki_pmsg_strbuf *)ARG3; |
| 2318 | if (ctrl && ctrl->maxlen > 0) |
| 2319 | PRE_MEM_WRITE( "getpmsg(ctrl)", (Addr)ctrl->buf, ctrl->maxlen); |
| 2320 | if (data && data->maxlen > 0) |
| 2321 | PRE_MEM_WRITE( "getpmsg(data)", (Addr)data->buf, data->maxlen); |
| 2322 | if (ARG4) |
| 2323 | PRE_MEM_WRITE( "getpmsg(bandp)", (Addr)ARG4, sizeof(int)); |
| 2324 | if (ARG5) |
| 2325 | PRE_MEM_WRITE( "getpmsg(flagsp)", (Addr)ARG5, sizeof(int)); |
| 2326 | } |
| 2327 | POST(sys_getpmsg) |
| 2328 | { |
| 2329 | struct vki_pmsg_strbuf *ctrl; |
| 2330 | struct vki_pmsg_strbuf *data; |
| 2331 | vg_assert(SUCCESS); |
| 2332 | ctrl = (struct vki_pmsg_strbuf *)ARG2; |
| 2333 | data = (struct vki_pmsg_strbuf *)ARG3; |
| 2334 | if (RES == 0 && ctrl && ctrl->len > 0) { |
| 2335 | POST_MEM_WRITE( (Addr)ctrl->buf, ctrl->len); |
| 2336 | } |
| 2337 | if (RES == 0 && data && data->len > 0) { |
| 2338 | POST_MEM_WRITE( (Addr)data->buf, data->len); |
| 2339 | } |
| 2340 | } |
| 2341 | |
| 2342 | PRE(sys_putpmsg) |
| 2343 | { |
| 2344 | /* LiS putpmsg from http://www.gcom.com/home/linux/lis/ */ |
| 2345 | struct vki_pmsg_strbuf *ctrl; |
| 2346 | struct vki_pmsg_strbuf *data; |
| 2347 | *flags |= SfMayBlock; |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 2348 | PRINT("sys_putpmsg ( %ld, %#lx, %#lx, %ld, %ld )", ARG1,ARG2,ARG3,ARG4,ARG5); |
sewardj | e6d5e72 | 2005-06-10 10:27:55 +0000 | [diff] [blame] | 2349 | PRE_REG_READ5(int, "putpmsg", |
| 2350 | int, fd, struct strbuf *, ctrl, struct strbuf *, data, |
| 2351 | int, band, int, flags); |
| 2352 | ctrl = (struct vki_pmsg_strbuf *)ARG2; |
| 2353 | data = (struct vki_pmsg_strbuf *)ARG3; |
| 2354 | if (ctrl && ctrl->len > 0) |
| 2355 | PRE_MEM_READ( "putpmsg(ctrl)", (Addr)ctrl->buf, ctrl->len); |
| 2356 | if (data && data->len > 0) |
| 2357 | PRE_MEM_READ( "putpmsg(data)", (Addr)data->buf, data->len); |
| 2358 | } |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 2359 | |
| 2360 | PRE(sys_getitimer) |
| 2361 | { |
njn | 72bbd8d | 2009-05-22 08:12:46 +0000 | [diff] [blame] | 2362 | struct vki_itimerval *value = (struct vki_itimerval*)ARG2; |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 2363 | PRINT("sys_getitimer ( %ld, %#lx )", ARG1, ARG2); |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 2364 | PRE_REG_READ2(long, "getitimer", int, which, struct itimerval *, value); |
njn | 72bbd8d | 2009-05-22 08:12:46 +0000 | [diff] [blame] | 2365 | |
| 2366 | PRE_timeval_WRITE( "getitimer(&value->it_interval)", &(value->it_interval)); |
| 2367 | PRE_timeval_WRITE( "getitimer(&value->it_value)", &(value->it_value)); |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 2368 | } |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 2369 | |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 2370 | POST(sys_getitimer) |
| 2371 | { |
| 2372 | if (ARG2 != (Addr)NULL) { |
njn | 72bbd8d | 2009-05-22 08:12:46 +0000 | [diff] [blame] | 2373 | struct vki_itimerval *value = (struct vki_itimerval*)ARG2; |
| 2374 | POST_timeval_WRITE( &(value->it_interval) ); |
| 2375 | POST_timeval_WRITE( &(value->it_value) ); |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 2376 | } |
| 2377 | } |
| 2378 | |
| 2379 | PRE(sys_setitimer) |
| 2380 | { |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 2381 | PRINT("sys_setitimer ( %ld, %#lx, %#lx )", ARG1,ARG2,ARG3); |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 2382 | PRE_REG_READ3(long, "setitimer", |
| 2383 | int, which, |
| 2384 | struct itimerval *, value, struct itimerval *, ovalue); |
njn | 72bbd8d | 2009-05-22 08:12:46 +0000 | [diff] [blame] | 2385 | if (ARG2 != (Addr)NULL) { |
| 2386 | struct vki_itimerval *value = (struct vki_itimerval*)ARG2; |
| 2387 | PRE_timeval_READ( "setitimer(&value->it_interval)", |
| 2388 | &(value->it_interval)); |
| 2389 | PRE_timeval_READ( "setitimer(&value->it_value)", |
| 2390 | &(value->it_value)); |
| 2391 | } |
| 2392 | if (ARG3 != (Addr)NULL) { |
| 2393 | struct vki_itimerval *ovalue = (struct vki_itimerval*)ARG3; |
| 2394 | PRE_timeval_WRITE( "setitimer(&ovalue->it_interval)", |
| 2395 | &(ovalue->it_interval)); |
| 2396 | PRE_timeval_WRITE( "setitimer(&ovalue->it_value)", |
| 2397 | &(ovalue->it_value)); |
| 2398 | } |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 2399 | } |
| 2400 | |
| 2401 | POST(sys_setitimer) |
| 2402 | { |
| 2403 | if (ARG3 != (Addr)NULL) { |
njn | 72bbd8d | 2009-05-22 08:12:46 +0000 | [diff] [blame] | 2404 | struct vki_itimerval *ovalue = (struct vki_itimerval*)ARG3; |
| 2405 | POST_timeval_WRITE( &(ovalue->it_interval) ); |
| 2406 | POST_timeval_WRITE( &(ovalue->it_value) ); |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 2407 | } |
| 2408 | } |
| 2409 | |
| 2410 | PRE(sys_chroot) |
| 2411 | { |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 2412 | PRINT("sys_chroot ( %#lx )", ARG1); |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 2413 | PRE_REG_READ1(long, "chroot", const char *, path); |
| 2414 | PRE_MEM_RASCIIZ( "chroot(path)", ARG1 ); |
| 2415 | } |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 2416 | |
| 2417 | PRE(sys_madvise) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 2418 | { |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 2419 | *flags |= SfMayBlock; |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 2420 | PRINT("sys_madvise ( %#lx, %llu, %ld )", ARG1,(ULong)ARG2,ARG3); |
nethercote | ac866b9 | 2004-11-15 20:23:15 +0000 | [diff] [blame] | 2421 | PRE_REG_READ3(long, "madvise", |
| 2422 | unsigned long, start, vki_size_t, length, int, advice); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 2423 | } |
| 2424 | |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 2425 | #if HAVE_MREMAP |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 2426 | PRE(sys_mremap) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 2427 | { |
nethercote | 27ea8bc | 2004-07-10 17:21:14 +0000 | [diff] [blame] | 2428 | // Nb: this is different to the glibc version described in the man pages, |
| 2429 | // which lacks the fifth 'new_address' argument. |
tom | c00fcc7 | 2006-05-08 11:58:06 +0000 | [diff] [blame] | 2430 | if (ARG4 & VKI_MREMAP_FIXED) { |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 2431 | PRINT("sys_mremap ( %#lx, %llu, %ld, 0x%lx, %#lx )", |
tom | c00fcc7 | 2006-05-08 11:58:06 +0000 | [diff] [blame] | 2432 | ARG1, (ULong)ARG2, ARG3, ARG4, ARG5); |
| 2433 | PRE_REG_READ5(unsigned long, "mremap", |
| 2434 | unsigned long, old_addr, unsigned long, old_size, |
| 2435 | unsigned long, new_size, unsigned long, flags, |
| 2436 | unsigned long, new_addr); |
| 2437 | } else { |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 2438 | PRINT("sys_mremap ( %#lx, %llu, %ld, 0x%lx )", |
tom | c00fcc7 | 2006-05-08 11:58:06 +0000 | [diff] [blame] | 2439 | ARG1, (ULong)ARG2, ARG3, ARG4); |
| 2440 | PRE_REG_READ4(unsigned long, "mremap", |
| 2441 | unsigned long, old_addr, unsigned long, old_size, |
| 2442 | unsigned long, new_size, unsigned long, flags); |
| 2443 | } |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 2444 | SET_STATUS_from_SysRes( |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 2445 | do_mremap((Addr)ARG1, ARG2, (Addr)ARG5, ARG3, ARG4, tid) |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 2446 | ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 2447 | } |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 2448 | #endif /* HAVE_MREMAP */ |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 2449 | |
sewardj | 8c9ea4e | 2005-06-08 10:46:56 +0000 | [diff] [blame] | 2450 | PRE(sys_nice) |
| 2451 | { |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 2452 | PRINT("sys_nice ( %ld )", ARG1); |
sewardj | 8c9ea4e | 2005-06-08 10:46:56 +0000 | [diff] [blame] | 2453 | PRE_REG_READ1(long, "nice", int, inc); |
| 2454 | } |
sewardj | 78b50e4 | 2005-06-08 01:47:28 +0000 | [diff] [blame] | 2455 | |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 2456 | PRE(sys_mlock) |
| 2457 | { |
| 2458 | *flags |= SfMayBlock; |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 2459 | PRINT("sys_mlock ( %#lx, %llu )", ARG1, (ULong)ARG2); |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 2460 | PRE_REG_READ2(long, "mlock", unsigned long, addr, vki_size_t, len); |
| 2461 | } |
| 2462 | |
| 2463 | PRE(sys_munlock) |
| 2464 | { |
| 2465 | *flags |= SfMayBlock; |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 2466 | PRINT("sys_munlock ( %#lx, %llu )", ARG1, (ULong)ARG2); |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 2467 | PRE_REG_READ2(long, "munlock", unsigned long, addr, vki_size_t, len); |
| 2468 | } |
| 2469 | |
| 2470 | PRE(sys_mlockall) |
| 2471 | { |
| 2472 | *flags |= SfMayBlock; |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 2473 | PRINT("sys_mlockall ( %lx )", ARG1); |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 2474 | PRE_REG_READ1(long, "mlockall", int, flags); |
| 2475 | } |
| 2476 | |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 2477 | PRE(sys_setpriority) |
| 2478 | { |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 2479 | PRINT("sys_setpriority ( %ld, %ld, %ld )", ARG1, ARG2, ARG3); |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 2480 | PRE_REG_READ3(long, "setpriority", int, which, int, who, int, prio); |
| 2481 | } |
| 2482 | |
| 2483 | PRE(sys_getpriority) |
| 2484 | { |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 2485 | PRINT("sys_getpriority ( %ld, %ld )", ARG1, ARG2); |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 2486 | PRE_REG_READ2(long, "getpriority", int, which, int, who); |
| 2487 | } |
| 2488 | |
njn | 7b1edbd | 2009-05-19 06:50:37 +0000 | [diff] [blame] | 2489 | PRE(sys_pwrite64) |
sewardj | edc9547 | 2008-08-07 20:29:55 +0000 | [diff] [blame] | 2490 | { |
sewardj | edc9547 | 2008-08-07 20:29:55 +0000 | [diff] [blame] | 2491 | *flags |= SfMayBlock; |
njn | 7b1edbd | 2009-05-19 06:50:37 +0000 | [diff] [blame] | 2492 | #if VG_WORDSIZE == 4 |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 2493 | PRINT("sys_pwrite64 ( %ld, %#lx, %llu, %lld )", |
tom | ca78724 | 2009-11-25 11:24:00 +0000 | [diff] [blame] | 2494 | ARG1, ARG2, (ULong)ARG3, MERGE64(ARG4,ARG5)); |
sewardj | e6d5e72 | 2005-06-10 10:27:55 +0000 | [diff] [blame] | 2495 | PRE_REG_READ5(ssize_t, "pwrite64", |
| 2496 | unsigned int, fd, const char *, buf, vki_size_t, count, |
sewardj | 0ca89e0 | 2009-11-25 13:57:47 +0000 | [diff] [blame] | 2497 | vki_u32, MERGE64_FIRST(offset), vki_u32, MERGE64_SECOND(offset)); |
njn | 7b1edbd | 2009-05-19 06:50:37 +0000 | [diff] [blame] | 2498 | #elif VG_WORDSIZE == 8 |
| 2499 | PRINT("sys_pwrite64 ( %ld, %#lx, %llu, %lld )", |
| 2500 | ARG1, ARG2, (ULong)ARG3, (Long)ARG4); |
| 2501 | PRE_REG_READ4(ssize_t, "pwrite64", |
| 2502 | unsigned int, fd, const char *, buf, vki_size_t, count, |
| 2503 | Word, offset); |
| 2504 | #else |
| 2505 | # error Unexpected word size |
| 2506 | #endif |
sewardj | e6d5e72 | 2005-06-10 10:27:55 +0000 | [diff] [blame] | 2507 | PRE_MEM_READ( "pwrite64(buf)", ARG2, ARG3 ); |
| 2508 | } |
sewardj | 8c9ea4e | 2005-06-08 10:46:56 +0000 | [diff] [blame] | 2509 | |
| 2510 | PRE(sys_sync) |
| 2511 | { |
| 2512 | *flags |= SfMayBlock; |
| 2513 | PRINT("sys_sync ( )"); |
| 2514 | PRE_REG_READ0(long, "sync"); |
| 2515 | } |
| 2516 | |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 2517 | PRE(sys_fstatfs) |
| 2518 | { |
sewardj | cc3de2d | 2011-08-18 15:08:20 +0000 | [diff] [blame] | 2519 | FUSE_COMPATIBLE_MAY_BLOCK(); |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 2520 | PRINT("sys_fstatfs ( %ld, %#lx )",ARG1,ARG2); |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 2521 | PRE_REG_READ2(long, "fstatfs", |
| 2522 | unsigned int, fd, struct statfs *, buf); |
| 2523 | PRE_MEM_WRITE( "fstatfs(buf)", ARG2, sizeof(struct vki_statfs) ); |
| 2524 | } |
| 2525 | |
| 2526 | POST(sys_fstatfs) |
| 2527 | { |
| 2528 | POST_MEM_WRITE( ARG2, sizeof(struct vki_statfs) ); |
| 2529 | } |
| 2530 | |
sewardj | e6d5e72 | 2005-06-10 10:27:55 +0000 | [diff] [blame] | 2531 | PRE(sys_fstatfs64) |
| 2532 | { |
sewardj | cc3de2d | 2011-08-18 15:08:20 +0000 | [diff] [blame] | 2533 | FUSE_COMPATIBLE_MAY_BLOCK(); |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 2534 | PRINT("sys_fstatfs64 ( %ld, %llu, %#lx )",ARG1,(ULong)ARG2,ARG3); |
sewardj | e6d5e72 | 2005-06-10 10:27:55 +0000 | [diff] [blame] | 2535 | PRE_REG_READ3(long, "fstatfs64", |
| 2536 | unsigned int, fd, vki_size_t, size, struct statfs64 *, buf); |
| 2537 | PRE_MEM_WRITE( "fstatfs64(buf)", ARG3, ARG2 ); |
| 2538 | } |
| 2539 | POST(sys_fstatfs64) |
| 2540 | { |
| 2541 | POST_MEM_WRITE( ARG3, ARG2 ); |
| 2542 | } |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 2543 | |
| 2544 | PRE(sys_getsid) |
| 2545 | { |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 2546 | PRINT("sys_getsid ( %ld )", ARG1); |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 2547 | PRE_REG_READ1(long, "getsid", vki_pid_t, pid); |
| 2548 | } |
| 2549 | |
njn | 7b1edbd | 2009-05-19 06:50:37 +0000 | [diff] [blame] | 2550 | PRE(sys_pread64) |
sewardj | edc9547 | 2008-08-07 20:29:55 +0000 | [diff] [blame] | 2551 | { |
sewardj | edc9547 | 2008-08-07 20:29:55 +0000 | [diff] [blame] | 2552 | *flags |= SfMayBlock; |
njn | 7b1edbd | 2009-05-19 06:50:37 +0000 | [diff] [blame] | 2553 | #if VG_WORDSIZE == 4 |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 2554 | PRINT("sys_pread64 ( %ld, %#lx, %llu, %lld )", |
tom | ca78724 | 2009-11-25 11:24:00 +0000 | [diff] [blame] | 2555 | ARG1, ARG2, (ULong)ARG3, MERGE64(ARG4,ARG5)); |
sewardj | e7aa4ae | 2005-06-09 12:43:42 +0000 | [diff] [blame] | 2556 | PRE_REG_READ5(ssize_t, "pread64", |
| 2557 | unsigned int, fd, char *, buf, vki_size_t, count, |
tom | ca78724 | 2009-11-25 11:24:00 +0000 | [diff] [blame] | 2558 | vki_u32, MERGE64_FIRST(offset), vki_u32, MERGE64_SECOND(offset)); |
njn | 7b1edbd | 2009-05-19 06:50:37 +0000 | [diff] [blame] | 2559 | #elif VG_WORDSIZE == 8 |
| 2560 | PRINT("sys_pread64 ( %ld, %#lx, %llu, %lld )", |
| 2561 | ARG1, ARG2, (ULong)ARG3, (Long)ARG4); |
| 2562 | PRE_REG_READ4(ssize_t, "pread64", |
| 2563 | unsigned int, fd, char *, buf, vki_size_t, count, |
| 2564 | Word, offset); |
| 2565 | #else |
| 2566 | # error Unexpected word size |
| 2567 | #endif |
sewardj | e7aa4ae | 2005-06-09 12:43:42 +0000 | [diff] [blame] | 2568 | PRE_MEM_WRITE( "pread64(buf)", ARG2, ARG3 ); |
| 2569 | } |
njn | 7b1edbd | 2009-05-19 06:50:37 +0000 | [diff] [blame] | 2570 | POST(sys_pread64) |
sewardj | e7aa4ae | 2005-06-09 12:43:42 +0000 | [diff] [blame] | 2571 | { |
| 2572 | vg_assert(SUCCESS); |
| 2573 | if (RES > 0) { |
| 2574 | POST_MEM_WRITE( ARG2, RES ); |
| 2575 | } |
| 2576 | } |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 2577 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 2578 | PRE(sys_mknod) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 2579 | { |
sewardj | cc3de2d | 2011-08-18 15:08:20 +0000 | [diff] [blame] | 2580 | FUSE_COMPATIBLE_MAY_BLOCK(); |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 2581 | PRINT("sys_mknod ( %#lx(%s), 0x%lx, 0x%lx )", ARG1, (char*)ARG1, ARG2, ARG3 ); |
nethercote | c6851dd | 2004-11-11 18:00:47 +0000 | [diff] [blame] | 2582 | PRE_REG_READ3(long, "mknod", |
| 2583 | const char *, pathname, int, mode, unsigned, dev); |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 2584 | PRE_MEM_RASCIIZ( "mknod(pathname)", ARG1 ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 2585 | } |
| 2586 | |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 2587 | PRE(sys_flock) |
| 2588 | { |
| 2589 | *flags |= SfMayBlock; |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 2590 | PRINT("sys_flock ( %ld, %ld )", ARG1, ARG2 ); |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 2591 | PRE_REG_READ2(long, "flock", unsigned int, fd, unsigned int, operation); |
| 2592 | } |
| 2593 | |
nethercote | a81e916 | 2004-02-12 14:34:14 +0000 | [diff] [blame] | 2594 | // Pre_read a char** argument. |
florian | e543f30 | 2012-10-21 19:43:43 +0000 | [diff] [blame] | 2595 | static void pre_argv_envp(Addr a, ThreadId tid, const HChar* s1, const HChar* s2) |
nethercote | a81e916 | 2004-02-12 14:34:14 +0000 | [diff] [blame] | 2596 | { |
| 2597 | while (True) { |
njn | b249fd7 | 2004-11-29 14:24:57 +0000 | [diff] [blame] | 2598 | Addr a_deref; |
| 2599 | Addr* a_p = (Addr*)a; |
| 2600 | PRE_MEM_READ( s1, (Addr)a_p, sizeof(Addr) ); |
| 2601 | a_deref = *a_p; |
nethercote | a81e916 | 2004-02-12 14:34:14 +0000 | [diff] [blame] | 2602 | if (0 == a_deref) |
| 2603 | break; |
nethercote | ef0c766 | 2004-11-06 15:38:43 +0000 | [diff] [blame] | 2604 | PRE_MEM_RASCIIZ( s2, a_deref ); |
nethercote | a81e916 | 2004-02-12 14:34:14 +0000 | [diff] [blame] | 2605 | a += sizeof(char*); |
| 2606 | } |
| 2607 | } |
| 2608 | |
njn | 7b85dd5 | 2005-06-12 17:26:29 +0000 | [diff] [blame] | 2609 | static Bool i_am_the_only_thread ( void ) |
| 2610 | { |
| 2611 | Int c = VG_(count_living_threads)(); |
| 2612 | vg_assert(c >= 1); /* stay sane */ |
| 2613 | return c == 1; |
| 2614 | } |
| 2615 | |
| 2616 | /* Wait until all other threads disappear. */ |
| 2617 | void VG_(reap_threads)(ThreadId self) |
| 2618 | { |
| 2619 | while (!i_am_the_only_thread()) { |
| 2620 | /* Let other thread(s) run */ |
| 2621 | VG_(vg_yield)(); |
| 2622 | VG_(poll_signals)(self); |
| 2623 | } |
| 2624 | vg_assert(i_am_the_only_thread()); |
| 2625 | } |
| 2626 | |
nethercote | 7310afb | 2004-11-12 15:41:06 +0000 | [diff] [blame] | 2627 | // XXX: prototype here seemingly doesn't match the prototype for i386-linux, |
| 2628 | // but it seems to work nonetheless... |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 2629 | PRE(sys_execve) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 2630 | { |
florian | 19f91bb | 2012-11-10 22:29:54 +0000 | [diff] [blame] | 2631 | HChar* path = NULL; /* path to executable */ |
| 2632 | HChar** envp = NULL; |
| 2633 | HChar** argv = NULL; |
| 2634 | HChar** arg2copy; |
| 2635 | HChar* launcher_basename = NULL; |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 2636 | ThreadState* tst; |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 2637 | Int i, j, tot_args; |
njn | 7375061 | 2005-10-14 03:11:30 +0000 | [diff] [blame] | 2638 | SysRes res; |
sewardj | 0642127 | 2009-11-05 08:55:13 +0000 | [diff] [blame] | 2639 | Bool setuid_allowed, trace_this_child; |
sewardj | b5f6f51 | 2005-03-10 23:59:00 +0000 | [diff] [blame] | 2640 | |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 2641 | PRINT("sys_execve ( %#lx(%s), %#lx, %#lx )", ARG1, (char*)ARG1, ARG2, ARG3); |
nethercote | 7310afb | 2004-11-12 15:41:06 +0000 | [diff] [blame] | 2642 | PRE_REG_READ3(vki_off_t, "execve", |
| 2643 | char *, filename, char **, argv, char **, envp); |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 2644 | PRE_MEM_RASCIIZ( "execve(filename)", ARG1 ); |
| 2645 | if (ARG2 != 0) |
| 2646 | pre_argv_envp( ARG2, tid, "execve(argv)", "execve(argv[i])" ); |
| 2647 | if (ARG3 != 0) |
| 2648 | pre_argv_envp( ARG3, tid, "execve(envp)", "execve(envp[i])" ); |
fitzhardinge | e1c06d8 | 2003-10-30 07:21:44 +0000 | [diff] [blame] | 2649 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 2650 | vg_assert(VG_(is_valid_tid)(tid)); |
| 2651 | tst = VG_(get_ThreadState)(tid); |
| 2652 | |
fitzhardinge | e1c06d8 | 2003-10-30 07:21:44 +0000 | [diff] [blame] | 2653 | /* Erk. If the exec fails, then the following will have made a |
| 2654 | mess of things which makes it hard for us to continue. The |
| 2655 | right thing to do is piece everything together again in |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 2656 | POST(execve), but that's close to impossible. Instead, we make |
| 2657 | an effort to check that the execve will work before actually |
| 2658 | doing it. */ |
fitzhardinge | e1c06d8 | 2003-10-30 07:21:44 +0000 | [diff] [blame] | 2659 | |
njn | 7375061 | 2005-10-14 03:11:30 +0000 | [diff] [blame] | 2660 | /* Check that the name at least begins in client-accessible storage. */ |
sewardj | 0642127 | 2009-11-05 08:55:13 +0000 | [diff] [blame] | 2661 | if (ARG1 == 0 /* obviously bogus */ |
| 2662 | || !VG_(am_is_valid_for_client)( ARG1, 1, VKI_PROT_READ )) { |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 2663 | SET_STATUS_Failure( VKI_EFAULT ); |
| 2664 | return; |
| 2665 | } |
| 2666 | |
sewardj | 9ab64a4 | 2010-12-06 11:40:04 +0000 | [diff] [blame] | 2667 | // debug-only printing |
| 2668 | if (0) { |
| 2669 | VG_(printf)("ARG1 = %p(%s)\n", (void*)ARG1, (HChar*)ARG1); |
| 2670 | if (ARG2) { |
| 2671 | VG_(printf)("ARG2 = "); |
| 2672 | Int q; |
| 2673 | HChar** vec = (HChar**)ARG2; |
| 2674 | for (q = 0; vec[q]; q++) |
| 2675 | VG_(printf)("%p(%s) ", vec[q], vec[q]); |
| 2676 | VG_(printf)("\n"); |
| 2677 | } else { |
| 2678 | VG_(printf)("ARG2 = null\n"); |
| 2679 | } |
| 2680 | } |
| 2681 | |
sewardj | 0642127 | 2009-11-05 08:55:13 +0000 | [diff] [blame] | 2682 | // Decide whether or not we want to follow along |
sewardj | 9ab64a4 | 2010-12-06 11:40:04 +0000 | [diff] [blame] | 2683 | { // Make 'child_argv' be a pointer to the child's arg vector |
| 2684 | // (skipping the exe name) |
| 2685 | HChar** child_argv = (HChar**)ARG2; |
| 2686 | if (child_argv && child_argv[0] == NULL) |
| 2687 | child_argv = NULL; |
| 2688 | trace_this_child = VG_(should_we_trace_this_child)( (HChar*)ARG1, child_argv ); |
| 2689 | } |
sewardj | 0642127 | 2009-11-05 08:55:13 +0000 | [diff] [blame] | 2690 | |
njn | 7375061 | 2005-10-14 03:11:30 +0000 | [diff] [blame] | 2691 | // Do the important checks: it is a file, is executable, permissions are |
sewardj | c74b3ba | 2007-11-17 21:11:57 +0000 | [diff] [blame] | 2692 | // ok, etc. We allow setuid executables to run only in the case when |
| 2693 | // we are not simulating them, that is, they to be run natively. |
sewardj | 0642127 | 2009-11-05 08:55:13 +0000 | [diff] [blame] | 2694 | setuid_allowed = trace_this_child ? False : True; |
florian | e543f30 | 2012-10-21 19:43:43 +0000 | [diff] [blame] | 2695 | res = VG_(pre_exec_check)((const HChar *)ARG1, NULL, setuid_allowed); |
njn | cda2f0f | 2009-05-18 02:12:08 +0000 | [diff] [blame] | 2696 | if (sr_isError(res)) { |
| 2697 | SET_STATUS_Failure( sr_Err(res) ); |
njn | 7375061 | 2005-10-14 03:11:30 +0000 | [diff] [blame] | 2698 | return; |
| 2699 | } |
| 2700 | |
sewardj | 98e68a4 | 2005-10-04 23:07:33 +0000 | [diff] [blame] | 2701 | /* If we're tracing the child, and the launcher name looks bogus |
| 2702 | (possibly because launcher.c couldn't figure it out, see |
| 2703 | comments therein) then we have no option but to fail. */ |
sewardj | 0642127 | 2009-11-05 08:55:13 +0000 | [diff] [blame] | 2704 | if (trace_this_child |
sewardj | 98e68a4 | 2005-10-04 23:07:33 +0000 | [diff] [blame] | 2705 | && (VG_(name_of_launcher) == NULL |
| 2706 | || VG_(name_of_launcher)[0] != '/')) { |
| 2707 | SET_STATUS_Failure( VKI_ECHILD ); /* "No child processes" */ |
| 2708 | return; |
| 2709 | } |
| 2710 | |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 2711 | /* After this point, we can't recover if the execve fails. */ |
florian | 19f91bb | 2012-11-10 22:29:54 +0000 | [diff] [blame] | 2712 | VG_(debugLog)(1, "syswrap", "Exec of %s\n", (HChar*)ARG1); |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 2713 | |
sewardj | 997546c | 2011-05-17 18:14:53 +0000 | [diff] [blame] | 2714 | |
| 2715 | // Terminate gdbserver if it is active. |
| 2716 | if (VG_(clo_vgdb) != Vg_VgdbNo) { |
| 2717 | // If the child will not be traced, we need to terminate gdbserver |
| 2718 | // to cleanup the gdbserver resources (e.g. the FIFO files). |
| 2719 | // If child will be traced, we also terminate gdbserver: the new |
| 2720 | // Valgrind will start a fresh gdbserver after exec. |
| 2721 | VG_(gdbserver) (0); |
| 2722 | } |
| 2723 | |
fitzhardinge | e1c06d8 | 2003-10-30 07:21:44 +0000 | [diff] [blame] | 2724 | /* Resistance is futile. Nuke all other threads. POSIX mandates |
| 2725 | this. (Really, nuke them all, since the new process will make |
| 2726 | its own new thread.) */ |
sewardj | ef1cf8b | 2006-10-17 01:47:30 +0000 | [diff] [blame] | 2727 | VG_(nuke_all_threads_except)( tid, VgSrc_ExitThread ); |
njn | 7b85dd5 | 2005-06-12 17:26:29 +0000 | [diff] [blame] | 2728 | VG_(reap_threads)(tid); |
sewardj | b5f6f51 | 2005-03-10 23:59:00 +0000 | [diff] [blame] | 2729 | |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 2730 | // Set up the child's exe path. |
| 2731 | // |
sewardj | 0642127 | 2009-11-05 08:55:13 +0000 | [diff] [blame] | 2732 | if (trace_this_child) { |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 2733 | |
| 2734 | // We want to exec the launcher. Get its pre-remembered path. |
| 2735 | path = VG_(name_of_launcher); |
| 2736 | // VG_(name_of_launcher) should have been acquired by m_main at |
| 2737 | // startup. |
| 2738 | vg_assert(path); |
| 2739 | |
| 2740 | launcher_basename = VG_(strrchr)(path, '/'); |
| 2741 | if (launcher_basename == NULL || launcher_basename[1] == 0) { |
| 2742 | launcher_basename = path; // hmm, tres dubious |
| 2743 | } else { |
| 2744 | launcher_basename++; |
| 2745 | } |
| 2746 | |
| 2747 | } else { |
florian | 19f91bb | 2012-11-10 22:29:54 +0000 | [diff] [blame] | 2748 | path = (HChar*)ARG1; |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 2749 | } |
| 2750 | |
| 2751 | // Set up the child's environment. |
| 2752 | // |
tom | 4e13695 | 2005-07-18 14:02:11 +0000 | [diff] [blame] | 2753 | // Remove the valgrind-specific stuff from the environment so the |
njn | 7b4e5ba | 2005-08-25 22:53:57 +0000 | [diff] [blame] | 2754 | // child doesn't get vgpreload_core.so, vgpreload_<tool>.so, etc. |
tom | 4e13695 | 2005-07-18 14:02:11 +0000 | [diff] [blame] | 2755 | // This is done unconditionally, since if we are tracing the child, |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 2756 | // the child valgrind will set up the appropriate client environment. |
njn | 1110699 | 2005-07-18 14:10:12 +0000 | [diff] [blame] | 2757 | // Nb: we make a copy of the environment before trying to mangle it |
| 2758 | // as it might be in read-only memory (this was bug #101881). |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 2759 | // |
| 2760 | // Then, if tracing the child, set VALGRIND_LIB for it. |
| 2761 | // |
| 2762 | if (ARG3 == 0) { |
| 2763 | envp = NULL; |
| 2764 | } else { |
florian | 19f91bb | 2012-11-10 22:29:54 +0000 | [diff] [blame] | 2765 | envp = VG_(env_clone)( (HChar**)ARG3 ); |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 2766 | if (envp == NULL) goto hosed; |
tom | 4e13695 | 2005-07-18 14:02:11 +0000 | [diff] [blame] | 2767 | VG_(env_remove_valgrind_env_stuff)( envp ); |
fitzhardinge | 5408c06 | 2004-01-04 23:52:59 +0000 | [diff] [blame] | 2768 | } |
| 2769 | |
sewardj | 0642127 | 2009-11-05 08:55:13 +0000 | [diff] [blame] | 2770 | if (trace_this_child) { |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 2771 | // Set VALGRIND_LIB in ARG3 (the environment) |
| 2772 | VG_(env_setenv)( &envp, VALGRIND_LIB, VG_(libdir)); |
fitzhardinge | 98abfc7 | 2003-12-16 02:05:15 +0000 | [diff] [blame] | 2773 | } |
| 2774 | |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 2775 | // Set up the child's args. If not tracing it, they are |
| 2776 | // simply ARG2. Otherwise, they are |
| 2777 | // |
| 2778 | // [launcher_basename] ++ VG_(args_for_valgrind) ++ [ARG1] ++ ARG2[1..] |
| 2779 | // |
| 2780 | // except that the first VG_(args_for_valgrind_noexecpass) args |
| 2781 | // are omitted. |
| 2782 | // |
sewardj | 0642127 | 2009-11-05 08:55:13 +0000 | [diff] [blame] | 2783 | if (!trace_this_child) { |
florian | 19f91bb | 2012-11-10 22:29:54 +0000 | [diff] [blame] | 2784 | argv = (HChar**)ARG2; |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 2785 | } else { |
sewardj | 14c7cc5 | 2007-02-25 15:08:24 +0000 | [diff] [blame] | 2786 | vg_assert( VG_(args_for_valgrind) ); |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 2787 | vg_assert( VG_(args_for_valgrind_noexecpass) >= 0 ); |
| 2788 | vg_assert( VG_(args_for_valgrind_noexecpass) |
sewardj | 14c7cc5 | 2007-02-25 15:08:24 +0000 | [diff] [blame] | 2789 | <= VG_(sizeXA)( VG_(args_for_valgrind) ) ); |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 2790 | /* how many args in total will there be? */ |
| 2791 | // launcher basename |
| 2792 | tot_args = 1; |
| 2793 | // V's args |
sewardj | 14c7cc5 | 2007-02-25 15:08:24 +0000 | [diff] [blame] | 2794 | tot_args += VG_(sizeXA)( VG_(args_for_valgrind) ); |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 2795 | tot_args -= VG_(args_for_valgrind_noexecpass); |
| 2796 | // name of client exe |
| 2797 | tot_args++; |
| 2798 | // args for client exe, skipping [0] |
florian | 19f91bb | 2012-11-10 22:29:54 +0000 | [diff] [blame] | 2799 | arg2copy = (HChar**)ARG2; |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 2800 | if (arg2copy && arg2copy[0]) { |
| 2801 | for (i = 1; arg2copy[i]; i++) |
| 2802 | tot_args++; |
| 2803 | } |
| 2804 | // allocate |
sewardj | 9c606bd | 2008-09-18 18:12:50 +0000 | [diff] [blame] | 2805 | argv = VG_(malloc)( "di.syswrap.pre_sys_execve.1", |
| 2806 | (tot_args+1) * sizeof(HChar*) ); |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 2807 | if (argv == 0) goto hosed; |
| 2808 | // copy |
| 2809 | j = 0; |
| 2810 | argv[j++] = launcher_basename; |
sewardj | 14c7cc5 | 2007-02-25 15:08:24 +0000 | [diff] [blame] | 2811 | for (i = 0; i < VG_(sizeXA)( VG_(args_for_valgrind) ); i++) { |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 2812 | if (i < VG_(args_for_valgrind_noexecpass)) |
| 2813 | continue; |
sewardj | 14c7cc5 | 2007-02-25 15:08:24 +0000 | [diff] [blame] | 2814 | argv[j++] = * (HChar**) VG_(indexXA)( VG_(args_for_valgrind), i ); |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 2815 | } |
florian | 19f91bb | 2012-11-10 22:29:54 +0000 | [diff] [blame] | 2816 | argv[j++] = (HChar*)ARG1; |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 2817 | if (arg2copy && arg2copy[0]) |
| 2818 | for (i = 1; arg2copy[i]; i++) |
| 2819 | argv[j++] = arg2copy[i]; |
| 2820 | argv[j++] = NULL; |
| 2821 | // check |
| 2822 | vg_assert(j == tot_args+1); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 2823 | } |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 2824 | |
sewardj | b5f6f51 | 2005-03-10 23:59:00 +0000 | [diff] [blame] | 2825 | /* restore the DATA rlimit for the child */ |
| 2826 | VG_(setrlimit)(VKI_RLIMIT_DATA, &VG_(client_rlimit_data)); |
| 2827 | |
| 2828 | /* |
| 2829 | Set the signal state up for exec. |
| 2830 | |
| 2831 | We need to set the real signal state to make sure the exec'd |
| 2832 | process gets SIG_IGN properly. |
| 2833 | |
| 2834 | Also set our real sigmask to match the client's sigmask so that |
| 2835 | the exec'd child will get the right mask. First we need to |
| 2836 | clear out any pending signals so they they don't get delivered, |
| 2837 | which would confuse things. |
fitzhardinge | f0dd7e1 | 2004-01-16 02:17:30 +0000 | [diff] [blame] | 2838 | |
| 2839 | XXX This is a bug - the signals should remain pending, and be |
| 2840 | delivered to the new process after exec. There's also a |
| 2841 | race-condition, since if someone delivers us a signal between |
| 2842 | the sigprocmask and the execve, we'll still get the signal. Oh |
| 2843 | well. |
| 2844 | */ |
| 2845 | { |
nethercote | 73b526f | 2004-10-31 18:48:21 +0000 | [diff] [blame] | 2846 | vki_sigset_t allsigs; |
| 2847 | vki_siginfo_t info; |
sewardj | b5f6f51 | 2005-03-10 23:59:00 +0000 | [diff] [blame] | 2848 | |
njn | cda2f0f | 2009-05-18 02:12:08 +0000 | [diff] [blame] | 2849 | /* What this loop does: it queries SCSS (the signal state that |
| 2850 | the client _thinks_ the kernel is in) by calling |
| 2851 | VG_(do_sys_sigaction), and modifies the real kernel signal |
| 2852 | state accordingly. */ |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 2853 | for (i = 1; i < VG_(max_signal); i++) { |
njn | cda2f0f | 2009-05-18 02:12:08 +0000 | [diff] [blame] | 2854 | vki_sigaction_fromK_t sa_f; |
| 2855 | vki_sigaction_toK_t sa_t; |
| 2856 | VG_(do_sys_sigaction)(i, NULL, &sa_f); |
| 2857 | VG_(convert_sigaction_fromK_to_toK)(&sa_f, &sa_t); |
| 2858 | if (sa_t.ksa_handler == VKI_SIG_IGN) |
| 2859 | VG_(sigaction)(i, &sa_t, NULL); |
sewardj | b5f6f51 | 2005-03-10 23:59:00 +0000 | [diff] [blame] | 2860 | else { |
njn | cda2f0f | 2009-05-18 02:12:08 +0000 | [diff] [blame] | 2861 | sa_t.ksa_handler = VKI_SIG_DFL; |
| 2862 | VG_(sigaction)(i, &sa_t, NULL); |
sewardj | b5f6f51 | 2005-03-10 23:59:00 +0000 | [diff] [blame] | 2863 | } |
| 2864 | } |
| 2865 | |
nethercote | 73b526f | 2004-10-31 18:48:21 +0000 | [diff] [blame] | 2866 | VG_(sigfillset)(&allsigs); |
sewardj | ef1cf8b | 2006-10-17 01:47:30 +0000 | [diff] [blame] | 2867 | while(VG_(sigtimedwait_zero)(&allsigs, &info) > 0) |
sewardj | b5f6f51 | 2005-03-10 23:59:00 +0000 | [diff] [blame] | 2868 | ; |
fitzhardinge | f0dd7e1 | 2004-01-16 02:17:30 +0000 | [diff] [blame] | 2869 | |
nethercote | 73b526f | 2004-10-31 18:48:21 +0000 | [diff] [blame] | 2870 | VG_(sigprocmask)(VKI_SIG_SETMASK, &tst->sig_mask, NULL); |
fitzhardinge | f0dd7e1 | 2004-01-16 02:17:30 +0000 | [diff] [blame] | 2871 | } |
| 2872 | |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 2873 | if (0) { |
florian | 19f91bb | 2012-11-10 22:29:54 +0000 | [diff] [blame] | 2874 | HChar **cpp; |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 2875 | VG_(printf)("exec: %s\n", path); |
| 2876 | for (cpp = argv; cpp && *cpp; cpp++) |
| 2877 | VG_(printf)("argv: %s\n", *cpp); |
| 2878 | if (0) |
| 2879 | for (cpp = envp; cpp && *cpp; cpp++) |
| 2880 | VG_(printf)("env: %s\n", *cpp); |
| 2881 | } |
| 2882 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 2883 | SET_STATUS_from_SysRes( |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 2884 | VG_(do_syscall3)(__NR_execve, (UWord)path, (UWord)argv, (UWord)envp) |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 2885 | ); |
fitzhardinge | b50068f | 2004-02-24 23:42:55 +0000 | [diff] [blame] | 2886 | |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 2887 | /* If we got here, then the execve failed. We've already made way |
| 2888 | too much of a mess to continue, so we have to abort. */ |
| 2889 | hosed: |
tom | dc294c3 | 2005-08-16 10:19:58 +0000 | [diff] [blame] | 2890 | vg_assert(FAILURE); |
sewardj | 738856f | 2009-07-15 14:48:32 +0000 | [diff] [blame] | 2891 | VG_(message)(Vg_UserMsg, "execve(%#lx(%s), %#lx, %#lx) failed, errno %ld\n", |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 2892 | ARG1, (char*)ARG1, ARG2, ARG3, ERR); |
sewardj | b5f6f51 | 2005-03-10 23:59:00 +0000 | [diff] [blame] | 2893 | VG_(message)(Vg_UserMsg, "EXEC FAILED: I can't recover from " |
sewardj | 738856f | 2009-07-15 14:48:32 +0000 | [diff] [blame] | 2894 | "execve() failing, so I'm dying.\n"); |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 2895 | VG_(message)(Vg_UserMsg, "Add more stringent tests in PRE(sys_execve), " |
sewardj | 738856f | 2009-07-15 14:48:32 +0000 | [diff] [blame] | 2896 | "or work out how to recover.\n"); |
sewardj | b5f6f51 | 2005-03-10 23:59:00 +0000 | [diff] [blame] | 2897 | VG_(exit)(101); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 2898 | } |
| 2899 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 2900 | PRE(sys_access) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 2901 | { |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 2902 | PRINT("sys_access ( %#lx(%s), %ld )", ARG1,(char*)ARG1,ARG2); |
nethercote | 9a3beb9 | 2004-11-12 17:07:26 +0000 | [diff] [blame] | 2903 | PRE_REG_READ2(long, "access", const char *, pathname, int, mode); |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 2904 | PRE_MEM_RASCIIZ( "access(pathname)", ARG1 ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 2905 | } |
| 2906 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 2907 | PRE(sys_alarm) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 2908 | { |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 2909 | PRINT("sys_alarm ( %ld )", ARG1); |
nethercote | 9a3beb9 | 2004-11-12 17:07:26 +0000 | [diff] [blame] | 2910 | PRE_REG_READ1(unsigned long, "alarm", unsigned int, seconds); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 2911 | } |
| 2912 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 2913 | PRE(sys_brk) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 2914 | { |
fitzhardinge | 98abfc7 | 2003-12-16 02:05:15 +0000 | [diff] [blame] | 2915 | Addr brk_limit = VG_(brk_limit); |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 2916 | Addr brk_new; |
fitzhardinge | 98abfc7 | 2003-12-16 02:05:15 +0000 | [diff] [blame] | 2917 | |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 2918 | /* libc says: int brk(void *end_data_segment); |
| 2919 | kernel says: void* brk(void* end_data_segment); (more or less) |
| 2920 | |
| 2921 | libc returns 0 on success, and -1 (and sets errno) on failure. |
| 2922 | Nb: if you ask to shrink the dataseg end below what it |
| 2923 | currently is, that always succeeds, even if the dataseg end |
| 2924 | doesn't actually change (eg. brk(0)). Unless it seg faults. |
| 2925 | |
| 2926 | Kernel returns the new dataseg end. If the brk() failed, this |
| 2927 | will be unchanged from the old one. That's why calling (kernel) |
| 2928 | brk(0) gives the current dataseg end (libc brk() just returns |
| 2929 | zero in that case). |
| 2930 | |
| 2931 | Both will seg fault if you shrink it back into a text segment. |
| 2932 | */ |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 2933 | PRINT("sys_brk ( %#lx )", ARG1); |
nethercote | 9c311eb | 2004-11-12 18:20:12 +0000 | [diff] [blame] | 2934 | PRE_REG_READ1(unsigned long, "brk", unsigned long, end_data_segment); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 2935 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 2936 | brk_new = do_brk(ARG1); |
| 2937 | SET_STATUS_Success( brk_new ); |
fitzhardinge | 98abfc7 | 2003-12-16 02:05:15 +0000 | [diff] [blame] | 2938 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 2939 | if (brk_new == ARG1) { |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 2940 | /* brk() succeeded */ |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 2941 | if (brk_new < brk_limit) { |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 2942 | /* successfully shrunk the data segment. */ |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 2943 | VG_TRACK( die_mem_brk, (Addr)ARG1, |
| 2944 | brk_limit-ARG1 ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 2945 | } else |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 2946 | if (brk_new > brk_limit) { |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 2947 | /* successfully grew the data segment */ |
fitzhardinge | 98abfc7 | 2003-12-16 02:05:15 +0000 | [diff] [blame] | 2948 | VG_TRACK( new_mem_brk, brk_limit, |
sewardj | 7cf4e6b | 2008-05-01 20:24:26 +0000 | [diff] [blame] | 2949 | ARG1-brk_limit, tid ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 2950 | } |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 2951 | } else { |
| 2952 | /* brk() failed */ |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 2953 | vg_assert(brk_limit == brk_new); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 2954 | } |
| 2955 | } |
| 2956 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 2957 | PRE(sys_chdir) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 2958 | { |
sewardj | cc3de2d | 2011-08-18 15:08:20 +0000 | [diff] [blame] | 2959 | FUSE_COMPATIBLE_MAY_BLOCK(); |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 2960 | PRINT("sys_chdir ( %#lx(%s) )", ARG1,(char*)ARG1); |
nethercote | c6851dd | 2004-11-11 18:00:47 +0000 | [diff] [blame] | 2961 | PRE_REG_READ1(long, "chdir", const char *, path); |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 2962 | PRE_MEM_RASCIIZ( "chdir(path)", ARG1 ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 2963 | } |
| 2964 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 2965 | PRE(sys_chmod) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 2966 | { |
sewardj | cc3de2d | 2011-08-18 15:08:20 +0000 | [diff] [blame] | 2967 | FUSE_COMPATIBLE_MAY_BLOCK(); |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 2968 | PRINT("sys_chmod ( %#lx(%s), %ld )", ARG1,(char*)ARG1,ARG2); |
nethercote | c6851dd | 2004-11-11 18:00:47 +0000 | [diff] [blame] | 2969 | PRE_REG_READ2(long, "chmod", const char *, path, vki_mode_t, mode); |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 2970 | PRE_MEM_RASCIIZ( "chmod(path)", ARG1 ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 2971 | } |
| 2972 | |
sewardj | e6d5e72 | 2005-06-10 10:27:55 +0000 | [diff] [blame] | 2973 | PRE(sys_chown) |
| 2974 | { |
sewardj | cc3de2d | 2011-08-18 15:08:20 +0000 | [diff] [blame] | 2975 | FUSE_COMPATIBLE_MAY_BLOCK(); |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 2976 | PRINT("sys_chown ( %#lx(%s), 0x%lx, 0x%lx )", ARG1,(char*)ARG1,ARG2,ARG3); |
sewardj | e6d5e72 | 2005-06-10 10:27:55 +0000 | [diff] [blame] | 2977 | PRE_REG_READ3(long, "chown", |
| 2978 | const char *, path, vki_uid_t, owner, vki_gid_t, group); |
| 2979 | PRE_MEM_RASCIIZ( "chown(path)", ARG1 ); |
| 2980 | } |
| 2981 | |
| 2982 | PRE(sys_lchown) |
| 2983 | { |
sewardj | cc3de2d | 2011-08-18 15:08:20 +0000 | [diff] [blame] | 2984 | FUSE_COMPATIBLE_MAY_BLOCK(); |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 2985 | PRINT("sys_lchown ( %#lx(%s), 0x%lx, 0x%lx )", ARG1,(char*)ARG1,ARG2,ARG3); |
sewardj | e6d5e72 | 2005-06-10 10:27:55 +0000 | [diff] [blame] | 2986 | PRE_REG_READ3(long, "lchown", |
| 2987 | const char *, path, vki_uid_t, owner, vki_gid_t, group); |
| 2988 | PRE_MEM_RASCIIZ( "lchown(path)", ARG1 ); |
| 2989 | } |
nethercote | 2e1c37d | 2004-11-13 13:57:12 +0000 | [diff] [blame] | 2990 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 2991 | PRE(sys_close) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 2992 | { |
sewardj | cc3de2d | 2011-08-18 15:08:20 +0000 | [diff] [blame] | 2993 | FUSE_COMPATIBLE_MAY_BLOCK(); |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 2994 | PRINT("sys_close ( %ld )", ARG1); |
nethercote | c6851dd | 2004-11-11 18:00:47 +0000 | [diff] [blame] | 2995 | PRE_REG_READ1(long, "close", unsigned int, fd); |
| 2996 | |
nethercote | f854867 | 2004-06-21 12:42:35 +0000 | [diff] [blame] | 2997 | /* Detect and negate attempts by the client to close Valgrind's log fd */ |
sewardj | 9da79d1 | 2007-01-13 22:27:51 +0000 | [diff] [blame] | 2998 | if ( (!ML_(fd_allowed)(ARG1, "close", tid, False)) |
| 2999 | /* If doing -d style logging (which is to fd=2), don't |
| 3000 | allow that to be closed either. */ |
| 3001 | || (ARG1 == 2/*stderr*/ && VG_(debugLog_getLevel)() > 0) ) |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3002 | SET_STATUS_Failure( VKI_EBADF ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3003 | } |
| 3004 | |
nethercote | 85a456f | 2004-11-16 17:31:56 +0000 | [diff] [blame] | 3005 | POST(sys_close) |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 3006 | { |
njn | 1dcee09 | 2009-02-24 03:07:37 +0000 | [diff] [blame] | 3007 | if (VG_(clo_track_fds)) record_fd_close(ARG1); |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 3008 | } |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3009 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3010 | PRE(sys_dup) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3011 | { |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 3012 | PRINT("sys_dup ( %ld )", ARG1); |
nethercote | 9a3beb9 | 2004-11-12 17:07:26 +0000 | [diff] [blame] | 3013 | PRE_REG_READ1(long, "dup", unsigned int, oldfd); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3014 | } |
| 3015 | |
nethercote | 85a456f | 2004-11-16 17:31:56 +0000 | [diff] [blame] | 3016 | POST(sys_dup) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3017 | { |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3018 | vg_assert(SUCCESS); |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 3019 | if (!ML_(fd_allowed)(RES, "dup", tid, True)) { |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 3020 | VG_(close)(RES); |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3021 | SET_STATUS_Failure( VKI_EMFILE ); |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 3022 | } else { |
nethercote | 9a3beb9 | 2004-11-12 17:07:26 +0000 | [diff] [blame] | 3023 | if (VG_(clo_track_fds)) |
njn | 096ccdd | 2009-02-22 23:00:30 +0000 | [diff] [blame] | 3024 | ML_(record_fd_open_named)(tid, RES); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3025 | } |
| 3026 | } |
| 3027 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3028 | PRE(sys_dup2) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3029 | { |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 3030 | PRINT("sys_dup2 ( %ld, %ld )", ARG1,ARG2); |
nethercote | 71f05f3 | 2004-11-12 18:49:27 +0000 | [diff] [blame] | 3031 | PRE_REG_READ2(long, "dup2", unsigned int, oldfd, unsigned int, newfd); |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 3032 | if (!ML_(fd_allowed)(ARG2, "dup2", tid, True)) |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3033 | SET_STATUS_Failure( VKI_EBADF ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3034 | } |
| 3035 | |
nethercote | 85a456f | 2004-11-16 17:31:56 +0000 | [diff] [blame] | 3036 | POST(sys_dup2) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3037 | { |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3038 | vg_assert(SUCCESS); |
nethercote | 71f05f3 | 2004-11-12 18:49:27 +0000 | [diff] [blame] | 3039 | if (VG_(clo_track_fds)) |
njn | 096ccdd | 2009-02-22 23:00:30 +0000 | [diff] [blame] | 3040 | ML_(record_fd_open_named)(tid, RES); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3041 | } |
| 3042 | |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 3043 | PRE(sys_fchdir) |
| 3044 | { |
sewardj | cc3de2d | 2011-08-18 15:08:20 +0000 | [diff] [blame] | 3045 | FUSE_COMPATIBLE_MAY_BLOCK(); |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 3046 | PRINT("sys_fchdir ( %ld )", ARG1); |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 3047 | PRE_REG_READ1(long, "fchdir", unsigned int, fd); |
| 3048 | } |
| 3049 | |
sewardj | e6d5e72 | 2005-06-10 10:27:55 +0000 | [diff] [blame] | 3050 | PRE(sys_fchown) |
| 3051 | { |
sewardj | cc3de2d | 2011-08-18 15:08:20 +0000 | [diff] [blame] | 3052 | FUSE_COMPATIBLE_MAY_BLOCK(); |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 3053 | PRINT("sys_fchown ( %ld, %ld, %ld )", ARG1,ARG2,ARG3); |
sewardj | e6d5e72 | 2005-06-10 10:27:55 +0000 | [diff] [blame] | 3054 | PRE_REG_READ3(long, "fchown", |
| 3055 | unsigned int, fd, vki_uid_t, owner, vki_gid_t, group); |
| 3056 | } |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 3057 | |
| 3058 | PRE(sys_fchmod) |
| 3059 | { |
sewardj | cc3de2d | 2011-08-18 15:08:20 +0000 | [diff] [blame] | 3060 | FUSE_COMPATIBLE_MAY_BLOCK(); |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 3061 | PRINT("sys_fchmod ( %ld, %ld )", ARG1,ARG2); |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 3062 | PRE_REG_READ2(long, "fchmod", unsigned int, fildes, vki_mode_t, mode); |
| 3063 | } |
| 3064 | |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 3065 | PRE(sys_newfstat) |
| 3066 | { |
sewardj | cc3de2d | 2011-08-18 15:08:20 +0000 | [diff] [blame] | 3067 | FUSE_COMPATIBLE_MAY_BLOCK(); |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 3068 | PRINT("sys_newfstat ( %ld, %#lx )", ARG1,ARG2); |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 3069 | PRE_REG_READ2(long, "fstat", unsigned int, fd, struct stat *, buf); |
| 3070 | PRE_MEM_WRITE( "fstat(buf)", ARG2, sizeof(struct vki_stat) ); |
| 3071 | } |
| 3072 | |
| 3073 | POST(sys_newfstat) |
| 3074 | { |
| 3075 | POST_MEM_WRITE( ARG2, sizeof(struct vki_stat) ); |
| 3076 | } |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3077 | |
nethercote | 73b526f | 2004-10-31 18:48:21 +0000 | [diff] [blame] | 3078 | static vki_sigset_t fork_saved_mask; |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3079 | |
nethercote | 75a8c98 | 2004-11-11 19:03:34 +0000 | [diff] [blame] | 3080 | // In Linux, the sys_fork() function varies across architectures, but we |
| 3081 | // ignore the various args it gets, and so it looks arch-neutral. Hmm. |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3082 | PRE(sys_fork) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3083 | { |
njn | 58bbd94 | 2009-05-21 23:59:34 +0000 | [diff] [blame] | 3084 | Bool is_child; |
| 3085 | Int child_pid; |
nethercote | 73b526f | 2004-10-31 18:48:21 +0000 | [diff] [blame] | 3086 | vki_sigset_t mask; |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3087 | |
nethercote | 75a8c98 | 2004-11-11 19:03:34 +0000 | [diff] [blame] | 3088 | PRINT("sys_fork ( )"); |
| 3089 | PRE_REG_READ0(long, "fork"); |
| 3090 | |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3091 | /* Block all signals during fork, so that we can fix things up in |
| 3092 | the child without being interrupted. */ |
nethercote | 73b526f | 2004-10-31 18:48:21 +0000 | [diff] [blame] | 3093 | VG_(sigfillset)(&mask); |
| 3094 | VG_(sigprocmask)(VKI_SIG_SETMASK, &mask, &fork_saved_mask); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3095 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3096 | SET_STATUS_from_SysRes( VG_(do_syscall0)(__NR_fork) ); |
sewardj | b5f6f51 | 2005-03-10 23:59:00 +0000 | [diff] [blame] | 3097 | |
njn | cda2f0f | 2009-05-18 02:12:08 +0000 | [diff] [blame] | 3098 | if (!SUCCESS) return; |
| 3099 | |
sewardj | 6e9de46 | 2011-06-28 07:25:29 +0000 | [diff] [blame] | 3100 | #if defined(VGO_linux) |
njn | 58bbd94 | 2009-05-21 23:59:34 +0000 | [diff] [blame] | 3101 | // RES is 0 for child, non-0 (the child's PID) for parent. |
| 3102 | is_child = ( RES == 0 ? True : False ); |
| 3103 | child_pid = ( is_child ? -1 : RES ); |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 3104 | #elif defined(VGO_darwin) |
| 3105 | // RES is the child's pid. RESHI is 1 for child, 0 for parent. |
| 3106 | is_child = RESHI; |
| 3107 | child_pid = RES; |
| 3108 | #else |
| 3109 | # error Unknown OS |
| 3110 | #endif |
njn | cda2f0f | 2009-05-18 02:12:08 +0000 | [diff] [blame] | 3111 | |
njn | e9ba34a | 2008-10-13 04:19:15 +0000 | [diff] [blame] | 3112 | VG_(do_atfork_pre)(tid); |
| 3113 | |
njn | 58bbd94 | 2009-05-21 23:59:34 +0000 | [diff] [blame] | 3114 | if (is_child) { |
sewardj | b5f6f51 | 2005-03-10 23:59:00 +0000 | [diff] [blame] | 3115 | VG_(do_atfork_child)(tid); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3116 | |
| 3117 | /* restore signal mask */ |
nethercote | 73b526f | 2004-10-31 18:48:21 +0000 | [diff] [blame] | 3118 | VG_(sigprocmask)(VKI_SIG_SETMASK, &fork_saved_mask, NULL); |
sewardj | 6e31f80 | 2007-11-17 22:29:25 +0000 | [diff] [blame] | 3119 | |
| 3120 | /* If --child-silent-after-fork=yes was specified, set the |
sewardj | 738856f | 2009-07-15 14:48:32 +0000 | [diff] [blame] | 3121 | output file descriptors to 'impossible' values. This is |
sewardj | 6e31f80 | 2007-11-17 22:29:25 +0000 | [diff] [blame] | 3122 | noticed by send_bytes_to_logging_sink in m_libcprint.c, which |
sewardj | 738856f | 2009-07-15 14:48:32 +0000 | [diff] [blame] | 3123 | duly stops writing any further output. */ |
| 3124 | if (VG_(clo_child_silent_after_fork)) { |
| 3125 | if (!VG_(log_output_sink).is_socket) |
| 3126 | VG_(log_output_sink).fd = -1; |
| 3127 | if (!VG_(xml_output_sink).is_socket) |
| 3128 | VG_(xml_output_sink).fd = -1; |
| 3129 | } |
njn | 58bbd94 | 2009-05-21 23:59:34 +0000 | [diff] [blame] | 3130 | |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 3131 | } else { |
njn | e9ba34a | 2008-10-13 04:19:15 +0000 | [diff] [blame] | 3132 | VG_(do_atfork_parent)(tid); |
| 3133 | |
njn | 58bbd94 | 2009-05-21 23:59:34 +0000 | [diff] [blame] | 3134 | PRINT(" fork: process %d created child %d\n", VG_(getpid)(), child_pid); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3135 | |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3136 | /* restore signal mask */ |
nethercote | 73b526f | 2004-10-31 18:48:21 +0000 | [diff] [blame] | 3137 | VG_(sigprocmask)(VKI_SIG_SETMASK, &fork_saved_mask, NULL); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3138 | } |
| 3139 | } |
| 3140 | |
sewardj | 8c25732 | 2005-06-08 01:01:48 +0000 | [diff] [blame] | 3141 | PRE(sys_ftruncate) |
| 3142 | { |
| 3143 | *flags |= SfMayBlock; |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 3144 | PRINT("sys_ftruncate ( %ld, %ld )", ARG1,ARG2); |
sewardj | 8c25732 | 2005-06-08 01:01:48 +0000 | [diff] [blame] | 3145 | PRE_REG_READ2(long, "ftruncate", unsigned int, fd, unsigned long, length); |
| 3146 | } |
| 3147 | |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 3148 | PRE(sys_truncate) |
| 3149 | { |
| 3150 | *flags |= SfMayBlock; |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 3151 | PRINT("sys_truncate ( %#lx(%s), %ld )", ARG1,(char*)ARG1,ARG2); |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 3152 | PRE_REG_READ2(long, "truncate", |
| 3153 | const char *, path, unsigned long, length); |
| 3154 | PRE_MEM_RASCIIZ( "truncate(path)", ARG1 ); |
| 3155 | } |
| 3156 | |
sewardj | e6d5e72 | 2005-06-10 10:27:55 +0000 | [diff] [blame] | 3157 | PRE(sys_ftruncate64) |
| 3158 | { |
| 3159 | *flags |= SfMayBlock; |
njn | 89d43f7 | 2009-05-24 23:02:55 +0000 | [diff] [blame] | 3160 | #if VG_WORDSIZE == 4 |
tom | ca78724 | 2009-11-25 11:24:00 +0000 | [diff] [blame] | 3161 | PRINT("sys_ftruncate64 ( %ld, %lld )", ARG1, MERGE64(ARG2,ARG3)); |
sewardj | e6d5e72 | 2005-06-10 10:27:55 +0000 | [diff] [blame] | 3162 | PRE_REG_READ3(long, "ftruncate64", |
| 3163 | unsigned int, fd, |
tom | ca78724 | 2009-11-25 11:24:00 +0000 | [diff] [blame] | 3164 | UWord, MERGE64_FIRST(length), UWord, MERGE64_SECOND(length)); |
njn | 89d43f7 | 2009-05-24 23:02:55 +0000 | [diff] [blame] | 3165 | #else |
| 3166 | PRINT("sys_ftruncate64 ( %ld, %lld )", ARG1, (Long)ARG2); |
| 3167 | PRE_REG_READ2(long, "ftruncate64", |
| 3168 | unsigned int,fd, UWord,length); |
sewardj | e6d5e72 | 2005-06-10 10:27:55 +0000 | [diff] [blame] | 3169 | #endif |
njn | 89d43f7 | 2009-05-24 23:02:55 +0000 | [diff] [blame] | 3170 | } |
sewardj | e6d5e72 | 2005-06-10 10:27:55 +0000 | [diff] [blame] | 3171 | |
sewardj | e6d5e72 | 2005-06-10 10:27:55 +0000 | [diff] [blame] | 3172 | PRE(sys_truncate64) |
| 3173 | { |
| 3174 | *flags |= SfMayBlock; |
njn | 89d43f7 | 2009-05-24 23:02:55 +0000 | [diff] [blame] | 3175 | #if VG_WORDSIZE == 4 |
tom | ca78724 | 2009-11-25 11:24:00 +0000 | [diff] [blame] | 3176 | PRINT("sys_truncate64 ( %#lx, %lld )", ARG1, (Long)MERGE64(ARG2, ARG3)); |
sewardj | e6d5e72 | 2005-06-10 10:27:55 +0000 | [diff] [blame] | 3177 | PRE_REG_READ3(long, "truncate64", |
| 3178 | const char *, path, |
tom | ca78724 | 2009-11-25 11:24:00 +0000 | [diff] [blame] | 3179 | UWord, MERGE64_FIRST(length), UWord, MERGE64_SECOND(length)); |
njn | 89d43f7 | 2009-05-24 23:02:55 +0000 | [diff] [blame] | 3180 | #else |
| 3181 | PRINT("sys_truncate64 ( %#lx, %lld )", ARG1, (Long)ARG2); |
| 3182 | PRE_REG_READ2(long, "truncate64", |
| 3183 | const char *,path, UWord,length); |
| 3184 | #endif |
sewardj | e6d5e72 | 2005-06-10 10:27:55 +0000 | [diff] [blame] | 3185 | PRE_MEM_RASCIIZ( "truncate64(path)", ARG1 ); |
| 3186 | } |
sewardj | 78b50e4 | 2005-06-08 01:47:28 +0000 | [diff] [blame] | 3187 | |
| 3188 | PRE(sys_getdents) |
| 3189 | { |
| 3190 | *flags |= SfMayBlock; |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 3191 | PRINT("sys_getdents ( %ld, %#lx, %ld )", ARG1,ARG2,ARG3); |
sewardj | 78b50e4 | 2005-06-08 01:47:28 +0000 | [diff] [blame] | 3192 | PRE_REG_READ3(long, "getdents", |
| 3193 | unsigned int, fd, struct linux_dirent *, dirp, |
| 3194 | unsigned int, count); |
| 3195 | PRE_MEM_WRITE( "getdents(dirp)", ARG2, ARG3 ); |
| 3196 | } |
| 3197 | |
| 3198 | POST(sys_getdents) |
| 3199 | { |
| 3200 | vg_assert(SUCCESS); |
| 3201 | if (RES > 0) |
| 3202 | POST_MEM_WRITE( ARG2, RES ); |
| 3203 | } |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3204 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3205 | PRE(sys_getdents64) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3206 | { |
sewardj | 78b50e4 | 2005-06-08 01:47:28 +0000 | [diff] [blame] | 3207 | *flags |= SfMayBlock; |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 3208 | PRINT("sys_getdents64 ( %ld, %#lx, %ld )",ARG1,ARG2,ARG3); |
nethercote | 06c7bd7 | 2004-11-14 19:11:56 +0000 | [diff] [blame] | 3209 | PRE_REG_READ3(long, "getdents64", |
| 3210 | unsigned int, fd, struct linux_dirent64 *, dirp, |
| 3211 | unsigned int, count); |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 3212 | PRE_MEM_WRITE( "getdents64(dirp)", ARG2, ARG3 ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3213 | } |
| 3214 | |
nethercote | 85a456f | 2004-11-16 17:31:56 +0000 | [diff] [blame] | 3215 | POST(sys_getdents64) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3216 | { |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3217 | vg_assert(SUCCESS); |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 3218 | if (RES > 0) |
| 3219 | POST_MEM_WRITE( ARG2, RES ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3220 | } |
| 3221 | |
sewardj | 78b50e4 | 2005-06-08 01:47:28 +0000 | [diff] [blame] | 3222 | PRE(sys_getgroups) |
| 3223 | { |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 3224 | PRINT("sys_getgroups ( %ld, %#lx )", ARG1, ARG2); |
sewardj | 78b50e4 | 2005-06-08 01:47:28 +0000 | [diff] [blame] | 3225 | PRE_REG_READ2(long, "getgroups", int, size, vki_gid_t *, list); |
| 3226 | if (ARG1 > 0) |
| 3227 | PRE_MEM_WRITE( "getgroups(list)", ARG2, ARG1 * sizeof(vki_gid_t) ); |
| 3228 | } |
| 3229 | |
| 3230 | POST(sys_getgroups) |
| 3231 | { |
| 3232 | vg_assert(SUCCESS); |
| 3233 | if (ARG1 > 0 && RES > 0) |
| 3234 | POST_MEM_WRITE( ARG2, RES * sizeof(vki_gid_t) ); |
| 3235 | } |
nethercote | 686b5db | 2004-11-14 13:42:51 +0000 | [diff] [blame] | 3236 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3237 | PRE(sys_getcwd) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3238 | { |
njn | 4b70e8c | 2005-08-14 17:36:07 +0000 | [diff] [blame] | 3239 | // Comment from linux/fs/dcache.c: |
| 3240 | // NOTE! The user-level library version returns a character pointer. |
| 3241 | // The kernel system call just returns the length of the buffer filled |
| 3242 | // (which includes the ending '\0' character), or a negative error |
| 3243 | // value. |
| 3244 | // Is this Linux-specific? If so it should be moved to syswrap-linux.c. |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 3245 | PRINT("sys_getcwd ( %#lx, %llu )", ARG1,(ULong)ARG2); |
nethercote | ac866b9 | 2004-11-15 20:23:15 +0000 | [diff] [blame] | 3246 | PRE_REG_READ2(long, "getcwd", char *, buf, unsigned long, size); |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 3247 | PRE_MEM_WRITE( "getcwd(buf)", ARG1, ARG2 ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3248 | } |
| 3249 | |
nethercote | 85a456f | 2004-11-16 17:31:56 +0000 | [diff] [blame] | 3250 | POST(sys_getcwd) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3251 | { |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3252 | vg_assert(SUCCESS); |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 3253 | if (RES != (Addr)NULL) |
| 3254 | POST_MEM_WRITE( ARG1, RES ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3255 | } |
| 3256 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3257 | PRE(sys_geteuid) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3258 | { |
nethercote | 0df495a | 2004-11-11 16:38:21 +0000 | [diff] [blame] | 3259 | PRINT("sys_geteuid ( )"); |
| 3260 | PRE_REG_READ0(long, "geteuid"); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3261 | } |
| 3262 | |
sewardj | 78b50e4 | 2005-06-08 01:47:28 +0000 | [diff] [blame] | 3263 | PRE(sys_getegid) |
| 3264 | { |
| 3265 | PRINT("sys_getegid ( )"); |
| 3266 | PRE_REG_READ0(long, "getegid"); |
| 3267 | } |
| 3268 | |
sewardj | 78b50e4 | 2005-06-08 01:47:28 +0000 | [diff] [blame] | 3269 | PRE(sys_getgid) |
| 3270 | { |
| 3271 | PRINT("sys_getgid ( )"); |
| 3272 | PRE_REG_READ0(long, "getgid"); |
| 3273 | } |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3274 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3275 | PRE(sys_getpid) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3276 | { |
nethercote | 4e632c2 | 2004-11-09 16:45:33 +0000 | [diff] [blame] | 3277 | PRINT("sys_getpid ()"); |
| 3278 | PRE_REG_READ0(long, "getpid"); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3279 | } |
| 3280 | |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 3281 | PRE(sys_getpgid) |
| 3282 | { |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 3283 | PRINT("sys_getpgid ( %ld )", ARG1); |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 3284 | PRE_REG_READ1(long, "getpgid", vki_pid_t, pid); |
| 3285 | } |
sewardj | 78b50e4 | 2005-06-08 01:47:28 +0000 | [diff] [blame] | 3286 | |
| 3287 | PRE(sys_getpgrp) |
| 3288 | { |
| 3289 | PRINT("sys_getpgrp ()"); |
| 3290 | PRE_REG_READ0(long, "getpgrp"); |
| 3291 | } |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3292 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3293 | PRE(sys_getppid) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3294 | { |
nethercote | 4e632c2 | 2004-11-09 16:45:33 +0000 | [diff] [blame] | 3295 | PRINT("sys_getppid ()"); |
| 3296 | PRE_REG_READ0(long, "getppid"); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3297 | } |
| 3298 | |
njn | cf45fd4 | 2004-11-24 16:30:22 +0000 | [diff] [blame] | 3299 | static void common_post_getrlimit(ThreadId tid, UWord a1, UWord a2) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3300 | { |
nethercote | 620154f | 2004-11-12 21:21:07 +0000 | [diff] [blame] | 3301 | POST_MEM_WRITE( a2, sizeof(struct vki_rlimit) ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3302 | |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 3303 | #ifdef _RLIMIT_POSIX_FLAG |
| 3304 | // Darwin will sometimes set _RLIMIT_POSIX_FLAG on getrlimit calls. |
| 3305 | // Unset it here to make the switch case below work correctly. |
| 3306 | a1 &= ~_RLIMIT_POSIX_FLAG; |
| 3307 | #endif |
| 3308 | |
nethercote | 620154f | 2004-11-12 21:21:07 +0000 | [diff] [blame] | 3309 | switch (a1) { |
| 3310 | case VKI_RLIMIT_NOFILE: |
| 3311 | ((struct vki_rlimit *)a2)->rlim_cur = VG_(fd_soft_limit); |
| 3312 | ((struct vki_rlimit *)a2)->rlim_max = VG_(fd_hard_limit); |
| 3313 | break; |
nethercote | 535f03b | 2004-02-15 15:32:51 +0000 | [diff] [blame] | 3314 | |
nethercote | 620154f | 2004-11-12 21:21:07 +0000 | [diff] [blame] | 3315 | case VKI_RLIMIT_DATA: |
| 3316 | *((struct vki_rlimit *)a2) = VG_(client_rlimit_data); |
| 3317 | break; |
fitzhardinge | b50068f | 2004-02-24 23:42:55 +0000 | [diff] [blame] | 3318 | |
nethercote | 620154f | 2004-11-12 21:21:07 +0000 | [diff] [blame] | 3319 | case VKI_RLIMIT_STACK: |
| 3320 | *((struct vki_rlimit *)a2) = VG_(client_rlimit_stack); |
| 3321 | break; |
njn | 89d43f7 | 2009-05-24 23:02:55 +0000 | [diff] [blame] | 3322 | } |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3323 | } |
| 3324 | |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 3325 | PRE(sys_old_getrlimit) |
| 3326 | { |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 3327 | PRINT("sys_old_getrlimit ( %ld, %#lx )", ARG1,ARG2); |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 3328 | PRE_REG_READ2(long, "old_getrlimit", |
| 3329 | unsigned int, resource, struct rlimit *, rlim); |
| 3330 | PRE_MEM_WRITE( "old_getrlimit(rlim)", ARG2, sizeof(struct vki_rlimit) ); |
| 3331 | } |
| 3332 | |
| 3333 | POST(sys_old_getrlimit) |
| 3334 | { |
| 3335 | common_post_getrlimit(tid, ARG1, ARG2); |
| 3336 | } |
nethercote | 620154f | 2004-11-12 21:21:07 +0000 | [diff] [blame] | 3337 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3338 | PRE(sys_getrlimit) |
nethercote | 620154f | 2004-11-12 21:21:07 +0000 | [diff] [blame] | 3339 | { |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 3340 | PRINT("sys_getrlimit ( %ld, %#lx )", ARG1,ARG2); |
nethercote | 620154f | 2004-11-12 21:21:07 +0000 | [diff] [blame] | 3341 | PRE_REG_READ2(long, "getrlimit", |
| 3342 | unsigned int, resource, struct rlimit *, rlim); |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 3343 | PRE_MEM_WRITE( "getrlimit(rlim)", ARG2, sizeof(struct vki_rlimit) ); |
nethercote | 620154f | 2004-11-12 21:21:07 +0000 | [diff] [blame] | 3344 | } |
| 3345 | |
nethercote | 85a456f | 2004-11-16 17:31:56 +0000 | [diff] [blame] | 3346 | POST(sys_getrlimit) |
nethercote | 620154f | 2004-11-12 21:21:07 +0000 | [diff] [blame] | 3347 | { |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 3348 | common_post_getrlimit(tid, ARG1, ARG2); |
nethercote | 620154f | 2004-11-12 21:21:07 +0000 | [diff] [blame] | 3349 | } |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3350 | |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 3351 | PRE(sys_getrusage) |
| 3352 | { |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 3353 | PRINT("sys_getrusage ( %ld, %#lx )", ARG1,ARG2); |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 3354 | PRE_REG_READ2(long, "getrusage", int, who, struct rusage *, usage); |
| 3355 | PRE_MEM_WRITE( "getrusage(usage)", ARG2, sizeof(struct vki_rusage) ); |
| 3356 | } |
| 3357 | |
| 3358 | POST(sys_getrusage) |
| 3359 | { |
| 3360 | vg_assert(SUCCESS); |
| 3361 | if (RES == 0) |
| 3362 | POST_MEM_WRITE( ARG2, sizeof(struct vki_rusage) ); |
| 3363 | } |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3364 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3365 | PRE(sys_gettimeofday) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3366 | { |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 3367 | PRINT("sys_gettimeofday ( %#lx, %#lx )", ARG1,ARG2); |
nethercote | 686b5db | 2004-11-14 13:42:51 +0000 | [diff] [blame] | 3368 | PRE_REG_READ2(long, "gettimeofday", |
| 3369 | struct timeval *, tv, struct timezone *, tz); |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 3370 | // GrP fixme does darwin write to *tz anymore? |
njn | 72bbd8d | 2009-05-22 08:12:46 +0000 | [diff] [blame] | 3371 | if (ARG1 != 0) |
| 3372 | PRE_timeval_WRITE( "gettimeofday(tv)", ARG1 ); |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 3373 | if (ARG2 != 0) |
| 3374 | PRE_MEM_WRITE( "gettimeofday(tz)", ARG2, sizeof(struct vki_timezone) ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3375 | } |
| 3376 | |
nethercote | 85a456f | 2004-11-16 17:31:56 +0000 | [diff] [blame] | 3377 | POST(sys_gettimeofday) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3378 | { |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3379 | vg_assert(SUCCESS); |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 3380 | if (RES == 0) { |
njn | 72bbd8d | 2009-05-22 08:12:46 +0000 | [diff] [blame] | 3381 | if (ARG1 != 0) |
| 3382 | POST_timeval_WRITE( ARG1 ); |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 3383 | if (ARG2 != 0) |
| 3384 | POST_MEM_WRITE( ARG2, sizeof(struct vki_timezone) ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3385 | } |
| 3386 | } |
| 3387 | |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 3388 | PRE(sys_settimeofday) |
| 3389 | { |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 3390 | PRINT("sys_settimeofday ( %#lx, %#lx )", ARG1,ARG2); |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 3391 | PRE_REG_READ2(long, "settimeofday", |
| 3392 | struct timeval *, tv, struct timezone *, tz); |
njn | 72bbd8d | 2009-05-22 08:12:46 +0000 | [diff] [blame] | 3393 | if (ARG1 != 0) |
njn | da8549d | 2009-05-25 01:48:59 +0000 | [diff] [blame] | 3394 | PRE_timeval_READ( "settimeofday(tv)", ARG1 ); |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 3395 | if (ARG2 != 0) { |
| 3396 | PRE_MEM_READ( "settimeofday(tz)", ARG2, sizeof(struct vki_timezone) ); |
| 3397 | /* maybe should warn if tz->tz_dsttime is non-zero? */ |
| 3398 | } |
| 3399 | } |
nethercote | 686b5db | 2004-11-14 13:42:51 +0000 | [diff] [blame] | 3400 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3401 | PRE(sys_getuid) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3402 | { |
nethercote | 0df495a | 2004-11-11 16:38:21 +0000 | [diff] [blame] | 3403 | PRINT("sys_getuid ( )"); |
| 3404 | PRE_REG_READ0(long, "getuid"); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3405 | } |
| 3406 | |
njn | 1be9cf6 | 2009-05-22 00:15:06 +0000 | [diff] [blame] | 3407 | void ML_(PRE_unknown_ioctl)(ThreadId tid, UWord request, UWord arg) |
| 3408 | { |
| 3409 | /* We don't have any specific information on it, so |
| 3410 | try to do something reasonable based on direction and |
| 3411 | size bits. The encoding scheme is described in |
| 3412 | /usr/include/asm/ioctl.h or /usr/include/sys/ioccom.h . |
| 3413 | |
| 3414 | According to Simon Hausmann, _IOC_READ means the kernel |
| 3415 | writes a value to the ioctl value passed from the user |
| 3416 | space and the other way around with _IOC_WRITE. */ |
| 3417 | |
| 3418 | UInt dir = _VKI_IOC_DIR(request); |
| 3419 | UInt size = _VKI_IOC_SIZE(request); |
| 3420 | if (VG_(strstr)(VG_(clo_sim_hints), "lax-ioctls") != NULL) { |
| 3421 | /* |
| 3422 | * Be very lax about ioctl handling; the only |
| 3423 | * assumption is that the size is correct. Doesn't |
| 3424 | * require the full buffer to be initialized when |
| 3425 | * writing. Without this, using some device |
| 3426 | * drivers with a large number of strange ioctl |
| 3427 | * commands becomes very tiresome. |
| 3428 | */ |
| 3429 | } else if (/* size == 0 || */ dir == _VKI_IOC_NONE) { |
| 3430 | //VG_(message)(Vg_UserMsg, "UNKNOWN ioctl %#lx\n", request); |
| 3431 | //VG_(get_and_pp_StackTrace)(tid, VG_(clo_backtrace_size)); |
| 3432 | static Int moans = 3; |
| 3433 | if (moans > 0 && !VG_(clo_xml)) { |
| 3434 | moans--; |
sewardj | 738856f | 2009-07-15 14:48:32 +0000 | [diff] [blame] | 3435 | VG_(umsg)("Warning: noted but unhandled ioctl 0x%lx" |
| 3436 | " with no size/direction hints\n", request); |
| 3437 | VG_(umsg)(" This could cause spurious value errors to appear.\n"); |
| 3438 | VG_(umsg)(" See README_MISSING_SYSCALL_OR_IOCTL for " |
| 3439 | "guidance on writing a proper wrapper.\n" ); |
njn | 1be9cf6 | 2009-05-22 00:15:06 +0000 | [diff] [blame] | 3440 | } |
| 3441 | } else { |
| 3442 | //VG_(message)(Vg_UserMsg, "UNKNOWN ioctl %#lx\n", request); |
| 3443 | //VG_(get_and_pp_StackTrace)(tid, VG_(clo_backtrace_size)); |
| 3444 | if ((dir & _VKI_IOC_WRITE) && size > 0) |
| 3445 | PRE_MEM_READ( "ioctl(generic)", arg, size); |
| 3446 | if ((dir & _VKI_IOC_READ) && size > 0) |
| 3447 | PRE_MEM_WRITE( "ioctl(generic)", arg, size); |
| 3448 | } |
| 3449 | } |
| 3450 | |
| 3451 | void ML_(POST_unknown_ioctl)(ThreadId tid, UInt res, UWord request, UWord arg) |
| 3452 | { |
| 3453 | /* We don't have any specific information on it, so |
| 3454 | try to do something reasonable based on direction and |
| 3455 | size bits. The encoding scheme is described in |
| 3456 | /usr/include/asm/ioctl.h or /usr/include/sys/ioccom.h . |
| 3457 | |
| 3458 | According to Simon Hausmann, _IOC_READ means the kernel |
| 3459 | writes a value to the ioctl value passed from the user |
| 3460 | space and the other way around with _IOC_WRITE. */ |
| 3461 | |
| 3462 | UInt dir = _VKI_IOC_DIR(request); |
| 3463 | UInt size = _VKI_IOC_SIZE(request); |
| 3464 | if (size > 0 && (dir & _VKI_IOC_READ) |
| 3465 | && res == 0 |
| 3466 | && arg != (Addr)NULL) |
| 3467 | { |
| 3468 | POST_MEM_WRITE(arg, size); |
| 3469 | } |
| 3470 | } |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3471 | |
njn | 03f1e58 | 2005-03-26 20:08:06 +0000 | [diff] [blame] | 3472 | /* |
| 3473 | If we're sending a SIGKILL to one of our own threads, then simulate |
| 3474 | it rather than really sending the signal, so that the target thread |
| 3475 | gets a chance to clean up. Returns True if we did the killing (or |
| 3476 | no killing is necessary), and False if the caller should use the |
| 3477 | normal kill syscall. |
| 3478 | |
| 3479 | "pid" is any pid argument which can be passed to kill; group kills |
| 3480 | (< -1, 0), and owner kills (-1) are ignored, on the grounds that |
| 3481 | they'll most likely hit all the threads and we won't need to worry |
| 3482 | about cleanup. In truth, we can't fully emulate these multicast |
| 3483 | kills. |
| 3484 | |
| 3485 | "tgid" is a thread group id. If it is not -1, then the target |
| 3486 | thread must be in that thread group. |
| 3487 | */ |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 3488 | Bool ML_(do_sigkill)(Int pid, Int tgid) |
njn | 03f1e58 | 2005-03-26 20:08:06 +0000 | [diff] [blame] | 3489 | { |
| 3490 | ThreadState *tst; |
| 3491 | ThreadId tid; |
| 3492 | |
| 3493 | if (pid <= 0) |
| 3494 | return False; |
| 3495 | |
sewardj | 4278172 | 2006-12-17 19:36:06 +0000 | [diff] [blame] | 3496 | tid = VG_(lwpid_to_vgtid)(pid); |
njn | 03f1e58 | 2005-03-26 20:08:06 +0000 | [diff] [blame] | 3497 | if (tid == VG_INVALID_THREADID) |
| 3498 | return False; /* none of our threads */ |
| 3499 | |
| 3500 | tst = VG_(get_ThreadState)(tid); |
| 3501 | if (tst == NULL || tst->status == VgTs_Empty) |
| 3502 | return False; /* hm, shouldn't happen */ |
| 3503 | |
| 3504 | if (tgid != -1 && tst->os_state.threadgroup != tgid) |
| 3505 | return False; /* not the right thread group */ |
| 3506 | |
| 3507 | /* Check to see that the target isn't already exiting. */ |
| 3508 | if (!VG_(is_exiting)(tid)) { |
| 3509 | if (VG_(clo_trace_signals)) |
sewardj | 738856f | 2009-07-15 14:48:32 +0000 | [diff] [blame] | 3510 | VG_(message)(Vg_DebugMsg, |
| 3511 | "Thread %d being killed with SIGKILL\n", |
| 3512 | tst->tid); |
njn | 03f1e58 | 2005-03-26 20:08:06 +0000 | [diff] [blame] | 3513 | |
| 3514 | tst->exitreason = VgSrc_FatalSig; |
| 3515 | tst->os_state.fatalsig = VKI_SIGKILL; |
| 3516 | |
| 3517 | if (!VG_(is_running_thread)(tid)) |
sewardj | ef1cf8b | 2006-10-17 01:47:30 +0000 | [diff] [blame] | 3518 | VG_(get_thread_out_of_syscall)(tid); |
njn | 03f1e58 | 2005-03-26 20:08:06 +0000 | [diff] [blame] | 3519 | } |
| 3520 | |
| 3521 | return True; |
| 3522 | } |
| 3523 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3524 | PRE(sys_kill) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3525 | { |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 3526 | PRINT("sys_kill ( %ld, %ld )", ARG1,ARG2); |
nethercote | 9a3beb9 | 2004-11-12 17:07:26 +0000 | [diff] [blame] | 3527 | PRE_REG_READ2(long, "kill", int, pid, int, sig); |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 3528 | if (!ML_(client_signal_OK)(ARG2)) { |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3529 | SET_STATUS_Failure( VKI_EINVAL ); |
njn | 03f1e58 | 2005-03-26 20:08:06 +0000 | [diff] [blame] | 3530 | return; |
| 3531 | } |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3532 | |
njn | 03f1e58 | 2005-03-26 20:08:06 +0000 | [diff] [blame] | 3533 | /* If we're sending SIGKILL, check to see if the target is one of |
| 3534 | our threads and handle it specially. */ |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 3535 | if (ARG2 == VKI_SIGKILL && ML_(do_sigkill)(ARG1, -1)) |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3536 | SET_STATUS_Success(0); |
njn | 03f1e58 | 2005-03-26 20:08:06 +0000 | [diff] [blame] | 3537 | else |
njn | cda2f0f | 2009-05-18 02:12:08 +0000 | [diff] [blame] | 3538 | /* re syscall3: Darwin has a 3rd arg, which is a flag (boolean) |
| 3539 | affecting how posix-compliant the call is. I guess it is |
| 3540 | harmless to pass the 3rd arg on other platforms; hence pass |
| 3541 | it on all. */ |
| 3542 | SET_STATUS_from_SysRes( VG_(do_syscall3)(SYSNO, ARG1, ARG2, ARG3) ); |
njn | 03f1e58 | 2005-03-26 20:08:06 +0000 | [diff] [blame] | 3543 | |
sewardj | b5f6f51 | 2005-03-10 23:59:00 +0000 | [diff] [blame] | 3544 | if (VG_(clo_trace_signals)) |
sewardj | 738856f | 2009-07-15 14:48:32 +0000 | [diff] [blame] | 3545 | VG_(message)(Vg_DebugMsg, "kill: sent signal %ld to pid %ld\n", |
njn | 03f1e58 | 2005-03-26 20:08:06 +0000 | [diff] [blame] | 3546 | ARG2, ARG1); |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3547 | |
| 3548 | /* This kill might have given us a pending signal. Ask for a check once |
| 3549 | the syscall is done. */ |
| 3550 | *flags |= SfPollAfter; |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3551 | } |
| 3552 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3553 | PRE(sys_link) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3554 | { |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3555 | *flags |= SfMayBlock; |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 3556 | PRINT("sys_link ( %#lx(%s), %#lx(%s) )", ARG1,(char*)ARG1,ARG2,(char*)ARG2); |
nethercote | c6851dd | 2004-11-11 18:00:47 +0000 | [diff] [blame] | 3557 | PRE_REG_READ2(long, "link", const char *, oldpath, const char *, newpath); |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 3558 | PRE_MEM_RASCIIZ( "link(oldpath)", ARG1); |
| 3559 | PRE_MEM_RASCIIZ( "link(newpath)", ARG2); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3560 | } |
| 3561 | |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 3562 | PRE(sys_newlstat) |
| 3563 | { |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 3564 | PRINT("sys_newlstat ( %#lx(%s), %#lx )", ARG1,(char*)ARG1,ARG2); |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 3565 | PRE_REG_READ2(long, "lstat", char *, file_name, struct stat *, buf); |
| 3566 | PRE_MEM_RASCIIZ( "lstat(file_name)", ARG1 ); |
| 3567 | PRE_MEM_WRITE( "lstat(buf)", ARG2, sizeof(struct vki_stat) ); |
| 3568 | } |
| 3569 | |
| 3570 | POST(sys_newlstat) |
| 3571 | { |
| 3572 | vg_assert(SUCCESS); |
njn | 9331c7b | 2009-06-15 07:43:50 +0000 | [diff] [blame] | 3573 | POST_MEM_WRITE( ARG2, sizeof(struct vki_stat) ); |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 3574 | } |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3575 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3576 | PRE(sys_mkdir) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3577 | { |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3578 | *flags |= SfMayBlock; |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 3579 | PRINT("sys_mkdir ( %#lx(%s), %ld )", ARG1,(char*)ARG1,ARG2); |
nethercote | 9a3beb9 | 2004-11-12 17:07:26 +0000 | [diff] [blame] | 3580 | PRE_REG_READ2(long, "mkdir", const char *, pathname, int, mode); |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 3581 | PRE_MEM_RASCIIZ( "mkdir(pathname)", ARG1 ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3582 | } |
| 3583 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3584 | PRE(sys_mprotect) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3585 | { |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 3586 | PRINT("sys_mprotect ( %#lx, %llu, %ld )", ARG1,(ULong)ARG2,ARG3); |
nethercote | 06c7bd7 | 2004-11-14 19:11:56 +0000 | [diff] [blame] | 3587 | PRE_REG_READ3(long, "mprotect", |
| 3588 | unsigned long, addr, vki_size_t, len, unsigned long, prot); |
fitzhardinge | 98abfc7 | 2003-12-16 02:05:15 +0000 | [diff] [blame] | 3589 | |
tom | 6550519 | 2005-11-08 16:51:55 +0000 | [diff] [blame] | 3590 | if (!ML_(valid_client_addr)(ARG1, ARG2, tid, "mprotect")) { |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3591 | SET_STATUS_Failure( VKI_ENOMEM ); |
sewardj | 337556e | 2005-11-09 14:51:59 +0000 | [diff] [blame] | 3592 | } |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 3593 | #if defined(VKI_PROT_GROWSDOWN) |
sewardj | 337556e | 2005-11-09 14:51:59 +0000 | [diff] [blame] | 3594 | else |
| 3595 | if (ARG3 & (VKI_PROT_GROWSDOWN|VKI_PROT_GROWSUP)) { |
| 3596 | /* Deal with mprotects on growable stack areas. |
| 3597 | |
| 3598 | The critical files to understand all this are mm/mprotect.c |
| 3599 | in the kernel and sysdeps/unix/sysv/linux/dl-execstack.c in |
| 3600 | glibc. |
| 3601 | |
| 3602 | The kernel provides PROT_GROWSDOWN and PROT_GROWSUP which |
| 3603 | round the start/end address of mprotect to the start/end of |
| 3604 | the underlying vma and glibc uses that as an easy way to |
| 3605 | change the protection of the stack by calling mprotect on the |
| 3606 | last page of the stack with PROT_GROWSDOWN set. |
| 3607 | |
| 3608 | The sanity check provided by the kernel is that the vma must |
| 3609 | have the VM_GROWSDOWN/VM_GROWSUP flag set as appropriate. */ |
tom | 6550519 | 2005-11-08 16:51:55 +0000 | [diff] [blame] | 3610 | UInt grows = ARG3 & (VKI_PROT_GROWSDOWN|VKI_PROT_GROWSUP); |
sewardj | ef1cf8b | 2006-10-17 01:47:30 +0000 | [diff] [blame] | 3611 | NSegment const *aseg = VG_(am_find_nsegment)(ARG1); |
| 3612 | NSegment const *rseg; |
tom | 6550519 | 2005-11-08 16:51:55 +0000 | [diff] [blame] | 3613 | |
| 3614 | vg_assert(aseg); |
| 3615 | |
| 3616 | if (grows == VKI_PROT_GROWSDOWN) { |
florian | 3e79863 | 2012-11-24 19:41:54 +0000 | [diff] [blame] | 3617 | rseg = VG_(am_next_nsegment)( aseg, False/*backwards*/ ); |
tom | 6550519 | 2005-11-08 16:51:55 +0000 | [diff] [blame] | 3618 | if (rseg && |
| 3619 | rseg->kind == SkResvn && |
| 3620 | rseg->smode == SmUpper && |
| 3621 | rseg->end+1 == aseg->start) { |
| 3622 | Addr end = ARG1 + ARG2; |
| 3623 | ARG1 = aseg->start; |
| 3624 | ARG2 = end - aseg->start; |
| 3625 | ARG3 &= ~VKI_PROT_GROWSDOWN; |
| 3626 | } else { |
| 3627 | SET_STATUS_Failure( VKI_EINVAL ); |
| 3628 | } |
| 3629 | } else if (grows == VKI_PROT_GROWSUP) { |
florian | 3e79863 | 2012-11-24 19:41:54 +0000 | [diff] [blame] | 3630 | rseg = VG_(am_next_nsegment)( aseg, True/*forwards*/ ); |
tom | 6550519 | 2005-11-08 16:51:55 +0000 | [diff] [blame] | 3631 | if (rseg && |
| 3632 | rseg->kind == SkResvn && |
| 3633 | rseg->smode == SmLower && |
| 3634 | aseg->end+1 == rseg->start) { |
| 3635 | ARG2 = aseg->end - ARG1 + 1; |
| 3636 | ARG3 &= ~VKI_PROT_GROWSUP; |
| 3637 | } else { |
| 3638 | SET_STATUS_Failure( VKI_EINVAL ); |
| 3639 | } |
| 3640 | } else { |
sewardj | 337556e | 2005-11-09 14:51:59 +0000 | [diff] [blame] | 3641 | /* both GROWSUP and GROWSDOWN */ |
tom | 6550519 | 2005-11-08 16:51:55 +0000 | [diff] [blame] | 3642 | SET_STATUS_Failure( VKI_EINVAL ); |
| 3643 | } |
| 3644 | } |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 3645 | #endif // defined(VKI_PROT_GROWSDOWN) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3646 | } |
| 3647 | |
nethercote | 85a456f | 2004-11-16 17:31:56 +0000 | [diff] [blame] | 3648 | POST(sys_mprotect) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3649 | { |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 3650 | Addr a = ARG1; |
| 3651 | SizeT len = ARG2; |
| 3652 | Int prot = ARG3; |
nethercote | 27ea8bc | 2004-07-10 17:21:14 +0000 | [diff] [blame] | 3653 | |
njn | dd37258 | 2009-05-10 22:42:19 +0000 | [diff] [blame] | 3654 | ML_(notify_core_and_tool_of_mprotect)(a, len, prot); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3655 | } |
| 3656 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3657 | PRE(sys_munmap) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3658 | { |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 3659 | if (0) VG_(printf)(" munmap( %#lx )\n", ARG1); |
| 3660 | PRINT("sys_munmap ( %#lx, %llu )", ARG1,(ULong)ARG2); |
nethercote | 06c7bd7 | 2004-11-14 19:11:56 +0000 | [diff] [blame] | 3661 | PRE_REG_READ2(long, "munmap", unsigned long, start, vki_size_t, length); |
fitzhardinge | 98abfc7 | 2003-12-16 02:05:15 +0000 | [diff] [blame] | 3662 | |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 3663 | if (!ML_(valid_client_addr)(ARG1, ARG2, tid, "munmap")) |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3664 | SET_STATUS_Failure( VKI_EINVAL ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3665 | } |
| 3666 | |
nethercote | 85a456f | 2004-11-16 17:31:56 +0000 | [diff] [blame] | 3667 | POST(sys_munmap) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3668 | { |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 3669 | Addr a = ARG1; |
| 3670 | SizeT len = ARG2; |
nethercote | 27ea8bc | 2004-07-10 17:21:14 +0000 | [diff] [blame] | 3671 | |
njn | dd37258 | 2009-05-10 22:42:19 +0000 | [diff] [blame] | 3672 | ML_(notify_core_and_tool_of_munmap)( (Addr64)a, (ULong)len ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3673 | } |
| 3674 | |
sewardj | e6d5e72 | 2005-06-10 10:27:55 +0000 | [diff] [blame] | 3675 | PRE(sys_mincore) |
| 3676 | { |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 3677 | PRINT("sys_mincore ( %#lx, %llu, %#lx )", ARG1,(ULong)ARG2,ARG3); |
sewardj | e6d5e72 | 2005-06-10 10:27:55 +0000 | [diff] [blame] | 3678 | PRE_REG_READ3(long, "mincore", |
| 3679 | unsigned long, start, vki_size_t, length, |
| 3680 | unsigned char *, vec); |
njn | cdaec51 | 2005-06-30 00:16:02 +0000 | [diff] [blame] | 3681 | PRE_MEM_WRITE( "mincore(vec)", ARG3, VG_PGROUNDUP(ARG2) / VKI_PAGE_SIZE ); |
sewardj | e6d5e72 | 2005-06-10 10:27:55 +0000 | [diff] [blame] | 3682 | } |
| 3683 | POST(sys_mincore) |
| 3684 | { |
njn | cdaec51 | 2005-06-30 00:16:02 +0000 | [diff] [blame] | 3685 | POST_MEM_WRITE( ARG3, VG_PGROUNDUP(ARG2) / VKI_PAGE_SIZE ); |
sewardj | e6d5e72 | 2005-06-10 10:27:55 +0000 | [diff] [blame] | 3686 | } |
mueller | 6ceb231 | 2004-01-02 22:52:34 +0000 | [diff] [blame] | 3687 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3688 | PRE(sys_nanosleep) |
mueller | 6ceb231 | 2004-01-02 22:52:34 +0000 | [diff] [blame] | 3689 | { |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3690 | *flags |= SfMayBlock|SfPostOnFail; |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 3691 | PRINT("sys_nanosleep ( %#lx, %#lx )", ARG1,ARG2); |
nethercote | 5b653bc | 2004-11-15 14:32:12 +0000 | [diff] [blame] | 3692 | PRE_REG_READ2(long, "nanosleep", |
| 3693 | struct timespec *, req, struct timespec *, rem); |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 3694 | PRE_MEM_READ( "nanosleep(req)", ARG1, sizeof(struct vki_timespec) ); |
| 3695 | if (ARG2 != 0) |
| 3696 | PRE_MEM_WRITE( "nanosleep(rem)", ARG2, sizeof(struct vki_timespec) ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3697 | } |
| 3698 | |
nethercote | 85a456f | 2004-11-16 17:31:56 +0000 | [diff] [blame] | 3699 | POST(sys_nanosleep) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3700 | { |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3701 | vg_assert(SUCCESS || FAILURE); |
sewardj | ef1cf8b | 2006-10-17 01:47:30 +0000 | [diff] [blame] | 3702 | if (ARG2 != 0 && FAILURE && ERR == VKI_EINTR) |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 3703 | POST_MEM_WRITE( ARG2, sizeof(struct vki_timespec) ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3704 | } |
| 3705 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3706 | PRE(sys_open) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3707 | { |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 3708 | if (ARG2 & VKI_O_CREAT) { |
nethercote | e824cc4 | 2004-11-09 16:20:46 +0000 | [diff] [blame] | 3709 | // 3-arg version |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 3710 | PRINT("sys_open ( %#lx(%s), %ld, %ld )",ARG1,(char*)ARG1,ARG2,ARG3); |
nethercote | e824cc4 | 2004-11-09 16:20:46 +0000 | [diff] [blame] | 3711 | PRE_REG_READ3(long, "open", |
nethercote | 0df495a | 2004-11-11 16:38:21 +0000 | [diff] [blame] | 3712 | const char *, filename, int, flags, int, mode); |
nethercote | e70bd7d | 2004-08-18 14:37:17 +0000 | [diff] [blame] | 3713 | } else { |
nethercote | e824cc4 | 2004-11-09 16:20:46 +0000 | [diff] [blame] | 3714 | // 2-arg version |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 3715 | PRINT("sys_open ( %#lx(%s), %ld )",ARG1,(char*)ARG1,ARG2); |
nethercote | e824cc4 | 2004-11-09 16:20:46 +0000 | [diff] [blame] | 3716 | PRE_REG_READ2(long, "open", |
nethercote | 0df495a | 2004-11-11 16:38:21 +0000 | [diff] [blame] | 3717 | const char *, filename, int, flags); |
nethercote | e70bd7d | 2004-08-18 14:37:17 +0000 | [diff] [blame] | 3718 | } |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 3719 | PRE_MEM_RASCIIZ( "open(filename)", ARG1 ); |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 3720 | |
bart | 9b533f8 | 2009-08-25 20:15:41 +0000 | [diff] [blame] | 3721 | #if defined(VGO_linux) |
| 3722 | /* Handle the case where the open is of /proc/self/cmdline or |
| 3723 | /proc/<pid>/cmdline, and just give it a copy of the fd for the |
| 3724 | fake file we cooked up at startup (in m_main). Also, seek the |
| 3725 | cloned fd back to the start. */ |
njn | 70fa47d | 2009-05-24 22:32:33 +0000 | [diff] [blame] | 3726 | { |
| 3727 | HChar name[30]; |
florian | 19f91bb | 2012-11-10 22:29:54 +0000 | [diff] [blame] | 3728 | HChar* arg1s = (HChar*) ARG1; |
njn | 70fa47d | 2009-05-24 22:32:33 +0000 | [diff] [blame] | 3729 | SysRes sres; |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 3730 | |
njn | 70fa47d | 2009-05-24 22:32:33 +0000 | [diff] [blame] | 3731 | VG_(sprintf)(name, "/proc/%d/cmdline", VG_(getpid)()); |
| 3732 | if (ML_(safe_to_deref)( arg1s, 1 ) && |
| 3733 | (VG_STREQ(arg1s, name) || VG_STREQ(arg1s, "/proc/self/cmdline")) |
| 3734 | ) |
| 3735 | { |
| 3736 | sres = VG_(dup)( VG_(cl_cmdline_fd) ); |
| 3737 | SET_STATUS_from_SysRes( sres ); |
| 3738 | if (!sr_isError(sres)) { |
| 3739 | OffT off = VG_(lseek)( sr_Res(sres), 0, VKI_SEEK_SET ); |
| 3740 | if (off < 0) |
| 3741 | SET_STATUS_Failure( VKI_EMFILE ); |
| 3742 | } |
| 3743 | return; |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 3744 | } |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 3745 | } |
tom | 41ad7e7 | 2012-10-04 20:27:38 +0000 | [diff] [blame] | 3746 | |
| 3747 | /* Handle the case where the open is of /proc/self/auxv or |
| 3748 | /proc/<pid>/auxv, and just give it a copy of the fd for the |
| 3749 | fake file we cooked up at startup (in m_main). Also, seek the |
| 3750 | cloned fd back to the start. */ |
| 3751 | { |
| 3752 | HChar name[30]; |
florian | 19f91bb | 2012-11-10 22:29:54 +0000 | [diff] [blame] | 3753 | HChar* arg1s = (HChar*) ARG1; |
tom | 41ad7e7 | 2012-10-04 20:27:38 +0000 | [diff] [blame] | 3754 | SysRes sres; |
| 3755 | |
| 3756 | VG_(sprintf)(name, "/proc/%d/auxv", VG_(getpid)()); |
| 3757 | if (ML_(safe_to_deref)( arg1s, 1 ) && |
| 3758 | (VG_STREQ(arg1s, name) || VG_STREQ(arg1s, "/proc/self/auxv")) |
| 3759 | ) |
| 3760 | { |
| 3761 | sres = VG_(dup)( VG_(cl_auxv_fd) ); |
| 3762 | SET_STATUS_from_SysRes( sres ); |
| 3763 | if (!sr_isError(sres)) { |
| 3764 | OffT off = VG_(lseek)( sr_Res(sres), 0, VKI_SEEK_SET ); |
| 3765 | if (off < 0) |
| 3766 | SET_STATUS_Failure( VKI_EMFILE ); |
| 3767 | } |
| 3768 | return; |
| 3769 | } |
| 3770 | } |
bart | 9b533f8 | 2009-08-25 20:15:41 +0000 | [diff] [blame] | 3771 | #endif // defined(VGO_linux) |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 3772 | |
| 3773 | /* Otherwise handle normally */ |
| 3774 | *flags |= SfMayBlock; |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3775 | } |
| 3776 | |
nethercote | 85a456f | 2004-11-16 17:31:56 +0000 | [diff] [blame] | 3777 | POST(sys_open) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3778 | { |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3779 | vg_assert(SUCCESS); |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 3780 | if (!ML_(fd_allowed)(RES, "open", tid, True)) { |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 3781 | VG_(close)(RES); |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3782 | SET_STATUS_Failure( VKI_EMFILE ); |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 3783 | } else { |
nethercote | 493dd18 | 2004-02-24 23:57:47 +0000 | [diff] [blame] | 3784 | if (VG_(clo_track_fds)) |
florian | 19f91bb | 2012-11-10 22:29:54 +0000 | [diff] [blame] | 3785 | ML_(record_fd_open_with_given_name)(tid, RES, (HChar*)ARG1); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3786 | } |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3787 | } |
| 3788 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3789 | PRE(sys_read) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3790 | { |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3791 | *flags |= SfMayBlock; |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 3792 | PRINT("sys_read ( %ld, %#lx, %llu )", ARG1, ARG2, (ULong)ARG3); |
nethercote | 8b76fe5 | 2004-11-08 19:20:09 +0000 | [diff] [blame] | 3793 | PRE_REG_READ3(ssize_t, "read", |
njn | ca0518d | 2004-11-26 19:34:36 +0000 | [diff] [blame] | 3794 | unsigned int, fd, char *, buf, vki_size_t, count); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3795 | |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 3796 | if (!ML_(fd_allowed)(ARG1, "read", tid, False)) |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3797 | SET_STATUS_Failure( VKI_EBADF ); |
thughes | 26ab77b | 2004-08-14 12:10:49 +0000 | [diff] [blame] | 3798 | else |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 3799 | PRE_MEM_WRITE( "read(buf)", ARG2, ARG3 ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3800 | } |
| 3801 | |
nethercote | 85a456f | 2004-11-16 17:31:56 +0000 | [diff] [blame] | 3802 | POST(sys_read) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3803 | { |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3804 | vg_assert(SUCCESS); |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 3805 | POST_MEM_WRITE( ARG2, RES ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3806 | } |
| 3807 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3808 | PRE(sys_write) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3809 | { |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 3810 | Bool ok; |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3811 | *flags |= SfMayBlock; |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 3812 | PRINT("sys_write ( %ld, %#lx, %llu )", ARG1, ARG2, (ULong)ARG3); |
nethercote | 8b76fe5 | 2004-11-08 19:20:09 +0000 | [diff] [blame] | 3813 | PRE_REG_READ3(ssize_t, "write", |
njn | ca0518d | 2004-11-26 19:34:36 +0000 | [diff] [blame] | 3814 | unsigned int, fd, const char *, buf, vki_size_t, count); |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 3815 | /* check to see if it is allowed. If not, try for an exemption from |
njn | 628add6 | 2005-11-12 18:21:40 +0000 | [diff] [blame] | 3816 | --sim-hints=enable-outer (used for self hosting). */ |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 3817 | ok = ML_(fd_allowed)(ARG1, "write", tid, False); |
| 3818 | if (!ok && ARG1 == 2/*stderr*/ |
njn | 628add6 | 2005-11-12 18:21:40 +0000 | [diff] [blame] | 3819 | && VG_(strstr)(VG_(clo_sim_hints),"enable-outer")) |
sewardj | 45f4e7c | 2005-09-27 19:20:21 +0000 | [diff] [blame] | 3820 | ok = True; |
| 3821 | if (!ok) |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3822 | SET_STATUS_Failure( VKI_EBADF ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3823 | else |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 3824 | PRE_MEM_READ( "write(buf)", ARG2, ARG3 ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3825 | } |
| 3826 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3827 | PRE(sys_creat) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3828 | { |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3829 | *flags |= SfMayBlock; |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 3830 | PRINT("sys_creat ( %#lx(%s), %ld )", ARG1,(char*)ARG1,ARG2); |
nethercote | c6851dd | 2004-11-11 18:00:47 +0000 | [diff] [blame] | 3831 | PRE_REG_READ2(long, "creat", const char *, pathname, int, mode); |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 3832 | PRE_MEM_RASCIIZ( "creat(pathname)", ARG1 ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3833 | } |
| 3834 | |
nethercote | 85a456f | 2004-11-16 17:31:56 +0000 | [diff] [blame] | 3835 | POST(sys_creat) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3836 | { |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3837 | vg_assert(SUCCESS); |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 3838 | if (!ML_(fd_allowed)(RES, "creat", tid, True)) { |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 3839 | VG_(close)(RES); |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3840 | SET_STATUS_Failure( VKI_EMFILE ); |
rjwalsh | f5f536f | 2003-11-17 17:45:00 +0000 | [diff] [blame] | 3841 | } else { |
nethercote | 493dd18 | 2004-02-24 23:57:47 +0000 | [diff] [blame] | 3842 | if (VG_(clo_track_fds)) |
florian | 19f91bb | 2012-11-10 22:29:54 +0000 | [diff] [blame] | 3843 | ML_(record_fd_open_with_given_name)(tid, RES, (HChar*)ARG1); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3844 | } |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3845 | } |
| 3846 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3847 | PRE(sys_poll) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3848 | { |
| 3849 | /* struct pollfd { |
nethercote | ef0c766 | 2004-11-06 15:38:43 +0000 | [diff] [blame] | 3850 | int fd; -- file descriptor |
| 3851 | short events; -- requested events |
| 3852 | short revents; -- returned events |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3853 | }; |
nethercote | eb0592d | 2004-11-05 12:02:27 +0000 | [diff] [blame] | 3854 | int poll(struct pollfd *ufds, unsigned int nfds, int timeout) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3855 | */ |
nethercote | eb0592d | 2004-11-05 12:02:27 +0000 | [diff] [blame] | 3856 | UInt i; |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 3857 | struct vki_pollfd* ufds = (struct vki_pollfd *)ARG1; |
tom | 60a4b0b | 2005-10-12 10:45:27 +0000 | [diff] [blame] | 3858 | *flags |= SfMayBlock; |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 3859 | PRINT("sys_poll ( %#lx, %ld, %ld )\n", ARG1,ARG2,ARG3); |
nethercote | f90953e | 2004-11-15 14:50:02 +0000 | [diff] [blame] | 3860 | PRE_REG_READ3(long, "poll", |
tom | 363ec76 | 2006-03-21 10:58:35 +0000 | [diff] [blame] | 3861 | struct vki_pollfd *, ufds, unsigned int, nfds, long, timeout); |
| 3862 | |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 3863 | for (i = 0; i < ARG2; i++) { |
tom | 363ec76 | 2006-03-21 10:58:35 +0000 | [diff] [blame] | 3864 | PRE_MEM_READ( "poll(ufds.fd)", |
| 3865 | (Addr)(&ufds[i].fd), sizeof(ufds[i].fd) ); |
| 3866 | PRE_MEM_READ( "poll(ufds.events)", |
| 3867 | (Addr)(&ufds[i].events), sizeof(ufds[i].events) ); |
tom | 68f338f | 2014-02-09 11:10:08 +0000 | [diff] [blame] | 3868 | PRE_MEM_WRITE( "poll(ufds.revents)", |
tom | 363ec76 | 2006-03-21 10:58:35 +0000 | [diff] [blame] | 3869 | (Addr)(&ufds[i].revents), sizeof(ufds[i].revents) ); |
| 3870 | } |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3871 | } |
| 3872 | |
nethercote | 85a456f | 2004-11-16 17:31:56 +0000 | [diff] [blame] | 3873 | POST(sys_poll) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3874 | { |
sewardj | 416b206 | 2008-05-12 15:46:34 +0000 | [diff] [blame] | 3875 | if (RES >= 0) { |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3876 | UInt i; |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 3877 | struct vki_pollfd* ufds = (struct vki_pollfd *)ARG1; |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 3878 | for (i = 0; i < ARG2; i++) |
tom | 363ec76 | 2006-03-21 10:58:35 +0000 | [diff] [blame] | 3879 | POST_MEM_WRITE( (Addr)(&ufds[i].revents), sizeof(ufds[i].revents) ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3880 | } |
| 3881 | } |
| 3882 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3883 | PRE(sys_readlink) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3884 | { |
sewardj | cc3de2d | 2011-08-18 15:08:20 +0000 | [diff] [blame] | 3885 | FUSE_COMPATIBLE_MAY_BLOCK(); |
njn | cc1284f | 2009-05-23 01:51:54 +0000 | [diff] [blame] | 3886 | Word saved = SYSNO; |
sewardj | 144c56d | 2005-09-30 01:09:50 +0000 | [diff] [blame] | 3887 | |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 3888 | PRINT("sys_readlink ( %#lx(%s), %#lx, %llu )", ARG1,(char*)ARG1,ARG2,(ULong)ARG3); |
nethercote | 5a945af | 2004-11-14 18:37:07 +0000 | [diff] [blame] | 3889 | PRE_REG_READ3(long, "readlink", |
| 3890 | const char *, path, char *, buf, int, bufsiz); |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 3891 | PRE_MEM_RASCIIZ( "readlink(path)", ARG1 ); |
| 3892 | PRE_MEM_WRITE( "readlink(buf)", ARG2,ARG3 ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3893 | |
njn | cc1284f | 2009-05-23 01:51:54 +0000 | [diff] [blame] | 3894 | { |
bart | 9b533f8 | 2009-08-25 20:15:41 +0000 | [diff] [blame] | 3895 | #if defined(VGO_linux) |
njn | cc1284f | 2009-05-23 01:51:54 +0000 | [diff] [blame] | 3896 | /* |
| 3897 | * Handle the case where readlink is looking at /proc/self/exe or |
| 3898 | * /proc/<pid>/exe. |
| 3899 | */ |
| 3900 | HChar name[25]; |
florian | 19f91bb | 2012-11-10 22:29:54 +0000 | [diff] [blame] | 3901 | HChar* arg1s = (HChar*) ARG1; |
njn | cc1284f | 2009-05-23 01:51:54 +0000 | [diff] [blame] | 3902 | VG_(sprintf)(name, "/proc/%d/exe", VG_(getpid)()); |
bart | 9b533f8 | 2009-08-25 20:15:41 +0000 | [diff] [blame] | 3903 | if (ML_(safe_to_deref)(arg1s, 1) && |
njn | cc1284f | 2009-05-23 01:51:54 +0000 | [diff] [blame] | 3904 | (VG_STREQ(arg1s, name) || VG_STREQ(arg1s, "/proc/self/exe")) |
| 3905 | ) |
| 3906 | { |
| 3907 | VG_(sprintf)(name, "/proc/self/fd/%d", VG_(cl_exec_fd)); |
| 3908 | SET_STATUS_from_SysRes( VG_(do_syscall3)(saved, (UWord)name, |
| 3909 | ARG2, ARG3)); |
| 3910 | } else |
bart | 9b533f8 | 2009-08-25 20:15:41 +0000 | [diff] [blame] | 3911 | #endif // defined(VGO_linux) |
njn | cc1284f | 2009-05-23 01:51:54 +0000 | [diff] [blame] | 3912 | { |
| 3913 | /* Normal case */ |
| 3914 | SET_STATUS_from_SysRes( VG_(do_syscall3)(saved, ARG1, ARG2, ARG3)); |
| 3915 | } |
rjwalsh | 17d8530 | 2004-11-18 22:56:09 +0000 | [diff] [blame] | 3916 | } |
| 3917 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3918 | if (SUCCESS && RES > 0) |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 3919 | POST_MEM_WRITE( ARG2, RES ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3920 | } |
| 3921 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3922 | PRE(sys_readv) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3923 | { |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3924 | Int i; |
nethercote | 73b526f | 2004-10-31 18:48:21 +0000 | [diff] [blame] | 3925 | struct vki_iovec * vec; |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3926 | *flags |= SfMayBlock; |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 3927 | PRINT("sys_readv ( %ld, %#lx, %llu )",ARG1,ARG2,(ULong)ARG3); |
nethercote | d6b5a21 | 2004-11-15 17:04:14 +0000 | [diff] [blame] | 3928 | PRE_REG_READ3(ssize_t, "readv", |
| 3929 | unsigned long, fd, const struct iovec *, vector, |
| 3930 | unsigned long, count); |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 3931 | if (!ML_(fd_allowed)(ARG1, "readv", tid, False)) { |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3932 | SET_STATUS_Failure( VKI_EBADF ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3933 | } else { |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 3934 | PRE_MEM_READ( "readv(vector)", ARG2, ARG3 * sizeof(struct vki_iovec) ); |
nethercote | d6b5a21 | 2004-11-15 17:04:14 +0000 | [diff] [blame] | 3935 | |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 3936 | if (ARG2 != 0) { |
nethercote | d6b5a21 | 2004-11-15 17:04:14 +0000 | [diff] [blame] | 3937 | /* ToDo: don't do any of the following if the vector is invalid */ |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 3938 | vec = (struct vki_iovec *)ARG2; |
| 3939 | for (i = 0; i < (Int)ARG3; i++) |
nethercote | d6b5a21 | 2004-11-15 17:04:14 +0000 | [diff] [blame] | 3940 | PRE_MEM_WRITE( "readv(vector[...])", |
| 3941 | (Addr)vec[i].iov_base, vec[i].iov_len ); |
| 3942 | } |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3943 | } |
| 3944 | } |
| 3945 | |
nethercote | 85a456f | 2004-11-16 17:31:56 +0000 | [diff] [blame] | 3946 | POST(sys_readv) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3947 | { |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3948 | vg_assert(SUCCESS); |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 3949 | if (RES > 0) { |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3950 | Int i; |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 3951 | struct vki_iovec * vec = (struct vki_iovec *)ARG2; |
| 3952 | Int remains = RES; |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3953 | |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 3954 | /* RES holds the number of bytes read. */ |
| 3955 | for (i = 0; i < (Int)ARG3; i++) { |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3956 | Int nReadThisBuf = vec[i].iov_len; |
| 3957 | if (nReadThisBuf > remains) nReadThisBuf = remains; |
nethercote | ef0c766 | 2004-11-06 15:38:43 +0000 | [diff] [blame] | 3958 | POST_MEM_WRITE( (Addr)vec[i].iov_base, nReadThisBuf ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3959 | remains -= nReadThisBuf; |
| 3960 | if (remains < 0) VG_(core_panic)("readv: remains < 0"); |
| 3961 | } |
| 3962 | } |
| 3963 | } |
| 3964 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3965 | PRE(sys_rename) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3966 | { |
sewardj | cc3de2d | 2011-08-18 15:08:20 +0000 | [diff] [blame] | 3967 | FUSE_COMPATIBLE_MAY_BLOCK(); |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 3968 | PRINT("sys_rename ( %#lx(%s), %#lx(%s) )", ARG1,(char*)ARG1,ARG2,(char*)ARG2); |
nethercote | 9a3beb9 | 2004-11-12 17:07:26 +0000 | [diff] [blame] | 3969 | PRE_REG_READ2(long, "rename", const char *, oldpath, const char *, newpath); |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 3970 | PRE_MEM_RASCIIZ( "rename(oldpath)", ARG1 ); |
| 3971 | PRE_MEM_RASCIIZ( "rename(newpath)", ARG2 ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3972 | } |
| 3973 | |
sewardj | 78b50e4 | 2005-06-08 01:47:28 +0000 | [diff] [blame] | 3974 | PRE(sys_rmdir) |
| 3975 | { |
| 3976 | *flags |= SfMayBlock; |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 3977 | PRINT("sys_rmdir ( %#lx(%s) )", ARG1,(char*)ARG1); |
sewardj | 78b50e4 | 2005-06-08 01:47:28 +0000 | [diff] [blame] | 3978 | PRE_REG_READ1(long, "rmdir", const char *, pathname); |
| 3979 | PRE_MEM_RASCIIZ( "rmdir(pathname)", ARG1 ); |
| 3980 | } |
| 3981 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3982 | PRE(sys_select) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 3983 | { |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 3984 | *flags |= SfMayBlock; |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 3985 | PRINT("sys_select ( %ld, %#lx, %#lx, %#lx, %#lx )", ARG1,ARG2,ARG3,ARG4,ARG5); |
nethercote | f1049bf | 2004-11-14 17:03:47 +0000 | [diff] [blame] | 3986 | PRE_REG_READ5(long, "select", |
| 3987 | int, n, vki_fd_set *, readfds, vki_fd_set *, writefds, |
tom | 363ec76 | 2006-03-21 10:58:35 +0000 | [diff] [blame] | 3988 | vki_fd_set *, exceptfds, struct vki_timeval *, timeout); |
nethercote | f1049bf | 2004-11-14 17:03:47 +0000 | [diff] [blame] | 3989 | // XXX: this possibly understates how much memory is read. |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 3990 | if (ARG2 != 0) |
nethercote | f1049bf | 2004-11-14 17:03:47 +0000 | [diff] [blame] | 3991 | PRE_MEM_READ( "select(readfds)", |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 3992 | ARG2, ARG1/8 /* __FD_SETSIZE/8 */ ); |
| 3993 | if (ARG3 != 0) |
nethercote | f1049bf | 2004-11-14 17:03:47 +0000 | [diff] [blame] | 3994 | PRE_MEM_READ( "select(writefds)", |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 3995 | ARG3, ARG1/8 /* __FD_SETSIZE/8 */ ); |
| 3996 | if (ARG4 != 0) |
nethercote | f1049bf | 2004-11-14 17:03:47 +0000 | [diff] [blame] | 3997 | PRE_MEM_READ( "select(exceptfds)", |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 3998 | ARG4, ARG1/8 /* __FD_SETSIZE/8 */ ); |
| 3999 | if (ARG5 != 0) |
njn | 72bbd8d | 2009-05-22 08:12:46 +0000 | [diff] [blame] | 4000 | PRE_timeval_READ( "select(timeout)", ARG5 ); |
nethercote | f1049bf | 2004-11-14 17:03:47 +0000 | [diff] [blame] | 4001 | } |
| 4002 | |
sewardj | e6d5e72 | 2005-06-10 10:27:55 +0000 | [diff] [blame] | 4003 | PRE(sys_setgid) |
| 4004 | { |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 4005 | PRINT("sys_setgid ( %ld )", ARG1); |
sewardj | e6d5e72 | 2005-06-10 10:27:55 +0000 | [diff] [blame] | 4006 | PRE_REG_READ1(long, "setgid", vki_gid_t, gid); |
| 4007 | } |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 4008 | |
| 4009 | PRE(sys_setsid) |
| 4010 | { |
| 4011 | PRINT("sys_setsid ( )"); |
| 4012 | PRE_REG_READ0(long, "setsid"); |
| 4013 | } |
| 4014 | |
sewardj | e6d5e72 | 2005-06-10 10:27:55 +0000 | [diff] [blame] | 4015 | PRE(sys_setgroups) |
| 4016 | { |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 4017 | PRINT("setgroups ( %llu, %#lx )", (ULong)ARG1, ARG2); |
sewardj | e6d5e72 | 2005-06-10 10:27:55 +0000 | [diff] [blame] | 4018 | PRE_REG_READ2(long, "setgroups", int, size, vki_gid_t *, list); |
| 4019 | if (ARG1 > 0) |
| 4020 | PRE_MEM_READ( "setgroups(list)", ARG2, ARG1 * sizeof(vki_gid_t) ); |
| 4021 | } |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 4022 | |
| 4023 | PRE(sys_setpgid) |
| 4024 | { |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 4025 | PRINT("setpgid ( %ld, %ld )", ARG1, ARG2); |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 4026 | PRE_REG_READ2(long, "setpgid", vki_pid_t, pid, vki_pid_t, pgid); |
| 4027 | } |
| 4028 | |
| 4029 | PRE(sys_setregid) |
| 4030 | { |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 4031 | PRINT("sys_setregid ( %ld, %ld )", ARG1, ARG2); |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 4032 | PRE_REG_READ2(long, "setregid", vki_gid_t, rgid, vki_gid_t, egid); |
| 4033 | } |
| 4034 | |
sewardj | e6d5e72 | 2005-06-10 10:27:55 +0000 | [diff] [blame] | 4035 | PRE(sys_setreuid) |
| 4036 | { |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 4037 | PRINT("sys_setreuid ( 0x%lx, 0x%lx )", ARG1, ARG2); |
sewardj | e6d5e72 | 2005-06-10 10:27:55 +0000 | [diff] [blame] | 4038 | PRE_REG_READ2(long, "setreuid", vki_uid_t, ruid, vki_uid_t, euid); |
| 4039 | } |
nethercote | 9c311eb | 2004-11-12 18:20:12 +0000 | [diff] [blame] | 4040 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 4041 | PRE(sys_setrlimit) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 4042 | { |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 4043 | UWord arg1 = ARG1; |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 4044 | PRINT("sys_setrlimit ( %ld, %#lx )", ARG1,ARG2); |
nethercote | 17258dc | 2004-11-12 19:55:08 +0000 | [diff] [blame] | 4045 | PRE_REG_READ2(long, "setrlimit", |
| 4046 | unsigned int, resource, struct rlimit *, rlim); |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 4047 | PRE_MEM_READ( "setrlimit(rlim)", ARG2, sizeof(struct vki_rlimit) ); |
fitzhardinge | b50068f | 2004-02-24 23:42:55 +0000 | [diff] [blame] | 4048 | |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 4049 | #ifdef _RLIMIT_POSIX_FLAG |
| 4050 | // Darwin will sometimes set _RLIMIT_POSIX_FLAG on setrlimit calls. |
| 4051 | // Unset it here to make the if statements below work correctly. |
| 4052 | arg1 &= ~_RLIMIT_POSIX_FLAG; |
| 4053 | #endif |
| 4054 | |
tom | aba260b | 2012-03-01 13:42:18 +0000 | [diff] [blame] | 4055 | if (ARG2 && |
| 4056 | ((struct vki_rlimit *)ARG2)->rlim_cur > ((struct vki_rlimit *)ARG2)->rlim_max) { |
| 4057 | SET_STATUS_Failure( VKI_EINVAL ); |
| 4058 | } |
| 4059 | else if (arg1 == VKI_RLIMIT_NOFILE) { |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 4060 | if (((struct vki_rlimit *)ARG2)->rlim_cur > VG_(fd_hard_limit) || |
| 4061 | ((struct vki_rlimit *)ARG2)->rlim_max != VG_(fd_hard_limit)) { |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 4062 | SET_STATUS_Failure( VKI_EPERM ); |
thughes | ad1c956 | 2004-06-26 11:27:52 +0000 | [diff] [blame] | 4063 | } |
| 4064 | else { |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 4065 | VG_(fd_soft_limit) = ((struct vki_rlimit *)ARG2)->rlim_cur; |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 4066 | SET_STATUS_Success( 0 ); |
thughes | ad1c956 | 2004-06-26 11:27:52 +0000 | [diff] [blame] | 4067 | } |
| 4068 | } |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 4069 | else if (arg1 == VKI_RLIMIT_DATA) { |
tom | ae0739d | 2006-03-20 15:36:28 +0000 | [diff] [blame] | 4070 | if (((struct vki_rlimit *)ARG2)->rlim_cur > VG_(client_rlimit_data).rlim_max || |
| 4071 | ((struct vki_rlimit *)ARG2)->rlim_max > VG_(client_rlimit_data).rlim_max) { |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 4072 | SET_STATUS_Failure( VKI_EPERM ); |
thughes | aa4fb11 | 2004-09-11 14:19:25 +0000 | [diff] [blame] | 4073 | } |
| 4074 | else { |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 4075 | VG_(client_rlimit_data) = *(struct vki_rlimit *)ARG2; |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 4076 | SET_STATUS_Success( 0 ); |
thughes | aa4fb11 | 2004-09-11 14:19:25 +0000 | [diff] [blame] | 4077 | } |
fitzhardinge | b50068f | 2004-02-24 23:42:55 +0000 | [diff] [blame] | 4078 | } |
njn | f76d27a | 2009-05-28 01:53:07 +0000 | [diff] [blame] | 4079 | else if (arg1 == VKI_RLIMIT_STACK && tid == 1) { |
tom | ae0739d | 2006-03-20 15:36:28 +0000 | [diff] [blame] | 4080 | if (((struct vki_rlimit *)ARG2)->rlim_cur > VG_(client_rlimit_stack).rlim_max || |
| 4081 | ((struct vki_rlimit *)ARG2)->rlim_max > VG_(client_rlimit_stack).rlim_max) { |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 4082 | SET_STATUS_Failure( VKI_EPERM ); |
thughes | c37184f | 2004-09-11 14:16:57 +0000 | [diff] [blame] | 4083 | } |
| 4084 | else { |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 4085 | VG_(threads)[tid].client_stack_szB = ((struct vki_rlimit *)ARG2)->rlim_cur; |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 4086 | VG_(client_rlimit_stack) = *(struct vki_rlimit *)ARG2; |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 4087 | SET_STATUS_Success( 0 ); |
thughes | c37184f | 2004-09-11 14:16:57 +0000 | [diff] [blame] | 4088 | } |
| 4089 | } |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 4090 | } |
| 4091 | |
sewardj | e6d5e72 | 2005-06-10 10:27:55 +0000 | [diff] [blame] | 4092 | PRE(sys_setuid) |
| 4093 | { |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 4094 | PRINT("sys_setuid ( %ld )", ARG1); |
sewardj | e6d5e72 | 2005-06-10 10:27:55 +0000 | [diff] [blame] | 4095 | PRE_REG_READ1(long, "setuid", vki_uid_t, uid); |
| 4096 | } |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 4097 | |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 4098 | PRE(sys_newstat) |
| 4099 | { |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 4100 | PRINT("sys_newstat ( %#lx(%s), %#lx )", ARG1,(char*)ARG1,ARG2); |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 4101 | PRE_REG_READ2(long, "stat", char *, file_name, struct stat *, buf); |
| 4102 | PRE_MEM_RASCIIZ( "stat(file_name)", ARG1 ); |
| 4103 | PRE_MEM_WRITE( "stat(buf)", ARG2, sizeof(struct vki_stat) ); |
| 4104 | } |
| 4105 | |
| 4106 | POST(sys_newstat) |
| 4107 | { |
| 4108 | POST_MEM_WRITE( ARG2, sizeof(struct vki_stat) ); |
| 4109 | } |
| 4110 | |
| 4111 | PRE(sys_statfs) |
| 4112 | { |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 4113 | PRINT("sys_statfs ( %#lx(%s), %#lx )",ARG1,(char*)ARG1,ARG2); |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 4114 | PRE_REG_READ2(long, "statfs", const char *, path, struct statfs *, buf); |
| 4115 | PRE_MEM_RASCIIZ( "statfs(path)", ARG1 ); |
| 4116 | PRE_MEM_WRITE( "statfs(buf)", ARG2, sizeof(struct vki_statfs) ); |
| 4117 | } |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 4118 | POST(sys_statfs) |
| 4119 | { |
| 4120 | POST_MEM_WRITE( ARG2, sizeof(struct vki_statfs) ); |
| 4121 | } |
| 4122 | |
sewardj | e6d5e72 | 2005-06-10 10:27:55 +0000 | [diff] [blame] | 4123 | PRE(sys_statfs64) |
| 4124 | { |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 4125 | PRINT("sys_statfs64 ( %#lx(%s), %llu, %#lx )",ARG1,(char*)ARG1,(ULong)ARG2,ARG3); |
sewardj | e6d5e72 | 2005-06-10 10:27:55 +0000 | [diff] [blame] | 4126 | PRE_REG_READ3(long, "statfs64", |
| 4127 | const char *, path, vki_size_t, size, struct statfs64 *, buf); |
| 4128 | PRE_MEM_RASCIIZ( "statfs64(path)", ARG1 ); |
| 4129 | PRE_MEM_WRITE( "statfs64(buf)", ARG3, ARG2 ); |
| 4130 | } |
| 4131 | POST(sys_statfs64) |
| 4132 | { |
| 4133 | POST_MEM_WRITE( ARG3, ARG2 ); |
| 4134 | } |
sewardj | 78b50e4 | 2005-06-08 01:47:28 +0000 | [diff] [blame] | 4135 | |
| 4136 | PRE(sys_symlink) |
| 4137 | { |
| 4138 | *flags |= SfMayBlock; |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 4139 | PRINT("sys_symlink ( %#lx(%s), %#lx(%s) )",ARG1,(char*)ARG1,ARG2,(char*)ARG2); |
sewardj | 78b50e4 | 2005-06-08 01:47:28 +0000 | [diff] [blame] | 4140 | PRE_REG_READ2(long, "symlink", const char *, oldpath, const char *, newpath); |
| 4141 | PRE_MEM_RASCIIZ( "symlink(oldpath)", ARG1 ); |
| 4142 | PRE_MEM_RASCIIZ( "symlink(newpath)", ARG2 ); |
| 4143 | } |
sewardj | 9efbbef | 2005-03-01 16:45:23 +0000 | [diff] [blame] | 4144 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 4145 | PRE(sys_time) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 4146 | { |
| 4147 | /* time_t time(time_t *t); */ |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 4148 | PRINT("sys_time ( %#lx )",ARG1); |
nethercote | c6851dd | 2004-11-11 18:00:47 +0000 | [diff] [blame] | 4149 | PRE_REG_READ1(long, "time", int *, t); |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 4150 | if (ARG1 != 0) { |
| 4151 | PRE_MEM_WRITE( "time(t)", ARG1, sizeof(vki_time_t) ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 4152 | } |
| 4153 | } |
| 4154 | |
nethercote | 85a456f | 2004-11-16 17:31:56 +0000 | [diff] [blame] | 4155 | POST(sys_time) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 4156 | { |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 4157 | if (ARG1 != 0) { |
| 4158 | POST_MEM_WRITE( ARG1, sizeof(vki_time_t) ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 4159 | } |
| 4160 | } |
| 4161 | |
sewardj | 78b50e4 | 2005-06-08 01:47:28 +0000 | [diff] [blame] | 4162 | PRE(sys_times) |
| 4163 | { |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 4164 | PRINT("sys_times ( %#lx )", ARG1); |
sewardj | 78b50e4 | 2005-06-08 01:47:28 +0000 | [diff] [blame] | 4165 | PRE_REG_READ1(long, "times", struct tms *, buf); |
tom | 18f1927 | 2005-07-18 11:03:35 +0000 | [diff] [blame] | 4166 | if (ARG1 != 0) { |
| 4167 | PRE_MEM_WRITE( "times(buf)", ARG1, sizeof(struct vki_tms) ); |
| 4168 | } |
sewardj | 78b50e4 | 2005-06-08 01:47:28 +0000 | [diff] [blame] | 4169 | } |
| 4170 | |
| 4171 | POST(sys_times) |
| 4172 | { |
| 4173 | if (ARG1 != 0) { |
| 4174 | POST_MEM_WRITE( ARG1, sizeof(struct vki_tms) ); |
| 4175 | } |
| 4176 | } |
| 4177 | |
| 4178 | PRE(sys_umask) |
| 4179 | { |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 4180 | PRINT("sys_umask ( %ld )", ARG1); |
sewardj | 78b50e4 | 2005-06-08 01:47:28 +0000 | [diff] [blame] | 4181 | PRE_REG_READ1(long, "umask", int, mask); |
| 4182 | } |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 4183 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 4184 | PRE(sys_unlink) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 4185 | { |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 4186 | *flags |= SfMayBlock; |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 4187 | PRINT("sys_unlink ( %#lx(%s) )", ARG1,(char*)ARG1); |
nethercote | c6851dd | 2004-11-11 18:00:47 +0000 | [diff] [blame] | 4188 | PRE_REG_READ1(long, "unlink", const char *, pathname); |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 4189 | PRE_MEM_RASCIIZ( "unlink(pathname)", ARG1 ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 4190 | } |
| 4191 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 4192 | PRE(sys_newuname) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 4193 | { |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 4194 | PRINT("sys_newuname ( %#lx )", ARG1); |
nethercote | 1a1b9b7 | 2004-11-12 11:19:36 +0000 | [diff] [blame] | 4195 | PRE_REG_READ1(long, "uname", struct new_utsname *, buf); |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 4196 | PRE_MEM_WRITE( "uname(buf)", ARG1, sizeof(struct vki_new_utsname) ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 4197 | } |
| 4198 | |
nethercote | 85a456f | 2004-11-16 17:31:56 +0000 | [diff] [blame] | 4199 | POST(sys_newuname) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 4200 | { |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 4201 | if (ARG1 != 0) { |
| 4202 | POST_MEM_WRITE( ARG1, sizeof(struct vki_new_utsname) ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 4203 | } |
| 4204 | } |
| 4205 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 4206 | PRE(sys_waitpid) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 4207 | { |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 4208 | *flags |= SfMayBlock; |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 4209 | PRINT("sys_waitpid ( %ld, %#lx, %ld )", ARG1,ARG2,ARG3); |
nethercote | c6851dd | 2004-11-11 18:00:47 +0000 | [diff] [blame] | 4210 | PRE_REG_READ3(long, "waitpid", |
| 4211 | vki_pid_t, pid, unsigned int *, status, int, options); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 4212 | |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 4213 | if (ARG2 != (Addr)NULL) |
| 4214 | PRE_MEM_WRITE( "waitpid(status)", ARG2, sizeof(int) ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 4215 | } |
| 4216 | |
nethercote | 85a456f | 2004-11-16 17:31:56 +0000 | [diff] [blame] | 4217 | POST(sys_waitpid) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 4218 | { |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 4219 | if (ARG2 != (Addr)NULL) |
| 4220 | POST_MEM_WRITE( ARG2, sizeof(int) ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 4221 | } |
| 4222 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 4223 | PRE(sys_wait4) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 4224 | { |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 4225 | *flags |= SfMayBlock; |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 4226 | PRINT("sys_wait4 ( %ld, %#lx, %ld, %#lx )", ARG1,ARG2,ARG3,ARG4); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 4227 | |
nethercote | 7f7e4d1 | 2004-11-15 12:28:58 +0000 | [diff] [blame] | 4228 | PRE_REG_READ4(long, "wait4", |
| 4229 | vki_pid_t, pid, unsigned int *, status, int, options, |
| 4230 | struct rusage *, rusage); |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 4231 | if (ARG2 != (Addr)NULL) |
| 4232 | PRE_MEM_WRITE( "wait4(status)", ARG2, sizeof(int) ); |
| 4233 | if (ARG4 != (Addr)NULL) |
| 4234 | PRE_MEM_WRITE( "wait4(rusage)", ARG4, sizeof(struct vki_rusage) ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 4235 | } |
| 4236 | |
nethercote | 85a456f | 2004-11-16 17:31:56 +0000 | [diff] [blame] | 4237 | POST(sys_wait4) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 4238 | { |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 4239 | if (ARG2 != (Addr)NULL) |
| 4240 | POST_MEM_WRITE( ARG2, sizeof(int) ); |
| 4241 | if (ARG4 != (Addr)NULL) |
| 4242 | POST_MEM_WRITE( ARG4, sizeof(struct vki_rusage) ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 4243 | } |
| 4244 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 4245 | PRE(sys_writev) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 4246 | { |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 4247 | Int i; |
nethercote | 73b526f | 2004-10-31 18:48:21 +0000 | [diff] [blame] | 4248 | struct vki_iovec * vec; |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 4249 | *flags |= SfMayBlock; |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 4250 | PRINT("sys_writev ( %ld, %#lx, %llu )",ARG1,ARG2,(ULong)ARG3); |
nethercote | d6b5a21 | 2004-11-15 17:04:14 +0000 | [diff] [blame] | 4251 | PRE_REG_READ3(ssize_t, "writev", |
| 4252 | unsigned long, fd, const struct iovec *, vector, |
| 4253 | unsigned long, count); |
sewardj | 7eb7c58 | 2005-06-23 01:02:53 +0000 | [diff] [blame] | 4254 | if (!ML_(fd_allowed)(ARG1, "writev", tid, False)) { |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 4255 | SET_STATUS_Failure( VKI_EBADF ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 4256 | } else { |
nethercote | ef0c766 | 2004-11-06 15:38:43 +0000 | [diff] [blame] | 4257 | PRE_MEM_READ( "writev(vector)", |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 4258 | ARG2, ARG3 * sizeof(struct vki_iovec) ); |
| 4259 | if (ARG2 != 0) { |
nethercote | d6b5a21 | 2004-11-15 17:04:14 +0000 | [diff] [blame] | 4260 | /* ToDo: don't do any of the following if the vector is invalid */ |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 4261 | vec = (struct vki_iovec *)ARG2; |
| 4262 | for (i = 0; i < (Int)ARG3; i++) |
nethercote | d6b5a21 | 2004-11-15 17:04:14 +0000 | [diff] [blame] | 4263 | PRE_MEM_READ( "writev(vector[...])", |
| 4264 | (Addr)vec[i].iov_base, vec[i].iov_len ); |
| 4265 | } |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 4266 | } |
| 4267 | } |
| 4268 | |
sewardj | e6d5e72 | 2005-06-10 10:27:55 +0000 | [diff] [blame] | 4269 | PRE(sys_utimes) |
| 4270 | { |
sewardj | cc3de2d | 2011-08-18 15:08:20 +0000 | [diff] [blame] | 4271 | FUSE_COMPATIBLE_MAY_BLOCK(); |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 4272 | PRINT("sys_utimes ( %#lx(%s), %#lx )", ARG1,(char*)ARG1,ARG2); |
sewardj | e6d5e72 | 2005-06-10 10:27:55 +0000 | [diff] [blame] | 4273 | PRE_REG_READ2(long, "utimes", char *, filename, struct timeval *, tvp); |
| 4274 | PRE_MEM_RASCIIZ( "utimes(filename)", ARG1 ); |
njn | 72bbd8d | 2009-05-22 08:12:46 +0000 | [diff] [blame] | 4275 | if (ARG2 != 0) { |
| 4276 | PRE_timeval_READ( "utimes(tvp[0])", ARG2 ); |
| 4277 | PRE_timeval_READ( "utimes(tvp[1])", ARG2+sizeof(struct vki_timeval) ); |
| 4278 | } |
sewardj | e6d5e72 | 2005-06-10 10:27:55 +0000 | [diff] [blame] | 4279 | } |
| 4280 | |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 4281 | PRE(sys_acct) |
| 4282 | { |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 4283 | PRINT("sys_acct ( %#lx(%s) )", ARG1,(char*)ARG1); |
sewardj | 696c551 | 2005-06-08 23:38:32 +0000 | [diff] [blame] | 4284 | PRE_REG_READ1(long, "acct", const char *, filename); |
| 4285 | PRE_MEM_RASCIIZ( "acct(filename)", ARG1 ); |
| 4286 | } |
mueller | d3502b6 | 2003-11-19 00:43:57 +0000 | [diff] [blame] | 4287 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 4288 | PRE(sys_pause) |
thughes | 2f8d5f8 | 2004-09-11 14:29:19 +0000 | [diff] [blame] | 4289 | { |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 4290 | *flags |= SfMayBlock; |
nethercote | 0df495a | 2004-11-11 16:38:21 +0000 | [diff] [blame] | 4291 | PRINT("sys_pause ( )"); |
| 4292 | PRE_REG_READ0(long, "pause"); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 4293 | } |
| 4294 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 4295 | PRE(sys_sigaltstack) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 4296 | { |
bart | a0b6b2c | 2008-07-07 06:49:24 +0000 | [diff] [blame] | 4297 | PRINT("sigaltstack ( %#lx, %#lx )",ARG1,ARG2); |
nethercote | b77dee6 | 2004-11-16 17:13:24 +0000 | [diff] [blame] | 4298 | PRE_REG_READ2(int, "sigaltstack", |
| 4299 | const vki_stack_t *, ss, vki_stack_t *, oss); |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 4300 | if (ARG1 != 0) { |
tom | 92098db | 2005-07-18 23:18:10 +0000 | [diff] [blame] | 4301 | const vki_stack_t *ss = (vki_stack_t *)ARG1; |
| 4302 | PRE_MEM_READ( "sigaltstack(ss)", (Addr)&ss->ss_sp, sizeof(ss->ss_sp) ); |
| 4303 | PRE_MEM_READ( "sigaltstack(ss)", (Addr)&ss->ss_flags, sizeof(ss->ss_flags) ); |
| 4304 | PRE_MEM_READ( "sigaltstack(ss)", (Addr)&ss->ss_size, sizeof(ss->ss_size) ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 4305 | } |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 4306 | if (ARG2 != 0) { |
| 4307 | PRE_MEM_WRITE( "sigaltstack(oss)", ARG2, sizeof(vki_stack_t) ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 4308 | } |
| 4309 | |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 4310 | SET_STATUS_from_SysRes( |
| 4311 | VG_(do_sys_sigaltstack) (tid, (vki_stack_t*)ARG1, |
| 4312 | (vki_stack_t*)ARG2) |
| 4313 | ); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 4314 | } |
nethercote | 85a456f | 2004-11-16 17:31:56 +0000 | [diff] [blame] | 4315 | POST(sys_sigaltstack) |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 4316 | { |
sewardj | a8d8e23 | 2005-06-07 20:04:56 +0000 | [diff] [blame] | 4317 | vg_assert(SUCCESS); |
njn | 22cfccb | 2004-11-27 16:10:23 +0000 | [diff] [blame] | 4318 | if (RES == 0 && ARG2 != 0) |
| 4319 | POST_MEM_WRITE( ARG2, sizeof(vki_stack_t)); |
jsgf | 855d93d | 2003-10-13 22:26:55 +0000 | [diff] [blame] | 4320 | } |
| 4321 | |
tom | f93bbd9 | 2013-07-17 12:43:30 +0000 | [diff] [blame] | 4322 | PRE(sys_sethostname) |
| 4323 | { |
| 4324 | PRINT("sys_sethostname ( %#lx, %ld )", ARG1,ARG2); |
| 4325 | PRE_REG_READ2(long, "sethostname", char *, name, int, len); |
| 4326 | PRE_MEM_READ( "sethostname(name)", ARG1, ARG2 ); |
| 4327 | } |
| 4328 | |
sewardj | e6d5e72 | 2005-06-10 10:27:55 +0000 | [diff] [blame] | 4329 | #undef PRE |
| 4330 | #undef POST |
sewardj | 2e93c50 | 2002-04-12 11:12:52 +0000 | [diff] [blame] | 4331 | |
njn | 8b68b64 | 2009-06-24 00:37:09 +0000 | [diff] [blame] | 4332 | #endif // defined(VGO_linux) || defined(VGO_darwin) |
| 4333 | |
sewardj | de4a1d0 | 2002-03-22 01:27:54 +0000 | [diff] [blame] | 4334 | /*--------------------------------------------------------------------*/ |
njn | c1b0181 | 2005-06-17 22:19:06 +0000 | [diff] [blame] | 4335 | /*--- end ---*/ |
sewardj | de4a1d0 | 2002-03-22 01:27:54 +0000 | [diff] [blame] | 4336 | /*--------------------------------------------------------------------*/ |