Return to test3.c CVS log

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

Annotation of cci/d/mem/test3.c, revision 1.1

1.1     ! root        1: /* 
        !             2: 
        !             3:        Adjacent Cell Disturb Test
        !             4:        
        !             5: */
        !             6: 
        !             7: #include "definitions"
        !             8: #define        size    (sizeof(testcase)/4)
        !             9: extern int     maxmem,endprog;
        !            10: extern struct OPTIONS OPTIONS;
        !            11: 
        !            12: stest3()
        !            13: {
        !            14:        register long *mcr = (long *)0xffffb000;
        !            15: 
        !            16:        if (OPTIONS.header)
        !            17:                writes("\n** Subtest3 : Adjacent cell disturbance test.");
        !            18:        writes("\nECC off");
        !            19:        *mcr = 0;
        !            20:        subtest3();
        !            21:        writes("\nECC on");
        !            22:        *mcr = 3;
        !            23:        subtest3();
        !            24:        *mcr = 0;
        !            25: }
        !            26: 
        !            27: subtest3()
        !            28: {
        !            29: 
        !            30:   register long pattern;
        !            31:   register long *curadd,*first,*last;
        !            32:   int  cnt,loop,patno;
        !            33: 
        !            34:   static unsigned testcase[] = { 0x00000000,
        !            35:                                0xffffffff};
        !            36: 
        !            37:        for(loop = size, patno = 0; (loop-- ); patno++ )        {
        !            38:                pattern = testcase[patno];      /* background filled  */
        !            39:                for(curadd = (long *)endprog;curadd <= (long *)maxmem;curadd++) 
        !            40:                        *curadd = pattern; 
        !            41:                for(curadd=(long *)endprog;curadd <= (long *)maxmem;curadd++) {
        !            42:                        /* 
        !            43:                           complement test cell and check
        !            44:                           adjacent cells (before) 
        !            45:                        */
        !            46: start:                 *curadd = ~pattern;
        !            47:                        last = curadd;
        !            48:                        for(last--,cnt = 2;(cnt--) && 
        !            49:                                (last >= (long *)endprog);last--) { 
        !            50: error1:                                if (*last != pattern)
        !            51:                                        if (error(last,pattern)) goto error1;
        !            52:                                }  
        !            53:                        /* 
        !            54:                           check adjacent cells (after) 
        !            55:                        */
        !            56:                        first = curadd;
        !            57:                        for(first++,cnt = 2;(cnt--) && 
        !            58:                                (first <= (long *)maxmem);first++ ) {
        !            59: error2:                                if (*first != pattern)
        !            60:                                        if (error(first,pattern)) goto error2;  
        !            61:                                }
        !            62:                        if (*curadd != ~pattern)
        !            63:                                if (error(curadd,~pattern)) goto start;
        !            64:                        *curadd = pattern;
        !            65:                }
        !            66:         }
        !            67: }

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