os-k/kaleid/kernel/ke/panic.c

//----------------------------------------------------------------------------//
//                           GNU GPL OS/K                                     //
//                                                                            //
//  Desc:       How NOT to panic 101                                          //
//                                                                            //
//                                                                            //
//  Copyright © 2018-2019 The OS/K Team                                       //
//                                                                            //
//  This file is part of OS/K.                                                //
//                                                                            //
//  OS/K is free software: you can redistribute it and/or modify              //
//  it under the terms of the GNU General Public License as published by      //
//  the Free Software Foundation, either version 3 of the License, or         //
//  any later version.                                                        //
//                                                                            //
//  OS/K is distributed in the hope that it will be useful,                   //
//  but WITHOUT ANY WARRANTY//without even the implied warranty of            //
//  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the             //
//  GNU General Public License for more details.                              //
//                                                                            //
//  You should have received a copy of the GNU General Public License         //
//  along with OS/K.  If not, see <https://www.gnu.org/licenses/>.            //
//----------------------------------------------------------------------------//

#include <kernel/log.h>
#include <kernel/buf.h>
#include <kernel/proc.h>
#include <kernel/sched.h>
#include <kernel/panic.h>

error_t vbprintf(Buffer_t *buf, const char *fmt, va_list ap);

//
// Failed assert() handler
//
noreturn void __assert_handler(const char *msg,
                               const char *file,
                               int line,
                               const char *func)
{
    KeDisableIRQs();

    KeStartPanic("In function '%s', from '%s' line %d\nAssertion failed:\n"
                  "'%s'", func, file, line, msg);
}

//
// Your best boy panic()
// This is CPU local...
//
noreturn void KeStartPanic(const char *fmt, ...)
{
    va_list ap;

    KeDisableIRQs();

    PsCurProc = NULL;
    if (BStdOut == NULL) KeCrashSystem();

    ExAttemptLock(&BStdOut->lock);

    if (fmt == NULL) {
        fmt = "(no message given)";
    }

    if (KePanicStr[0] != 0) {
        vbprintf(BStdOut, "\nDouble panic!", NULL);
        KeHaltCPU();
    }
    
    KePanicStr[0] = 1;

    // We don't check vbprintf's output
    // If it fails, what could we do anyway?
    
    vbprintf(BStdOut, "\nPanic!\n\n", NULL);
    
    va_start(ap, fmt);
    vbprintf(BStdOut, fmt, ap);
    va_end(ap);
    
    BStdOut->flusher(BStdOut);

    KeHaltCPU();
}

//
// Oh well
//
noreturn void KeCrashSystem(void)
{
    while (1) {
        KeDisableIRQs();
        KeHaltCPU();
    }
}