panic.c

/*************************************************************************
*                                                                        *
*   Modulo di procedure invocate in casi estremi                         *
*                                                                        *
*   realizzato dal Gruppo 17 di Lab2 Anno Accademico 1995/96             *
*                                                                        *
*   Lorenzo     Claudio       Valerio    Riccardo    Emiliano            *
*   Coronati    Lanconelli    Paolini    Solmi       Trentini            *
*                                                                        *
**************************************************************************/

#include "../h/types.h"
#include "../h/globals.e"

void
shutdown(str)
char *str;
{
    error(str);

#ifdef  NUC_DEBUG
    error("      ");
#endif

    termProc(SSI);
}

void
panic(str)
char *str;
{
    error(str);

#ifdef  NUC_DEBUG
    error("      ");
#endif

    HALT();
}

#ifdef  NUC_DEBUG
#define MSGBUFSIZE  01400
#else
#define MSGBUFSIZE  32
#endif

/*
 * errbuf e' utilizzato per visualizzare un messaggio di errore
 * all'interno dell'emulatore
 */
char errbuf[MSGBUFSIZE + 2];
HIDDEN char *msg_p = errbuf;

void
error(str)
char *str;
{
    while ((*msg_p++ = *str++) != '\0')
        if (msg_p > errbuf + MSGBUFSIZE)
            msg_p = errbuf;
}