contrib/compiler-rt/lib/tsan/rtl/tsan_mman.cc

   1 //===-- tsan_mman.cc ------------------------------------------------------===//
   2 //
   3 //                     The LLVM Compiler Infrastructure
   4 //
   5 // This file is distributed under the University of Illinois Open Source
   6 // License. See LICENSE.TXT for details.
   7 //
   8 //===----------------------------------------------------------------------===//
   9 //
  10 // This file is a part of ThreadSanitizer (TSan), a race detector.
  11 //
  12 //===----------------------------------------------------------------------===//
  13 #include "sanitizer_common/sanitizer_allocator_checks.h"
  14 #include "sanitizer_common/sanitizer_allocator_interface.h"
  15 #include "sanitizer_common/sanitizer_common.h"
  16 #include "sanitizer_common/sanitizer_placement_new.h"
  17 #include "tsan_mman.h"
  18 #include "tsan_rtl.h"
  19 #include "tsan_report.h"
  20 #include "tsan_flags.h"
  21
  22 // May be overriden by front-end.
  23 SANITIZER_WEAK_DEFAULT_IMPL
  24 void __sanitizer_malloc_hook(void *ptr, uptr size) {
  25   (void)ptr;
  26   (void)size;
  27 }
  28
  29 SANITIZER_WEAK_DEFAULT_IMPL
  30 void __sanitizer_free_hook(void *ptr) {
  31   (void)ptr;
  32 }
  33
  34 namespace __tsan {
  35
  36 struct MapUnmapCallback {
  37   void OnMap(uptr p, uptr size) const { }
  38   void OnUnmap(uptr p, uptr size) const {
  39     // We are about to unmap a chunk of user memory.
  40     // Mark the corresponding shadow memory as not needed.
  41     DontNeedShadowFor(p, size);
  42     // Mark the corresponding meta shadow memory as not needed.
  43     // Note the block does not contain any meta info at this point
  44     // (this happens after free).
  45     const uptr kMetaRatio = kMetaShadowCell / kMetaShadowSize;
  46     const uptr kPageSize = GetPageSizeCached() * kMetaRatio;
  47     // Block came from LargeMmapAllocator, so must be large.
  48     // We rely on this in the calculations below.
  49     CHECK_GE(size, 2 * kPageSize);
  50     uptr diff = RoundUp(p, kPageSize) - p;
  51     if (diff != 0) {
  52       p += diff;
  53       size -= diff;
  54     }
  55     diff = p + size - RoundDown(p + size, kPageSize);
  56     if (diff != 0)
  57       size -= diff;
  58     uptr p_meta = (uptr)MemToMeta(p);
  59     ReleaseMemoryPagesToOS(p_meta, p_meta + size / kMetaRatio);
  60   }
  61 };
  62
  63 static char allocator_placeholder[sizeof(Allocator)] ALIGNED(64);
  64 Allocator *allocator() {
  65   return reinterpret_cast<Allocator*>(&allocator_placeholder);
  66 }
  67
  68 struct GlobalProc {
  69   Mutex mtx;
  70   Processor *proc;
  71
  72   GlobalProc()
  73       : mtx(MutexTypeGlobalProc, StatMtxGlobalProc)
  74       , proc(ProcCreate()) {
  75   }
  76 };
  77
  78 static char global_proc_placeholder[sizeof(GlobalProc)] ALIGNED(64);
  79 GlobalProc *global_proc() {
  80   return reinterpret_cast<GlobalProc*>(&global_proc_placeholder);
  81 }
  82
  83 ScopedGlobalProcessor::ScopedGlobalProcessor() {
  84   GlobalProc *gp = global_proc();
  85   ThreadState *thr = cur_thread();
  86   if (thr->proc())
  87     return;
  88   // If we don't have a proc, use the global one.
  89   // There are currently only two known case where this path is triggered:
  90   //   __interceptor_free
  91   //   __nptl_deallocate_tsd
  92   //   start_thread
  93   //   clone
  94   // and:
  95   //   ResetRange
  96   //   __interceptor_munmap
  97   //   __deallocate_stack
  98   //   start_thread
  99   //   clone
 100   // Ideally, we destroy thread state (and unwire proc) when a thread actually
 101   // exits (i.e. when we join/wait it). Then we would not need the global proc
 102   gp->mtx.Lock();
 103   ProcWire(gp->proc, thr);
 104 }
 105
 106 ScopedGlobalProcessor::~ScopedGlobalProcessor() {
 107   GlobalProc *gp = global_proc();
 108   ThreadState *thr = cur_thread();
 109   if (thr->proc() != gp->proc)
 110     return;
 111   ProcUnwire(gp->proc, thr);
 112   gp->mtx.Unlock();
 113 }
 114
 115 void InitializeAllocator() {
 116   SetAllocatorMayReturnNull(common_flags()->allocator_may_return_null);
 117   allocator()->Init(common_flags()->allocator_release_to_os_interval_ms);
 118 }
 119
 120 void InitializeAllocatorLate() {
 121   new(global_proc()) GlobalProc();
 122 }
 123
 124 void AllocatorProcStart(Processor *proc) {
 125   allocator()->InitCache(&proc->alloc_cache);
 126   internal_allocator()->InitCache(&proc->internal_alloc_cache);
 127 }
 128
 129 void AllocatorProcFinish(Processor *proc) {
 130   allocator()->DestroyCache(&proc->alloc_cache);
 131   internal_allocator()->DestroyCache(&proc->internal_alloc_cache);
 132 }
 133
 134 void AllocatorPrintStats() {
 135   allocator()->PrintStats();
 136 }
 137
 138 static void SignalUnsafeCall(ThreadState *thr, uptr pc) {
 139   if (atomic_load_relaxed(&thr->in_signal_handler) == 0 ||
 140       !flags()->report_signal_unsafe)
 141     return;
 142   VarSizeStackTrace stack;
 143   ObtainCurrentStack(thr, pc, &stack);
 144   if (IsFiredSuppression(ctx, ReportTypeSignalUnsafe, stack))
 145     return;
 146   ThreadRegistryLock l(ctx->thread_registry);
 147   ScopedReport rep(ReportTypeSignalUnsafe);
 148   rep.AddStack(stack, true);
 149   OutputReport(thr, rep);
 150 }
 151
 152 void *user_alloc(ThreadState *thr, uptr pc, uptr sz, uptr align, bool signal) {
 153   if ((sz >= (1ull << 40)) || (align >= (1ull << 40)))
 154     return Allocator::FailureHandler::OnBadRequest();
 155   void *p = allocator()->Allocate(&thr->proc()->alloc_cache, sz, align);
 156   if (p == 0)
 157     return 0;
 158   if (ctx && ctx->initialized)
 159     OnUserAlloc(thr, pc, (uptr)p, sz, true);
 160   if (signal)
 161     SignalUnsafeCall(thr, pc);
 162   return p;
 163 }
 164
 165 void *user_calloc(ThreadState *thr, uptr pc, uptr size, uptr n) {
 166   if (CheckForCallocOverflow(size, n))
 167     return Allocator::FailureHandler::OnBadRequest();
 168   void *p = user_alloc(thr, pc, n * size);
 169   if (p)
 170     internal_memset(p, 0, n * size);
 171   return p;
 172 }
 173
 174 void user_free(ThreadState *thr, uptr pc, void *p, bool signal) {
 175   ScopedGlobalProcessor sgp;
 176   if (ctx && ctx->initialized)
 177     OnUserFree(thr, pc, (uptr)p, true);
 178   allocator()->Deallocate(&thr->proc()->alloc_cache, p);
 179   if (signal)
 180     SignalUnsafeCall(thr, pc);
 181 }
 182
 183 void OnUserAlloc(ThreadState *thr, uptr pc, uptr p, uptr sz, bool write) {
 184   DPrintf("#%d: alloc(%zu) = %p\n", thr->tid, sz, p);
 185   ctx->metamap.AllocBlock(thr, pc, p, sz);
 186   if (write && thr->ignore_reads_and_writes == 0)
 187     MemoryRangeImitateWrite(thr, pc, (uptr)p, sz);
 188   else
 189     MemoryResetRange(thr, pc, (uptr)p, sz);
 190 }
 191
 192 void OnUserFree(ThreadState *thr, uptr pc, uptr p, bool write) {
 193   CHECK_NE(p, (void*)0);
 194   uptr sz = ctx->metamap.FreeBlock(thr->proc(), p);
 195   DPrintf("#%d: free(%p, %zu)\n", thr->tid, p, sz);
 196   if (write && thr->ignore_reads_and_writes == 0)
 197     MemoryRangeFreed(thr, pc, (uptr)p, sz);
 198 }
 199
 200 void *user_realloc(ThreadState *thr, uptr pc, void *p, uptr sz) {
 201   // FIXME: Handle "shrinking" more efficiently,
 202   // it seems that some software actually does this.
 203   void *p2 = user_alloc(thr, pc, sz);
 204   if (p2 == 0)
 205     return 0;
 206   if (p) {
 207     uptr oldsz = user_alloc_usable_size(p);
 208     internal_memcpy(p2, p, min(oldsz, sz));
 209     user_free(thr, pc, p);
 210   }
 211   return p2;
 212 }
 213
 214 uptr user_alloc_usable_size(const void *p) {
 215   if (p == 0)
 216     return 0;
 217   MBlock *b = ctx->metamap.GetBlock((uptr)p);
 218   if (!b)
 219     return 0;  // Not a valid pointer.
 220   if (b->siz == 0)
 221     return 1;  // Zero-sized allocations are actually 1 byte.
 222   return b->siz;
 223 }
 224
 225 void invoke_malloc_hook(void *ptr, uptr size) {
 226   ThreadState *thr = cur_thread();
 227   if (ctx == 0 || !ctx->initialized || thr->ignore_interceptors)
 228     return;
 229   __sanitizer_malloc_hook(ptr, size);
 230   RunMallocHooks(ptr, size);
 231 }
 232
 233 void invoke_free_hook(void *ptr) {
 234   ThreadState *thr = cur_thread();
 235   if (ctx == 0 || !ctx->initialized || thr->ignore_interceptors)
 236     return;
 237   __sanitizer_free_hook(ptr);
 238   RunFreeHooks(ptr);
 239 }
 240
 241 void *internal_alloc(MBlockType typ, uptr sz) {
 242   ThreadState *thr = cur_thread();
 243   if (thr->nomalloc) {
 244     thr->nomalloc = 0;  // CHECK calls internal_malloc().
 245     CHECK(0);
 246   }
 247   return InternalAlloc(sz, &thr->proc()->internal_alloc_cache);
 248 }
 249
 250 void internal_free(void *p) {
 251   ThreadState *thr = cur_thread();
 252   if (thr->nomalloc) {
 253     thr->nomalloc = 0;  // CHECK calls internal_malloc().
 254     CHECK(0);
 255   }
 256   InternalFree(p, &thr->proc()->internal_alloc_cache);
 257 }
 258
 259 }  // namespace __tsan
 260
 261 using namespace __tsan;
 262
 263 extern "C" {
 264 uptr __sanitizer_get_current_allocated_bytes() {
 265   uptr stats[AllocatorStatCount];
 266   allocator()->GetStats(stats);
 267   return stats[AllocatorStatAllocated];
 268 }
 269
 270 uptr __sanitizer_get_heap_size() {
 271   uptr stats[AllocatorStatCount];
 272   allocator()->GetStats(stats);
 273   return stats[AllocatorStatMapped];
 274 }
 275
 276 uptr __sanitizer_get_free_bytes() {
 277   return 1;
 278 }
 279
 280 uptr __sanitizer_get_unmapped_bytes() {
 281   return 1;
 282 }
 283
 284 uptr __sanitizer_get_estimated_allocated_size(uptr size) {
 285   return size;
 286 }
 287
 288 int __sanitizer_get_ownership(const void *p) {
 289   return allocator()->GetBlockBegin(p) != 0;
 290 }
 291
 292 uptr __sanitizer_get_allocated_size(const void *p) {
 293   return user_alloc_usable_size(p);
 294 }
 295
 296 void __tsan_on_thread_idle() {
 297   ThreadState *thr = cur_thread();
 298   thr->clock.ResetCached(&thr->proc()->clock_cache);
 299   thr->last_sleep_clock.ResetCached(&thr->proc()->clock_cache);
 300   allocator()->SwallowCache(&thr->proc()->alloc_cache);
 301   internal_allocator()->SwallowCache(&thr->proc()->internal_alloc_cache);
 302   ctx->metamap.OnProcIdle(thr->proc());
 303 }
 304 }  // extern "C"