Return to gcd.c CVS log

Up to [Research Unix] / researchv9 / libc / gen

researchv9-SUN3(old)

/* The test if(b<0) is inside the loop to avoid anomalies
   with the most negative integer */

gcd(a,b)
register a, b;
{
	register t;
	if(b==0)
		return(abs(a));
	for(;;) {
		if(b<0)
			b = -b;
		t = a % b;
		if(t==0)
			return(b);
		a = b;
		b = t;
	}
}

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