// SPDX-License-Identifier: GPL-2.0-only
/*
 * Memory fault handling for Hexagon
 *
 * Copyright (c) 2010-2011, The Linux Foundation. All rights reserved.
 */

/*
 * Page fault handling for the Hexagon Virtual Machine.
 * Can also be called by a native port emulating the HVM
 * execptions.
 */

#include <asm/traps.h>
#include <asm/vm_fault.h>
#include <linux/uaccess.h>
#include <linux/mm.h>
#include <linux/sched/signal.h>
#include <linux/signal.h>
#include <linux/extable.h>
#include <linux/hardirq.h>
#include <linux/perf_event.h>

/*
 * Decode of hardware exception sends us to one of several
 * entry points.  At each, we generate canonical arguments
 * for handling by the abstract memory management code.
 */
#define FLT_IFETCH     -1
#define FLT_LOAD        0
#define FLT_STORE       1


/*
 * Canonical page fault handler
 */
static void do_page_fault(unsigned long address, long cause, struct pt_regs *regs)
{
        struct vm_area_struct *vma;
        struct mm_struct *mm = current->mm;
        int si_signo;
        int si_code = SEGV_MAPERR;
        vm_fault_t fault;
        const struct exception_table_entry *fixup;
        unsigned int flags = FAULT_FLAG_DEFAULT;

        /*
         * If we're in an interrupt or have no user context,
         * then must not take the fault.
         */
        if (unlikely(in_interrupt() || !mm))
                goto no_context;

        local_irq_enable();

        if (user_mode(regs))
                flags |= FAULT_FLAG_USER;

        perf_sw_event(PERF_COUNT_SW_PAGE_FAULTS, 1, regs, address);
retry:
        vma = lock_mm_and_find_vma(mm, address, regs);
        if (unlikely(!vma))
                goto bad_area_nosemaphore;

        /* Address space is OK.  Now check access rights. */
        si_code = SEGV_ACCERR;

        switch (cause) {
        case FLT_IFETCH:
                if (!(vma->vm_flags & VM_EXEC))
                        goto bad_area;
                break;
        case FLT_LOAD:
                if (!(vma->vm_flags & VM_READ))
                        goto bad_area;
                break;
        case FLT_STORE:
                if (!(vma->vm_flags & VM_WRITE))
                        goto bad_area;
                flags |= FAULT_FLAG_WRITE;
                break;
        }

        fault = handle_mm_fault(vma, address, flags, regs);

        if (fault_signal_pending(fault, regs)) {
                if (!user_mode(regs))
                        goto no_context;
                return;
        }

        /* The fault is fully completed (including releasing mmap lock) */
        if (fault & VM_FAULT_COMPLETED)
                return;

        /* The most common case -- we are done. */
        if (likely(!(fault & VM_FAULT_ERROR))) {
                if (fault & VM_FAULT_RETRY) {
                        flags |= FAULT_FLAG_TRIED;
                        goto retry;
                }

                mmap_read_unlock(mm);
                return;
        }

        mmap_read_unlock(mm);

        /* Handle copyin/out exception cases */
        if (!user_mode(regs))
                goto no_context;

        if (fault & VM_FAULT_OOM) {
                pagefault_out_of_memory();
                return;
        }

        /* User-mode address is in the memory map, but we are
         * unable to fix up the page fault.
         */
        if (fault & VM_FAULT_SIGBUS) {
                si_signo = SIGBUS;
                si_code = BUS_ADRERR;
        }
        /* Address is not in the memory map */
        else {
                si_signo = SIGSEGV;
                si_code  = SEGV_ACCERR;
        }
        force_sig_fault(si_signo, si_code, (void __user *)address);
        return;

bad_area:
        mmap_read_unlock(mm);

bad_area_nosemaphore:
        if (user_mode(regs)) {
                force_sig_fault(SIGSEGV, si_code, (void __user *)address);
                return;
        }
        /* Kernel-mode fault falls through */

no_context:
        fixup = search_exception_tables(pt_elr(regs));
        if (fixup) {
                pt_set_elr(regs, fixup->fixup);
                return;
        }

        /* Things are looking very, very bad now */
        bust_spinlocks(1);
        printk(KERN_EMERG "Unable to handle kernel paging request at "
                "virtual address 0x%08lx, regs %p\n", address, regs);
        die("Bad Kernel VA", regs, SIGKILL);
}


void read_protection_fault(struct pt_regs *regs)
{
        unsigned long badvadr = pt_badva(regs);

        do_page_fault(badvadr, FLT_LOAD, regs);
}

void write_protection_fault(struct pt_regs *regs)
{
        unsigned long badvadr = pt_badva(regs);

        do_page_fault(badvadr, FLT_STORE, regs);
}

void execute_protection_fault(struct pt_regs *regs)
{
        unsigned long badvadr = pt_badva(regs);

        do_page_fault(badvadr, FLT_IFETCH, regs);
}