// 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;
}