Return to nanzap.C CVS log

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

Annotation of researchv10dc/cmd/f2c/nanzap.C, revision 1.1.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.