// SPDX-License-Identifier: GPL-2.0
/*
 * Test that we can take signals with and without the VDSO mapped, which trigger
 * different paths in the signal handling code.
 *
 * See handle_rt_signal64() and setup_trampoline() in signal_64.c
 */

#define _GNU_SOURCE

#include <errno.h>
#include <stdio.h>
#include <signal.h>
#include <stdlib.h>
#include <string.h>
#include <sys/mman.h>
#include <sys/types.h>
#include <unistd.h>

// Ensure assert() is not compiled out
#undef NDEBUG
#include <assert.h>

#include "utils.h"

static int search_proc_maps(char *needle, unsigned long *low, unsigned long *high)
{
        unsigned long start, end;
        static char buf[4096];
        char name[128];
        FILE *f;
        int rc = -1;

        f = fopen("/proc/self/maps", "r");
        if (!f) {
                perror("fopen");
                return -1;
        }

        while (fgets(buf, sizeof(buf), f)) {
                rc = sscanf(buf, "%lx-%lx %*c%*c%*c%*c %*x %*d:%*d %*d %127s\n",
                            &start, &end, name);
                if (rc == 2)
                        continue;

                if (rc != 3) {
                        printf("sscanf errored\n");
                        rc = -1;
                        break;
                }

                if (strstr(name, needle)) {
                        *low = start;
                        *high = end - 1;
                        rc = 0;
                        break;
                }
        }

        fclose(f);

        return rc;
}

static volatile sig_atomic_t took_signal = 0;

static void sigusr1_handler(int sig)
{
        took_signal++;
}

int test_sigreturn_vdso(void)
{
        unsigned long low, high, size;
        struct sigaction act;
        char *p;

        act.sa_handler = sigusr1_handler;
        act.sa_flags = 0;
        sigemptyset(&act.sa_mask);

        assert(sigaction(SIGUSR1, &act, NULL) == 0);

        // Confirm the VDSO is mapped, and work out where it is
        assert(search_proc_maps("[vdso]", &low, &high) == 0);
        size = high - low + 1;
        printf("VDSO is at 0x%lx-0x%lx (%lu bytes)\n", low, high, size);

        kill(getpid(), SIGUSR1);
        assert(took_signal == 1);
        printf("Signal delivered OK with VDSO mapped\n");

        // Remap the VDSO somewhere else
        p = mmap(NULL, size, PROT_READ|PROT_WRITE, MAP_ANONYMOUS|MAP_PRIVATE, -1, 0);
        assert(p != MAP_FAILED);
        assert(mremap((void *)low, size, size, MREMAP_MAYMOVE|MREMAP_FIXED, p) != MAP_FAILED);
        assert(search_proc_maps("[vdso]", &low, &high) == 0);
        size = high - low + 1;
        printf("VDSO moved to 0x%lx-0x%lx (%lu bytes)\n", low, high, size);

        kill(getpid(), SIGUSR1);
        assert(took_signal == 2);
        printf("Signal delivered OK with VDSO moved\n");

        assert(munmap((void *)low, size) == 0);
        printf("Unmapped VDSO\n");

        // Confirm the VDSO is not mapped anymore
        assert(search_proc_maps("[vdso]", &low, &high) != 0);

        // Make the stack executable
        assert(search_proc_maps("[stack]", &low, &high) == 0);
        size = high - low + 1;
        mprotect((void *)low, size, PROT_READ|PROT_WRITE|PROT_EXEC);
        printf("Remapped the stack executable\n");

        kill(getpid(), SIGUSR1);
        assert(took_signal == 3);
        printf("Signal delivered OK with VDSO unmapped\n");

        return 0;
}

int main(void)
{
        return test_harness(test_sigreturn_vdso, "sigreturn_vdso");
}