Return to fpm_test.c CVS log

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

Annotation of cci/d/fpevent/fpm_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 EMULATION TRAP INTERFACE TEST
                      8:  *
                      9:  ********************************************************************
                     10: */
                     11: fpm_test()
                     12: {
                     13:        event_msg = "FPP Emulation";
                     14:        test_event = FPM_CODE;
                     15:        disable_mask = 0;               /* don't disable any events   */
                     16:        evt_disabled = FALSE;           /* expected event is enabled  */
                     17:        if( evt_inst )                  /* was the op-code specified? */
                     18:        {
                     19:              inst_index = get_fpm_index( evt_inst );
                     20:              if( inst_index < 0 ) { 
                     21:                   if( (prt_hdrs) && (cycle == 1) )   /* no reserved ops */
                     22:                   {
                     23:                         writes(
                     24:                     "There is no FLOATING POINT EMULATION with op-code" );
                     25:                         writeh( evt_inst );    /* print the ersatz op-code */
                     26:                         writec('\n');
                     27:                         error = TRUE;  /* needed for line feed control */
                     28:                   }
                     29:              } else 
                     30:                   test_fpm_inst();     /* test the instruction */
                     31:        } else                          /* test all applicable op-codes */
                     32:              for(inst_index=0; inst_index < size_fpm_tbl; inst_index++)
                     33:                         test_fpm_inst();
                     34: }
                     35:  
                     36: 
                     37: 
                     38: /*
                     39:  ***************************************************************************
                     40:  *
                     41:  *             Run the Reserved Operand Fault on one instruction
                     42:  *
                     43:  ***************************************************************************
                     44: */
                     45: test_fpm_inst()
                     46: {
                     47:        valid_test = TRUE;              /* a test is being run */
                     48:        op_code    =  fpm_tbl[ inst_index ].inst_code;
                     49:        op_name    =  fpm_tbl[ inst_index ].name;
                     50:        precision  =  fpm_tbl[ inst_index ].precision;
                     51:        no_ops     =  fpm_tbl[ inst_index ].no_operands;
                     52:        data_ptr   =  fpm_data;
                     53:        max_index  =  fpm_data_cnt;
                     54:        if( precision == SGL ) {
                     55:              sgl_op = TRUE;
                     56:              acc_ld_size = SGL;        /* use a sgl precision Acc. */
                     57:        } else {
                     58:              sgl_op = FALSE;
                     59:              acc_ld_size = DBL;        /* use a dbl precision Acc. */
                     60:        } 
                     61:        if( (prt_hdrs) && (cycle == 1) ) {
                     62:              if( (!evt_inst) &&                /* print a line feed if   */
                     63:                  (op_code == LOGF_OP_CODE) )   /*   the 1st line is full */
                     64:                   writes("\n                       ");
                     65:              writes( op_name );        /* print the instruction's name */
                     66:        }
                     67:        test_inst();
                     68: }
                     69: 
                     70: 
                     71: 
                     72: /*
                     73:  ***************************************************************************
                     74:  *
                     75:  *             GET THE INSTRUCTION TABLE INDEX FOR AN OP-CODE
                     76:  *
                     77:  *  Given the op_code of an instruction, return the instruction's index in
                     78:  *  the FPM instruction table. Return a negative number if the op-code isn't 
                     79:  *  in the table.
                     80:  *
                     81:  **************************************************************************
                     82: */
                     83: get_fpm_index( op_code )
                     84: {
                     85: int x;
                     86:        x = 0;
                     87:        while( (fpm_tbl[x].inst_code != op_code) && (x < size_fpm_tbl) )
                     88:             x++;
                     89:        if( x == size_fpm_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.