/*-*- mode:c;indent-tabs-mode:nil;c-basic-offset:2;tab-width:8;coding:utf-8 -*-│
│vi: set net ft=c ts=2 sts=2 sw=2 fenc=utf-8                                :vi│
╞══════════════════════════════════════════════════════════════════════════════╡
│ Copyright 2021 Justine Alexandra Roberts Tunney                              │
│                                                                              │
│ Permission to use, copy, modify, and/or distribute this software for         │
│ any purpose with or without fee is hereby granted, provided that the         │
│ above copyright notice and this permission notice appear in all copies.      │
│                                                                              │
│ THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL                │
│ WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED                │
│ WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE             │
│ AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL         │
│ DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR        │
│ PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER               │
│ TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR             │
│ PERFORMANCE OF THIS SOFTWARE.                                                │
╚─────────────────────────────────────────────────────────────────────────────*/
#include "libc/dce.h"
#include "libc/fmt/fmt.h"
#include "libc/intrin/asan.internal.h"
#include "libc/intrin/kprintf.h"
#include "libc/log/libfatal.internal.h"
#include "libc/log/log.h"
#include "libc/mem/gc.internal.h"
#include "libc/mem/mem.h"
#include "libc/runtime/runtime.h"
#include "libc/stdio/stdio.h"
#include "libc/str/str.h"
#include "libc/testlib/ezbench.h"
#include "libc/testlib/testlib.h"

noasan signed char ReadShadow(signed char *s) {
  return *s;
}

void SetUp(void) {
  if (!IsAsan()) exit(0);
}

TEST(asan, test) {
  char *p;
  p = gc(malloc(3));
  EXPECT_TRUE(__asan_is_valid(0, 0));
  EXPECT_TRUE(__asan_is_valid(p, 3));
  EXPECT_FALSE(__asan_is_valid(p, 4));
  EXPECT_TRUE(__asan_is_valid(p + 1, 2));
  EXPECT_FALSE(__asan_is_valid(p + 1, 3));
  p = gc(malloc(8 + 3));
  EXPECT_TRUE(__asan_is_valid(p, 8 + 3));
  EXPECT_FALSE(__asan_is_valid(p, 8 + 4));
  EXPECT_TRUE(__asan_is_valid(p + 1, 8 + 2));
  EXPECT_FALSE(__asan_is_valid(p + 1, 8 + 3));
  p = gc(malloc(64 + 3));
  EXPECT_TRUE(__asan_is_valid(p, 64 + 3));
  EXPECT_FALSE(__asan_is_valid(p, 64 + 4));
  EXPECT_TRUE(__asan_is_valid(p + 1, 64 + 2));
  EXPECT_FALSE(__asan_is_valid(p + 1, 64 + 3));
  EXPECT_FALSE(__asan_is_valid(p - 1, 64));
}

TEST(asan, test2) {
  char *p;
  p = gc(memalign(16, 64));
  // asan design precludes this kind of poisoning
  __asan_poison(p + 1, 1, kAsanProtected);
  EXPECT_TRUE(__asan_is_valid(p, 2));
  EXPECT_TRUE(__asan_is_valid(p + 1, 2));
  // but we can do this
  __asan_poison(p + 7, 1, kAsanProtected);
  EXPECT_TRUE(__asan_is_valid(p + 6, 1));
  EXPECT_FALSE(__asan_is_valid(p + 7, 1));
  EXPECT_TRUE(__asan_is_valid(p + 8, 1));
  EXPECT_FALSE(__asan_is_valid(p + 6, 2));
  EXPECT_FALSE(__asan_is_valid(p + 7, 2));
  EXPECT_FALSE(__asan_is_valid(p + 6, 3));
  __asan_unpoison(p + 7, 1);
  EXPECT_TRUE(__asan_is_valid(p + 6, 3));
}

TEST(asan, testEmptySize_isAlwaysValid) {
  EXPECT_TRUE(__asan_is_valid(0, 0));
  EXPECT_TRUE(__asan_is_valid((void *)(intptr_t)-2, 0));
  EXPECT_TRUE(__asan_is_valid((void *)(intptr_t)9999, 0));
}

TEST(asan, testBigSize_worksFine) {
  char *p;
  p = malloc(64 * 1024);
  EXPECT_TRUE(__asan_is_valid(p, 64 * 1024));
  EXPECT_FALSE(__asan_is_valid(p - 1, 64 * 1024));
  EXPECT_FALSE(__asan_is_valid(p + 1, 64 * 1024));
  EXPECT_TRUE(__asan_is_valid(p + 1, 64 * 1024 - 1));
  free(p);
}

TEST(asan, testUnmappedShadowMemory_doesntSegfault) {
  EXPECT_FALSE(__asan_is_valid(0, 1));
  EXPECT_FALSE(__asan_is_valid((void *)(intptr_t)-1, 1));
  EXPECT_FALSE(__asan_is_valid((void *)(intptr_t)-2, 1));
  EXPECT_FALSE(__asan_is_valid((void *)(intptr_t)9999, 1));
  EXPECT_FALSE(__asan_is_valid(0, 7));
  EXPECT_FALSE(__asan_is_valid((void *)(intptr_t)-1, 7));
  EXPECT_FALSE(__asan_is_valid((void *)(intptr_t)-2, 7));
  EXPECT_FALSE(__asan_is_valid((void *)(intptr_t)9999, 7));
}

TEST(asan, str) {
  char *p;
  int i, j, n, N = 64;
  struct AsanFault f;
  ASSERT_EQ(kAsanNullPage, __asan_check_str(0).kind);
  p = malloc(N);
  for (i = 0; i < N / 2; ++i) {
    for (n = 1; n < N / 2; ++n) {
      __asan_poison(p, i, kAsanProtected);
      __asan_unpoison(p + i, n);
      __asan_poison(p + i + n, N - i - n, kAsanProtected);
      for (j = 0; j < n; ++j) {
        p[i + j + 0] = j < n - 1;
      }
      // test valid string
      f = __asan_check_str(p + i);
      ASSERT_EQ(0, f.kind);
      ASSERT_EQ(0, f.shadow);
      // test pointer underrun
      f = __asan_check_str(p + i - 1);
      if (!i) {
        ASSERT_EQ(kAsanHeapUnderrun, f.kind);
      } else if (!((intptr_t)(p + i) & 7)) {
        ASSERT_EQ(kAsanProtected, f.kind);
      }
      // test missing nul terminator
      p[i + n - 1] = 1;
      f = __asan_check_str(p + i);
      if (i + n == N) {
        ASSERT_EQ(kAsanHeapOverrun, f.kind);
      } else if (i + n + 8 <= N) {
        ASSERT_EQ(kAsanProtected, f.kind);
      } else {
        ASSERT_EQ(kAsanHeapOverrun, f.kind);
      }
    }
  }
  __asan_unpoison(p, N);
  free(p);
}

BENCH(asan, bench) {
  char *p;
  size_t n, m;
  m = 4 * 1024 * 1024;
  p = gc(malloc(m));
  EZBENCH_N("__asan_check", 0, EXPROPRIATE(__asan_check(p, 0).kind));
  for (n = 2; n <= m; n *= 2) {
    EZBENCH_N("__asan_check", n, EXPROPRIATE(__asan_check(p, n).kind));
  }
  memset(p, 1, m);
  for (n = m; n >= 2; n /= 2) {
    EZBENCH_N("__asan_check_str", n,
              (p[n - 1] = 0, EXPROPRIATE(__asan_check_str(p).kind)));
  }
}