Return to EXCEPT.c CVS log

Up to [CSRG BSD Unix] / 42BSD / usr.lib / libpc

Annotation of 42BSD/usr.lib/libpc/EXCEPT.c, revision 1.1

1.1     ! root        1: /* Copyright (c) 1982 Regents of the University of California */
        !             2: 
        !             3: static char sccsid[] = "@(#)EXCEPT.c 1.3 1/10/83";
        !             4: 
        !             5: #include       <signal.h>
        !             6: 
        !             7: /*
        !             8:  * catch runtime arithmetic errors
        !             9:  */
        !            10: EXCEPT(signum, type)
        !            11:        int signum, type;
        !            12: {
        !            13:        signal(SIGFPE, EXCEPT);
        !            14: #ifndef vax
        !            15:        ERROR("Overflow, underflow, or division by zero in arithmetic operation\n");
        !            16:        return;
        !            17: #endif notvax
        !            18: #ifdef vax
        !            19:        /*
        !            20:         * The values for this switch statement come from page 12-5 of
        !            21:         * Volume 1 of the 1978 VAX 11/780 Architecture Handbook
        !            22:         */
        !            23:        switch (type) {
        !            24:        case 1:
        !            25:                ERROR("Integer overflow\n");
        !            26:                return;
        !            27:        case 2:
        !            28:                ERROR("Integer division by zero\n");
        !            29:                return;
        !            30:        case 3:
        !            31:                ERROR("Real overflow\n");
        !            32:                return;
        !            33:        case 4:
        !            34:                ERROR("Real division by zero\n");
        !            35:                return;
        !            36:        case 5:
        !            37:                ERROR("Real underflow\n");
        !            38:                return;
        !            39:        default:
        !            40:                ERROR("Panic: Computational error in interpreter\n");
        !            41:                return;
        !            42:        }
        !            43: #endif vax
        !            44: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.