Return to M_error.c CVS log

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

Annotation of cci/d/entry/M_error.c, revision 1.1

1.1     ! root        1: 
        !             2: /*     For error reporting
        !             3: */
        !             4: long test_no;
        !             5: long subtst;
        !             6: long ercode;
        !             7: long actual;
        !             8: long expected;
        !             9: long stpc;
        !            10: long no_opr;
        !            11: long opr[4];
        !            12: long error_cnt;
        !            13: 
        !            14: /*     For looping
        !            15: */
        !            16: long cycle;
        !            17: long forever;
        !            18: long force_lp, scoplp;
        !            19: 
        !            20: /*     For messages
        !            21: */
        !            22: long display;
        !            23: long heading;
        !            24: long op_mode;          /* 1 : Tahoe, 0 : CP */
        !            25: 
        !            26: /*     Counters
        !            27: */
        !            28: long prog_cnt;
        !            29: long test_cnt;
        !            30: extern struct TEST_TBL {
        !            31:        short run;
        !            32:        short loop;
        !            33:        char *name;
        !            34: } test_tbl[];
        !            35: 
        !            36: M_error()
        !            37: {
        !            38:        if (op_mode == 1) tahoe_err();
        !            39:           else         /* Gives everythings to CP */
        !            40:                cp_err();
        !            41: }
        !            42: 
        !            43: tahoe_err()
        !            44: {      register long dummy;
        !            45: 
        !            46:        if (display) disp_err();
        !            47:        if (forever && !display) scoplp = 1;  
        !            48:        if (forever) { 
        !            49:                        force_lp = 1;   /* Checked in each subtest */
        !            50:                        longjmp();
        !            51:                        }
        !            52:        dummy =1;
        !            53:        asm("halt");
        !            54: }
        !            55: 
        !            56: disp_err()
        !            57: {      long ix;
        !            58: 
        !            59:        writes("\n      ** Test no ("); writeh(test_no); writes(") "); 
        !            60:        writes(test_tbl[test_no-1].name);
        !            61:        writes("Subtest "); writed(subtst);
        !            62:        if (ercode==1)  writes("\nUnexpected result.");
        !            63:                else if (ercode==2) writes("\nFlag error.");
        !            64:                        else if (ercode==3) writes("\nOperand modified.");
        !            65:        writes("\n** Actual "); writeh(actual);
        !            66:        writes(", Expected "); writeh(expected);
        !            67:        for (ix=0;ix<no_opr;ix++) {
        !            68:                writes("\nOperand");writed(ix+1); writes(" ");writeh(opr[ix]);
        !            69:                }
        !            70:        writec('\n');
        !            71: }
        !            72: 
        !            73: long tname;
        !            74: cp_err()
        !            75: {      long dummy;
        !            76:        if (forever) { 
        !            77:                force_lp = 1;   /* Checked in each subtest */ 
        !            78:                scoplp = 1;
        !            79:                longjmp();
        !            80:                }
        !            81:        tname = (long)test_tbl[test_no-1].name;
        !            82:        asm("movl _test_no,r0");
        !            83:        asm("movl _stpc,r1");
        !            84:        asm("movl _subtst,r2");
        !            85:        asm("movl _ercode,r3");
        !            86:        asm("movl _actual,r4");
        !            87:        asm("movl _expected,r5");
        !            88:        asm("movl _no_opr,r6");
        !            89:        asm("movl _opr,r7");
        !            90:        asm("movl _opr + 4,r8");
        !            91:        asm("movl _opr + 8,r9");
        !            92:        asm("movl _opr + 12,r10");
        !            93:        asm("movl _tname,r11");
        !            94:        asm("halt");
        !            95: }
        !            96: 
        !            97: lp_init()
        !            98: {
        !            99:        /* Clear all vars for looping */
        !           100:        error_cnt=subtst=ercode=actual=expected=stpc=no_opr=0;
        !           101:        opr[0]=opr[1]=opr[2]=opr[3]=0;
        !           102: 
        !           103: }
        !           104: 
        !           105: End()
        !           106: {
        !           107:        writes("\nTest completed with "); writed(error_cnt);
        !           108:        writes(" errors\n");
        !           109: }
        !           110: 
        !           111: pr_hd()
        !           112: {      long ix;
        !           113: 
        !           114:        if (heading && op_mode) {
        !           115:                writes("        ** Test no ("); writeh(test_no); writes(") "); 
        !           116:                writes(test_tbl[test_no-1].name);
        !           117:                }
        !           118: }
        !           119: 

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