Return to undfl_test.c CVS log

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

Annotation of cci/d/fpevent/undfl_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 UNDERFLOW EVENT TEST
                      8:  *
                      9:  *  25-Mar-85  JJM: written
                     10:  *  29-Mar-85  JJM: mauled the beast for CVDF (cvdf has ovfl but no undfl)
                     11:  *
                     12:  ********************************************************************
                     13: */
                     14: undfl_test()
                     15: {
                     16:        event_msg = "Underflow";
                     17:        test_event = ARITH_CODE;        /* expect an arithmetic fault */
                     18:        exp_code = FLT_UNDFL_CODE;      /*  -specificly floating underflow */
                     19:        if( evt_inst )                  /* was the op-code specified? */
                     20:        {
                     21:              inst_index = get_ovfl_index( evt_inst );
                     22:              if( (inst_index < 0) || 
                     23:                  (ovfl_tbl[inst_index].undfl_data == null_data) )
                     24:              {
                     25:                    if( (prt_hdrs) && (cycle == 1) ) 
                     26:                    {
                     27:                         writes(
                     28:                          "There are no UNDERFLOW faults with op-code ");
                     29:                         writeh( evt_inst );    /* print the ersatz op-code */
                     30:                         writec('\n');
                     31:                         error = TRUE;          /* needed for line feeds */
                     32:                    }
                     33:              } else 
                     34:                    test_undfl_inst();          /* test the instruction */
                     35:        } else                          /* test all applicable op-codes */
                     36:              for(inst_index=0; inst_index < size_ovfl_tbl; inst_index++)
                     37:              {
                     38:                    data_ptr   =  ovfl_tbl[ inst_index ].undfl_data;
                     39:                    if( data_ptr != null_data )
                     40:                          test_undfl_inst();    /* test the instruction */
                     41:              }
                     42: }
                     43:  
                     44: 
                     45: 
                     46: /*
                     47:  ********************************************************************
                     48:  *
                     49:  *     TEST THE UNDERFLOW EVENT ON AN INSTRUCTION 
                     50:  *
                     51:  ********************************************************************
                     52: */
                     53: test_undfl_inst()
                     54: {
                     55:        valid_test = TRUE;              /* a test is being run */
                     56:        op_code    =  ovfl_tbl[ inst_index ].inst_code;
                     57:        op_name    =  ovfl_tbl[ inst_index ].name;
                     58:        no_ops     =  ovfl_tbl[ inst_index ].no_operands;
                     59:        precision  =  ovfl_tbl[ inst_index ].precision;
                     60:        data_ptr   =  ovfl_tbl[ inst_index ].undfl_data;
                     61:        max_index  = *ovfl_tbl[ inst_index ].undfl_cnt;
                     62:        if( precision == SGL ) {
                     63:             sgl_op = TRUE;
                     64:             acc_ld_size = SGL; /* use a sgl precision Acc. */
                     65:        } else {
                     66:             sgl_op = FALSE;
                     67:             acc_ld_size = DBL; /* use a dbl precision Acc. */
                     68:        }
                     69:        if( (prt_hdrs) && (cycle == 1) ) 
                     70:             writes( op_name );
                     71:        disable_mask = 0;               /* all events enabled   */
                     72:        evt_disabled = FALSE;
                     73:        test_inst();                    /* test the instruction */
                     74:        disable_mask = PSL_EN_UNDFL;    /* disable underflows   */
                     75:        evt_disabled = TRUE;    
                     76:        test_inst();                    /* test the instruction */
                     77: }

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