// SPDX-License-Identifier: GPL-2.0
#include <linux/perf_event.h>
#include <cpuid.h>
#include <errno.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/ioctl.h>
#include <sys/syscall.h>
#include <unistd.h>

int main(void)
{
 struct perf_event_attr ret_attr, mret_attr;
 long long count_rets, count_rets_mispred;
 int rrets_fd, mrrets_fd;
 unsigned int cpuid1_eax, b, c, d;

 __cpuid(1, cpuid1_eax, b, c, d);

 if (cpuid1_eax < 0x00800f00 ||
     cpuid1_eax > 0x00afffff) {
  fprintf(stderr, "This needs to run on a Zen[1-4] machine (CPUID(1).EAX: 0x%x). Exiting...\n", cpuid1_eax);
  exit(EXIT_FAILURE);
 }

 memset(&ret_attr, 0, sizeof(struct perf_event_attr));
 memset(&mret_attr, 0, sizeof(struct perf_event_attr));

 ret_attr.type = mret_attr.type = PERF_TYPE_RAW;
 ret_attr.size = mret_attr.size = sizeof(struct perf_event_attr);
 ret_attr.config = 0xc8;
 mret_attr.config = 0xc9;
 ret_attr.disabled = mret_attr.disabled = 1;
 ret_attr.exclude_user = mret_attr.exclude_user = 1;
 ret_attr.exclude_hv = mret_attr.exclude_hv = 1;

 rrets_fd = syscall(SYS_perf_event_open, &ret_attr, 0, -1, -1, 0);
 if (rrets_fd == -1) {
  perror("opening retired RETs fd");
  exit(EXIT_FAILURE);
 }

 mrrets_fd = syscall(SYS_perf_event_open, &mret_attr, 0, -1, -1, 0);
 if (mrrets_fd == -1) {
  perror("opening retired mispredicted RETs fd");
  exit(EXIT_FAILURE);
 }

 ioctl(rrets_fd, PERF_EVENT_IOC_RESET, 0);
 ioctl(mrrets_fd, PERF_EVENT_IOC_RESET, 0);

 ioctl(rrets_fd, PERF_EVENT_IOC_ENABLE, 0);
 ioctl(mrrets_fd, PERF_EVENT_IOC_ENABLE, 0);

 printf("Sleeping for 10 seconds\n");
 sleep(10);

 ioctl(rrets_fd, PERF_EVENT_IOC_DISABLE, 0);
 ioctl(mrrets_fd, PERF_EVENT_IOC_DISABLE, 0);

 read(rrets_fd, &count_rets, sizeof(long long));
 read(mrrets_fd, &count_rets_mispred, sizeof(long long));

 printf("RETs: (%lld retired <-> %lld mispredicted)\n",
  count_rets, count_rets_mispred);
 printf("SRSO Safe-RET mitigation works correctly if both counts are almost equal.\n");

 return 0;
}