Return to ax.c CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / apl / src

Annotation of 43BSD/contrib/apl/src/ax.c, revision 1.1

1.1     ! root        1: static char Sccsid[] = "ax.c @(#)ax.c  1.1     10/1/82 Berkeley ";
        !             2: #
        !             3: 
        !             4: /*
        !             5:  *     Floating-point initialization and trap service
        !             6:  *
        !             7:  *     On the PDP-11's the code in "ax.pdp.s" is preferred
        !             8:  *     since it enables the FPP for all floating exception
        !             9:  *     traps and fishes out the cause of an exception from
        !            10:  *     the FPP error register.
        !            11:  */
        !            12: 
        !            13: #include <signal.h>
        !            14: 
        !            15: #ifdef vax
        !            16: char *fpelist[] = {
        !            17:        "floating exception",
        !            18:        "integer overflow",
        !            19:        "integer divide by zero",
        !            20:        "floating overflow",
        !            21:        "floating divide by zero",
        !            22:        "floating underflow",
        !            23:        "decimal overflow",
        !            24:        "subscript range",
        !            25:        "floating overflow",
        !            26:        "floating divide by zero",
        !            27:        "floating underflow"
        !            28: };
        !            29: 
        !            30: fpe(signo, param)
        !            31: unsigned param;
        !            32: {
        !            33:        signal(SIGFPE, fpe);
        !            34:        if (param >= sizeof fpelist/sizeof fpelist[0])
        !            35:                error("floating exception");
        !            36:        else
        !            37:                error(fpelist[param]);
        !            38: }
        !            39: #else
        !            40: fpe()
        !            41: {
        !            42:        signal(SIGFPE, fpe);
        !            43:        error("floating exception");
        !            44: }
        !            45: #endif
        !            46: 
        !            47: fppinit()
        !            48: {
        !            49:        signal(SIGFPE, fpe);
        !            50: }

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