// SPDX-License-Identifier: GPL-2.0
/*
 * Copyright (C) 2021 ARM Limited
 *
 * Verify that the ZA register context in signal frames is set up as
 * expected.
 */

#include <kselftest.h>
#include <signal.h>
#include <ucontext.h>
#include <sys/prctl.h>

#include "test_signals_utils.h"
#include "sve_helpers.h"
#include "testcases.h"

static union {
 ucontext_t uc;
 char buf[1024 * 128];
} context;

static bool sme_get_vls(struct tdescr *td)
{
 int res = sve_fill_vls(VLS_USE_SME, 1);

 if (!res)
  return true;

 if (res == KSFT_SKIP)
  td->result = KSFT_SKIP;

 return false;
}

static void setup_za_regs(void)
{
 /* smstart za; real data is TODO */
 asm volatile(".inst 0xd503457f" : : : );
}

static char zeros[ZA_SIG_REGS_SIZE(SVE_VQ_MAX)];

static int do_one_sme_vl(struct tdescr *td, siginfo_t *si, ucontext_t *uc,
    unsigned int vl)
{
 size_t offset;
 struct _aarch64_ctx *head = GET_BUF_RESV_HEAD(context);
 struct za_context *za;

 fprintf(stderr, "Testing VL %d\n", vl);

 if (prctl(PR_SME_SET_VL, vl) != vl) {
  fprintf(stderr, "Failed to set VL\n");
  return 1;
 }

 /*
 * Get a signal context which should have a SVE frame and registers
 * in it.
 */
 setup_za_regs();
 if (!get_current_context(td, &context.uc, sizeof(context)))
  return 1;

 head = get_header(head, ZA_MAGIC, GET_BUF_RESV_SIZE(context), &offset);
 if (!head) {
  fprintf(stderr, "No ZA context\n");
  return 1;
 }

 za = (struct za_context *)head;
 if (za->vl != vl) {
  fprintf(stderr, "Got VL %d, expected %d\n", za->vl, vl);
  return 1;
 }

 if (head->size != ZA_SIG_CONTEXT_SIZE(sve_vq_from_vl(vl))) {
  fprintf(stderr, "ZA context size %u, expected %lu\n",
   head->size, ZA_SIG_CONTEXT_SIZE(sve_vq_from_vl(vl)));
  return 1;
 }

 fprintf(stderr, "Got expected size %u and VL %d\n",
  head->size, za->vl);

 /* We didn't load any data into ZA so it should be all zeros */
 if (memcmp(zeros, (char *)za + ZA_SIG_REGS_OFFSET,
     ZA_SIG_REGS_SIZE(sve_vq_from_vl(za->vl))) != 0) {
  fprintf(stderr, "ZA data invalid\n");
  return 1;
 }

 if (get_svcr() != 0) {
  fprintf(stderr, "Unexpected SVCR %lx\n", get_svcr());
  return 1;
 }

 return 0;
}

static int sme_regs(struct tdescr *td, siginfo_t *si, ucontext_t *uc)
{
 int i;

 for (i = 0; i < nvls; i++) {
  if (do_one_sme_vl(td, si, uc, vls[i]))
   return 1;
 }

 td->pass = 1;

 return 0;
}

struct tdescr tde = {
 .name = "ZA register",
 .descr = "Check that we get the right ZA registers reported",
 .feats_required = FEAT_SME,
 .timeout = 3,
 .init = sme_get_vls,
 .run = sme_regs,
};