138494Sobrien/*
238494Sobrien * strcmp test.
342629Sobrien *
438494Sobrien * Copyright (c) 2019-2022, Arm Limited.
538494Sobrien * SPDX-License-Identifier: MIT OR Apache-2.0 WITH LLVM-exception
638494Sobrien */
742629Sobrien
838494Sobrien#include <stdint.h>
942629Sobrien#include <stdio.h>
1038494Sobrien#include <stdlib.h>
1138494Sobrien#include <string.h>
1238494Sobrien#include "mte.h"
1338494Sobrien#include "stringlib.h"
1438494Sobrien#include "stringtest.h"
1538494Sobrien
1638494Sobrien#define F(x, mte) {#x, x, mte},
1738494Sobrien
1838494Sobrienstatic const struct fun
1938494Sobrien{
2038494Sobrien  const char *name;
2138494Sobrien  int (*fun) (const char *s1, const char *s2);
2238494Sobrien  int test_mte;
2338494Sobrien} funtab[] = {
2438494Sobrien  // clang-format off
2538494Sobrien  F(strcmp, 0)
2638494Sobrien#if __aarch64__
2738494Sobrien  F(__strcmp_aarch64, 1)
2838494Sobrien# if __ARM_FEATURE_SVE
2938494Sobrien  F(__strcmp_aarch64_sve, 1)
3038494Sobrien# endif
3138494Sobrien#elif __arm__
3238494Sobrien# if __ARM_ARCH >= 7 && __ARM_ARCH_ISA_ARM >= 1
3338494Sobrien  F(__strcmp_arm, 0)
3438494Sobrien# elif __ARM_ARCH == 6 && __ARM_ARCH_6M__ >= 1
3538494Sobrien  F(__strcmp_armv6m, 0)
3638494Sobrien# endif
3738494Sobrien#endif
3838494Sobrien  {0, 0, 0}
3938494Sobrien  // clang-format on
4038494Sobrien};
4138494Sobrien#undef F
4238494Sobrien
4338494Sobrien#define A 32
4438494Sobrien#define LEN 250000
4538494Sobrienstatic char *s1buf;
4638494Sobrienstatic char *s2buf;
4738494Sobrien
4838494Sobrienstatic void *
4938494Sobrienalignup (void *p)
5038494Sobrien{
5138494Sobrien  return (void *) (((uintptr_t) p + A - 1) & -A);
5238494Sobrien}
5338494Sobrien
5438494Sobrienstatic void
5538494Sobrientest (const struct fun *fun, int s1align, int s2align, int len, int diffpos,
5638494Sobrien      int delta)
5738494Sobrien{
5838494Sobrien  char *src1 = alignup (s1buf);
5938494Sobrien  char *src2 = alignup (s2buf);
6038494Sobrien  char *s1 = src1 + s1align;
6138494Sobrien  char *s2 = src2 + s2align;
6238494Sobrien  int r;
6338494Sobrien
6438494Sobrien  if (err_count >= ERR_LIMIT)
6538494Sobrien    return;
6638494Sobrien  if (len > LEN || s1align >= A || s2align >= A)
6738494Sobrien    abort ();
6838494Sobrien  if (diffpos >= len)
6938494Sobrien    abort ();
7038494Sobrien  if ((diffpos < 0) != (delta == 0))
7138494Sobrien    abort ();
7238494Sobrien
7338494Sobrien  for (int i = 0; i < len + A; i++)
7438494Sobrien    src1[i] = src2[i] = '?';
7538494Sobrien  for (int i = 0; i < len; i++)
7638494Sobrien    s1[i] = s2[i] = 'a' + i % 23;
7738494Sobrien  if (delta)
7838494Sobrien    s1[diffpos] += delta;
7938494Sobrien  s1[len] = s2[len] = '\0';
8038494Sobrien
8138494Sobrien  s1 = tag_buffer (s1, len + 1, fun->test_mte);
8238494Sobrien  s2 = tag_buffer (s2, len + 1, fun->test_mte);
8338494Sobrien  r = fun->fun (s1, s2);
8438494Sobrien  untag_buffer (s1, len + 1, fun->test_mte);
8538494Sobrien  untag_buffer (s2, len + 1, fun->test_mte);
8638494Sobrien
8738494Sobrien  if ((delta == 0 && r != 0) || (delta > 0 && r <= 0) || (delta < 0 && r >= 0))
8838494Sobrien    {
8938494Sobrien      ERR ("%s(align %d, align %d, %d) failed, returned %d\n", fun->name,
9038494Sobrien	   s1align, s2align, len, r);
9138494Sobrien      quoteat ("src1", src1, len + A, diffpos);
9238494Sobrien      quoteat ("src2", src2, len + A, diffpos);
9338494Sobrien    }
9438494Sobrien}
9538494Sobrien
9638494Sobrienint
9738494Sobrienmain ()
9838494Sobrien{
9938494Sobrien  s1buf = mte_mmap (LEN + 2 * A + 1);
10038494Sobrien  s2buf = mte_mmap (LEN + 2 * A + 1);
10138494Sobrien  int r = 0;
10238494Sobrien  for (int i = 0; funtab[i].name; i++)
10338494Sobrien    {
10438494Sobrien      err_count = 0;
10538494Sobrien      for (int d = 0; d < A; d++)
106	for (int s = 0; s < A; s++)
107	  {
108	    int n;
109	    test (funtab + i, d, s, 0, -1, 0);
110	    test (funtab + i, d, s, 1, -1, 0);
111	    test (funtab + i, d, s, 1, 0, 1);
112	    test (funtab + i, d, s, 1, 0, -1);
113	    for (n = 2; n < 100; n++)
114	      {
115		test (funtab + i, d, s, n, -1, 0);
116		test (funtab + i, d, s, n, n - 1, -1);
117		test (funtab + i, d, s, n, n / 2, 1);
118	      }
119	    for (; n < LEN; n *= 2)
120	      {
121		test (funtab + i, d, s, n, -1, 0);
122		test (funtab + i, d, s, n, n / 2, -1);
123	      }
124	  }
125      char *pass = funtab[i].test_mte && mte_enabled () ? "MTE PASS" : "PASS";
126      printf ("%s %s\n", err_count ? "FAIL" : pass, funtab[i].name);
127      if (err_count)
128	r = -1;
129    }
130  return r;
131}
132