File:  [Research Unix] / researchv10no / cmd / f2c / nanzap.C
Revision 1.1.1.1 (vendor branch): download - view: text, annotated - select for diffs
Tue Apr 24 17:21:35 2018 UTC (8 years, 1 month ago) by root
Branches: belllabs, MAIN
CVS tags: researchv10, HEAD
researchv10 Norman

 static void
nanzap()
{
	long xb[10000];
	register long *x, *xe;
	x = xb, xe = x + 10000;
	if ((long)x & 4)
		x++;
	for(; x < xe; x += 2) {
		x[0] = 0x7fff8000;
		x[1] = 0x7fc00000;
		}
	}

unix.superglobalmegacorp.com

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