Return to div_by_0_test.c CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / d / fpevent

Annotation of cci/d/fpevent/div_by_0_test.c, revision 1.1.1.1

1.1       root        1: 
                      2: #include "evt_defs.h"
                      3: 
                      4: /*
                      5:  ********************************************************************
                      6:  *
                      7:  *     MONITOR FOR THE FPP DIVIDE BY ZERO EVENT TEST
                      8:  *
                      9:  *  26-Mar-85  JJM: written
                     10:  *
                     11:  ********************************************************************
                     12: */
                     13: div_by_0_test()
                     14: {
                     15:        event_msg = "Divide By ZERO";
                     16:        test_event = ARITH_CODE;        /* expect an arithmetic fault */
                     17:        exp_code = FLT_0_DIV_CODE;      /*  -specificly divide by 0   */
                     18:        disable_mask = 0;               /* don't disable any events   */
                     19:        evt_disabled = FALSE;           /* expected event is enabled  */
                     20:        if( evt_inst )                  /* was the op-code specified? */
                     21:        {
                     22:              if( evt_inst == DIVF_OP_CODE ) 
                     23:                   run_divf();          /* test the DIVF instruction */
                     24:              else if( evt_inst == DIVD_OP_CODE ) 
                     25:                   run_divd();          /* test the DIVD instruction */
                     26:              else if( (prt_hdrs) && (cycle == 1) ) 
                     27:              {
                     28:                   writes("There are no DIVIDE BY ZERO faults with op-code ");
                     29:                   writeh( evt_inst );  /* print the ersatz op-code  */
                     30:                   writec('\n');
                     31:                   error = TRUE;        /* needed for line feed control */
                     32:              }
                     33:        } 
                     34:         else   /* test both DIVF and DIVD */
                     35:        {
                     36:             run_divf();                /* test the DIVF instruction */
                     37:             run_divd();                /* test the DIVD instruction */
                     38:        }
                     39: }
                     40:  
                     41: 
                     42: 
                     43: 
                     44: /*
                     45:  **********************************************************************
                     46:  *
                     47:  *     SET UP TO TEST DIVIDE BY ZERO WITH THE DIVF INSTRUCTION
                     48:  *
                     49:  **********************************************************************
                     50: */
                     51: run_divf()
                     52: {
                     53:        op_code     = DIVF_OP_CODE;     /* set the inst's op_code */
                     54:        op_name     = "DIVF ";          /* set the inst's name */
                     55:        precision   = SGL;
                     56:        acc_ld_size = SGL;              /* load a single precision Acc. */
                     57:        sgl_op      = TRUE;
                     58:        valid_test  = TRUE;             /* we're running a test */
                     59:        data_ptr    = zero_divide_data; /* set the data ptr */
                     60:        max_index   = zero_divide_cnt;  /* set the max index */
                     61:        if( (prt_hdrs) && (cycle == 1) ) 
                     62:             writes( op_name );
                     63:        test_inst();
                     64: }
                     65: 
                     66: 
                     67: 
                     68: /*
                     69:  **********************************************************************
                     70:  *
                     71:  *     SET UP TO TEST DIVIDE BY ZERO WITH THE DIVD INSTRUCTION
                     72:  *
                     73:  **********************************************************************
                     74: */
                     75: run_divd()
                     76: {
                     77:        op_code     = DIVD_OP_CODE;     /* set the inst's op_code */
                     78:        op_name     = "DIVD ";          /* set the inst's name */
                     79:        precision   = DBL;
                     80:        acc_ld_size = DBL;              /* load a double precision Acc. */
                     81:        sgl_op      = FALSE;
                     82:        valid_test  = TRUE;             /* we're running a test */
                     83:        data_ptr    = zero_divide_data; /* set the data ptr */
                     84:        max_index   = zero_divide_cnt;  /* set the max index */
                     85:        if( (prt_hdrs) && (cycle == 1) ) 
                     86:             writes( op_name );
                     87:        test_inst();
                     88: }

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