Return to ovfl_test.c CVS log

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

Annotation of cci/d/fpevent/ovfl_test.c, revision 1.1

1.1     ! root        1: 
        !             2: #include "evt_defs.h"
        !             3: 
        !             4: /*
        !             5:  ********************************************************************
        !             6:  *
        !             7:  *     MONITOR FOR THE FPP OVERFLOW EVENT TEST
        !             8:  *
        !             9:  *  25-Mar-85  JJM: written
        !            10:  *
        !            11:  ********************************************************************
        !            12: */
        !            13: ovfl_test()
        !            14: {
        !            15:        event_msg = "Overflow";
        !            16:        test_event = ARITH_CODE;        /* expect an arithmetic fault */
        !            17:        exp_code = FLT_OVFL_CODE;       /*  -specificly floating overflow */
        !            18:        disable_mask = 0;               /* don't disable any events   */
        !            19:        evt_disabled = FALSE;
        !            20:        if( evt_inst )                  /* was the op-code specified? */
        !            21:        {
        !            22:              inst_index = get_ovfl_index( evt_inst );
        !            23:              if( inst_index < 0 )      /* valid instruction for OVFL? */
        !            24:              {
        !            25:                   if( (prt_hdrs) && (cycle == 1) )  /* not a valid instr */
        !            26:                   {
        !            27:                        writes(
        !            28:                       "There are no floating OVERFLOW faults with op-code ");
        !            29:                        writeh( evt_inst );
        !            30:                        writec('\n');
        !            31:                        error = TRUE;   /* needed for line feed control */
        !            32:                   }
        !            33:              } else 
        !            34:                   test_ovfl_inst();    /* test the instruction */
        !            35:        } else                          /* the op-code wasn't specfied */
        !            36:              for(inst_index=0; inst_index < size_ovfl_tbl; inst_index++)
        !            37:                   test_ovfl_inst();    /* test each ovfl instruction */
        !            38: }
        !            39: 
        !            40: 
        !            41: /*
        !            42:  ********************************************************************
        !            43:  *
        !            44:  *     test the floating overflow event on an instruction
        !            45:  *
        !            46:  ********************************************************************
        !            47: */
        !            48: test_ovfl_inst()
        !            49: {
        !            50:        valid_test = TRUE;              /* a test is being run */
        !            51:        op_code    =  ovfl_tbl[ inst_index ].inst_code;
        !            52:        op_name    =  ovfl_tbl[ inst_index ].name;
        !            53:        no_ops     =  ovfl_tbl[ inst_index ].no_operands;
        !            54:        precision  =  ovfl_tbl[ inst_index ].precision;
        !            55:        data_ptr   =  ovfl_tbl[ inst_index ].ovfl_data;
        !            56:        max_index  = *ovfl_tbl[ inst_index ].ovfl_cnt;
        !            57:        if( precision == SGL ) {
        !            58:             sgl_op = TRUE;
        !            59:             acc_ld_size = SGL;         /* use a sgl precision Acc. */
        !            60:        } else {
        !            61:             sgl_op = FALSE;
        !            62:             acc_ld_size = DBL;         /* use a dbl precision Acc. */
        !            63:        }
        !            64:        if( (prt_hdrs) && (cycle == 1) ) 
        !            65:             writes( op_name );
        !            66:        test_inst();
        !            67: }
        !            68: 
        !            69: 
        !            70: 
        !            71: 
        !            72: /*
        !            73:  ***************************************************************************
        !            74:  *
        !            75:  *   GET THE OVERFLOW / UNDERFLOW INSTRUCTION TABLE INDEX FOR AN OP-CODE
        !            76:  *
        !            77:  *  Given the op_code of an instruction, return the instruction's index in
        !            78:  *  the overflow / underflow instruction table. Return a negative number 
        !            79:  *  if the op-code isn't in the table.
        !            80:  *
        !            81:  **************************************************************************
        !            82: */
        !            83: get_ovfl_index( op_code )
        !            84: {
        !            85: int x;
        !            86:        x = 0;
        !            87:        while( (ovfl_tbl[x].inst_code != op_code) && (x < size_ovfl_tbl) )
        !            88:             x++;
        !            89:        if( x == size_ovfl_tbl )
        !            90:             x = -1;
        !            91:        return( x );
        !            92: }
        !            93: 
        !            94: 

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