Return to sched.c CVS log

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

Annotation of cci/d/dmp4/sched.c, revision 1.1

1.1     ! root        1: 
        !             2: #include "dmp_defs.h"
        !             3: 
        !             4: 
        !             5: 
        !             6: /*************************************************************************
        !             7: *
        !             8: *   SCHEDULE THE ADDRESSING / DEMAND PAGING TESTS FOR AN INSTRUCTION
        !             9: *
        !            10: *************************************************************************/
        !            11: sched_test( test_index )
        !            12: int test_index;
        !            13: {
        !            14:        exp_event = FALSE;              /* clear event expected flag      */
        !            15:        force_loop = FALSE;             /* clear the force a loop flag    */
        !            16:        unexp_event_ret = FALSE;        /* clear unexpected event return  */
        !            17: /*
        !            18:  * get the information about this instruction 
        !            19: */
        !            20:        op_code    =   inst_tbl[ test_index ].inst_code;
        !            21:        op_name    =   inst_tbl[ test_index ].name;
        !            22:        precision  =   inst_tbl[ test_index ].precision;
        !            23:        no_ops     =   inst_tbl[ test_index ].no_operands;
        !            24:        op_type    =   inst_tbl[ test_index ].type;
        !            25:        data_ptr   =   inst_tbl[ test_index ].data;
        !            26:        test_ptr   =   inst_tbl[ test_index ].test_routine;
        !            27:        max_index  =  *inst_tbl[ test_index ].no_patterns;
        !            28: /*
        !            29:  * if we're using the "no-fpp" wcs the instruction might be emulated
        !            30: */
        !            31:        if( no_fpp_wcs ) 
        !            32:             emulated_inst = inst_tbl[ test_index ].emulation_flg;
        !            33:        else 
        !            34:             emulated_inst = FALSE;
        !            35: /*
        !            36:  * set the accumulator type flags based on the instruction type
        !            37: */
        !            38:        if( precision == SGL ) {
        !            39:            acc_ld_size = SGL;          /* load a sgl operand  */
        !            40:            acc_st_size = SGL;          /* store a sgl operand */
        !            41:        } else {
        !            42:            acc_ld_size = DBL;          /* load a dbl operand  */
        !            43:            acc_st_size = DBL;          /* store a dbl operand */
        !            44:        }
        !            45:        if( op_code == CVDF_OP_CODE )
        !            46:            acc_st_size = SGL;          /* store a sgl operand */
        !            47: /*
        !            48:  * set the operand type flags based on the instruction type
        !            49: */
        !            50:        if( (op_code == LDFD_OP_CODE) ||
        !            51:            (op_code == CVLD_OP_CODE) )
        !            52:             s_to_d = TRUE;             /* set sgl-to-dbl conversion flag */
        !            53:         else
        !            54:             s_to_d = FALSE;            /* reset sgl-to-dbl conversion flag */
        !            55:        if( op_code == CVDL_OP_CODE )
        !            56:             d_to_s = TRUE;             /* set dbl-to-sgl conversion flag */
        !            57:         else
        !            58:             d_to_s = FALSE;            /* reset dbl-to-sgl conversion flag */
        !            59:        if( s_to_d || d_to_s || (precision == SGL) )
        !            60:               sgl_op = TRUE;           /* set sgl-operand flag */
        !            61:         else
        !            62:               sgl_op = FALSE;          /* reset sgl-operand flag */
        !            63: /*
        !            64:  *  Now go out there and test 'em
        !            65: */
        !            66:        test_inst();                    /* test the instruction */
        !            67: }
        !            68: 
        !            69: 
        !            70: 

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