Return to nanzap.C CVS log

Up to [Research Unix] / researchv10no / cmd / f2c

Annotation of researchv10no/cmd/f2c/nanzap.C, revision 1.1

1.1     ! root        1:  static void
        !             2: nanzap()
        !             3: {
        !             4:        long xb[10000];
        !             5:        register long *x, *xe;
        !             6:        x = xb, xe = x + 10000;
        !             7:        if ((long)x & 4)
        !             8:                x++;
        !             9:        for(; x < xe; x += 2) {
        !            10:                x[0] = 0x7fff8000;
        !            11:                x[1] = 0x7fc00000;
        !            12:                }
        !            13:        }

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