Return to chk_math.c CVS log

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

Annotation of cci/d/dmp4/chk_math.c, revision 1.1.1.1

1.1       root        1: 
                      2: #include "dmp_defs.h"
                      3: 
                      4: /***********************************************************************
                      5: *
                      6: *   Verify final single precision accumulator value for Math functions
                      7: *
                      8: *  This code is the same as CHK_SGL_ACC in that it checks the final 
                      9: *  single precision accumulator value except that this code doesn't
                     10: *  check the PSL flag bits. In fact, the error printing and halting 
                     11: *  routines are in file CHK_SGL_ACC.
                     12: *  This routine is used because SINF & COSF play with the PSL flags.
                     13: ***********************************************************************/
                     14: chk_math()
                     15: {
                     16:        sgl_ld_acc   = dbl_ld_acc.m;            /* move the data to    */
                     17:        sgl_st_acc   = dbl_st_acc.m;            /*   the sgl data      */
                     18:        sgl_expected = dbl_expected.m;          /*      operands       */
                     19:        sgl_value_1  = dbl_value_1.m;
                     20:        sgl_value_2  = dbl_value_2.m;
                     21:        sgl_dummy1   = init_psl & 0xffffff00;   /* clear PSL's DBL bit */
                     22:        sgl_dummy2   = psl_val & 0xffffff00;    /* get final PSL value */
                     23:   
                     24:        if( sgl_st_acc != sgl_expected ) {
                     25:            errcnt++;
                     26:            if( prt_error )
                     27:                 prt_s_acc_e( bad_result_msg );
                     28:            if( halt_flg )
                     29:                 hlt_s_acc_e( 1 );              /* error code 1 */
                     30:            if( loop_on_err )
                     31:                 force_loop = TRUE;             /* set loop flag */
                     32:        }
                     33:         else if( sgl_dummy2 != sgl_dummy1 ) {
                     34:            errcnt++;
                     35:            if( prt_error )
                     36:                 prt_s_acc_e( bad_psl_msg );
                     37:            if( halt_flg )
                     38:                 hlt_s_acc_e( 2 );              /* error code 2 */
                     39:            if( loop_on_err )
                     40:                 force_loop = TRUE;             /* set loop flag */
                     41:        }
                     42:         else if( no_page_faults != exp_page_faults ) {
                     43:            errcnt++;
                     44:            if( prt_error )
                     45:                 prt_s_acc_e( trans_flt_cnt_msg );
                     46:            if( halt_flg )
                     47:                 hlt_s_acc_e( 3 );              /* error code 3 */
                     48:            if( loop_on_err )
                     49:                 force_loop = TRUE;             /* set loop flag */
                     50:        }
                     51:         else {
                     52:            reg_no = 0;
                     53:            regs_ok = TRUE;
                     54:            while( (reg_no <= 13) && (regs_ok) )  /* check 1st 13 regs */
                     55:                if( store_regs[ reg_no ] == exp_regs[ reg_no ] )
                     56:                    reg_no++;
                     57:                else
                     58:                    regs_ok = FALSE;
                     59:            if( !regs_ok ) {
                     60:                errcnt++;
                     61:                if( prt_error )
                     62:                     prt_s_acc_e( reg_modified_msg );
                     63:                if( halt_flg )
                     64:                     hlt_s_acc_e( 4 );  /* error code 4 */
                     65:                if( loop_on_err )
                     66:                     force_loop = TRUE;         /* set loop flag */
                     67:            }
                     68:        }
                     69: }
                     70: 
                     71: 

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