Return to pow_hh.c CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.lib / libF77

Power 6/32 Unix version 1.21

short pow_hh(ap, bp)
short *ap, *bp;
{
short pow, x, n;

pow = 1;
x = *ap;
n = *bp;

if(n > 0) {
	if (x == 0)
		return(0);
	for( ; ; )
		{
		if(n & 01)
			pow *= x;
		if(n >>= 1)
			x *= x;
		else
			break;
		}
	}
return(pow);
}

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