Return to EXCEPT.c CVS log

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

Annotation of 43BSD/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.4 10/1/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 FPE_INTOVF_TRAP:
        !            25:                ERROR("Integer overflow\n");
        !            26:                return;
        !            27:        case FPE_INTDIV_TRAP:
        !            28:                ERROR("Integer division by zero\n");
        !            29:                return;
        !            30:        case FPE_FLTOVF_TRAP:
        !            31:        case FPE_FLTOVF_FAULT:
        !            32:                ERROR("Real overflow\n");
        !            33:                return;
        !            34:        case FPE_FLTDIV_TRAP:
        !            35:        case FPE_FLTDIV_FAULT:
        !            36:                ERROR("Real division by zero\n");
        !            37:                return;
        !            38:        case FPE_FLTUND_TRAP:
        !            39:        case FPE_FLTUND_FAULT:
        !            40:                ERROR("Real underflow\n");
        !            41:                return;
        !            42:        case FPE_DECOVF_TRAP:
        !            43:        case FPE_SUBRNG_TRAP:
        !            44:        default:
        !            45:                ERROR("Undefined arithmetic exception type (%d)\n", type);
        !            46:                return;
        !            47:        }
        !            48: #endif vax
        !            49: }

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