// SPDX-License-Identifier: GPL-2.0-or-later
/*
 *
 * Copyright (c) 2005 Linas Vepstas <linas@linas.org>
 */

#include <linux/delay.h>
#include <linux/list.h>
#include <linux/sched.h>
#include <linux/semaphore.h>
#include <linux/pci.h>
#include <linux/slab.h>
#include <linux/kthread.h>
#include <asm/eeh_event.h>
#include <asm/ppc-pci.h>

/** Overview:
 *  EEH error states may be detected within exception handlers;
 *  however, the recovery processing needs to occur asynchronously
 *  in a normal kernel context and not an interrupt context.
 *  This pair of routines creates an event and queues it onto a
 *  work-queue, where a worker thread can drive recovery.
 */

static DEFINE_SPINLOCK(eeh_eventlist_lock);
static DECLARE_COMPLETION(eeh_eventlist_event);
static LIST_HEAD(eeh_eventlist);

/**
 * eeh_event_handler - Dispatch EEH events.
 * @dummy - unused
 *
 * The detection of a frozen slot can occur inside an interrupt,
 * where it can be hard to do anything about it.  The goal of this
 * routine is to pull these detection events out of the context
 * of the interrupt handler, and re-dispatch them for processing
 * at a later time in a normal context.
 */
static int eeh_event_handler(void * dummy)
{
        unsigned long flags;
        struct eeh_event *event;

        while (!kthread_should_stop()) {
                if (wait_for_completion_interruptible(&eeh_eventlist_event))
                        break;

                /* Fetch EEH event from the queue */
                spin_lock_irqsave(&eeh_eventlist_lock, flags);
                event = NULL;
                if (!list_empty(&eeh_eventlist)) {
                        event = list_entry(eeh_eventlist.next,
                                           struct eeh_event, list);
                        list_del(&event->list);
                }
                spin_unlock_irqrestore(&eeh_eventlist_lock, flags);
                if (!event)
                        continue;

                /* We might have event without binding PE */
                if (event->pe)
                        eeh_handle_normal_event(event->pe);
                else
                        eeh_handle_special_event();

                kfree(event);
        }

        return 0;
}

/**
 * eeh_event_init - Start kernel thread to handle EEH events
 *
 * This routine is called to start the kernel thread for processing
 * EEH event.
 */
int eeh_event_init(void)
{
        struct task_struct *t;
        int ret = 0;

        t = kthread_run(eeh_event_handler, NULL, "eehd");
        if (IS_ERR(t)) {
                ret = PTR_ERR(t);
                pr_err("%s: Failed to start EEH daemon (%d)\n",
                        __func__, ret);
                return ret;
        }

        return 0;
}

/**
 * eeh_send_failure_event - Generate a PCI error event
 * @pe: EEH PE
 *
 * This routine can be called within an interrupt context;
 * the actual event will be delivered in a normal context
 * (from a workqueue).
 */
int __eeh_send_failure_event(struct eeh_pe *pe)
{
        unsigned long flags;
        struct eeh_event *event;

        event = kzalloc_obj(*event, GFP_ATOMIC);
        if (!event) {
                pr_err("EEH: out of memory, event not handled\n");
                return -ENOMEM;
        }
        event->pe = pe;

        /*
         * Mark the PE as recovering before inserting it in the queue.
         * This prevents the PE from being free()ed by a hotplug driver
         * while the PE is sitting in the event queue.
         */
        if (pe) {
#ifdef CONFIG_STACKTRACE
                /*
                 * Save the current stack trace so we can dump it from the
                 * event handler thread.
                 */
                pe->trace_entries = stack_trace_save(pe->stack_trace,
                                         ARRAY_SIZE(pe->stack_trace), 0);
#endif /* CONFIG_STACKTRACE */

                eeh_pe_state_mark(pe, EEH_PE_RECOVERING);
        }

        /* We may or may not be called in an interrupt context */
        spin_lock_irqsave(&eeh_eventlist_lock, flags);
        list_add(&event->list, &eeh_eventlist);
        spin_unlock_irqrestore(&eeh_eventlist_lock, flags);

        /* For EEH deamon to knick in */
        complete(&eeh_eventlist_event);

        return 0;
}

int eeh_send_failure_event(struct eeh_pe *pe)
{
        /*
         * If we've manually suppressed recovery events via debugfs
         * then just drop it on the floor.
         */
        if (eeh_debugfs_no_recover) {
                pr_err("EEH: Event dropped due to no_recover setting\n");
                return 0;
        }

        return __eeh_send_failure_event(pe);
}

/**
 * eeh_remove_event - Remove EEH event from the queue
 * @pe: Event binding to the PE
 * @force: Event will be removed unconditionally
 *
 * On PowerNV platform, we might have subsequent coming events
 * is part of the former one. For that case, those subsequent
 * coming events are totally duplicated and unnecessary, thus
 * they should be removed.
 */
void eeh_remove_event(struct eeh_pe *pe, bool force)
{
        unsigned long flags;
        struct eeh_event *event, *tmp;

        /*
         * If we have NULL PE passed in, we have dead IOC
         * or we're sure we can report all existing errors
         * by the caller.
         *
         * With "force", the event with associated PE that
         * have been isolated, the event won't be removed
         * to avoid event lost.
         */
        spin_lock_irqsave(&eeh_eventlist_lock, flags);
        list_for_each_entry_safe(event, tmp, &eeh_eventlist, list) {
                if (!force && event->pe &&
                    (event->pe->state & EEH_PE_ISOLATED))
                        continue;

                if (!pe) {
                        list_del(&event->list);
                        kfree(event);
                } else if (pe->type & EEH_PE_PHB) {
                        if (event->pe && event->pe->phb == pe->phb) {
                                list_del(&event->list);
                                kfree(event);
                        }
                } else if (event->pe == pe) {
                        list_del(&event->list);
                        kfree(event);
                }
        }
        spin_unlock_irqrestore(&eeh_eventlist_lock, flags);
}