Return to rol.c CVS log

Up to [Research Unix] / researchv9 / jerq / src / lib / j

researchv9-SUN3(old)

/*    text
 *    global rol
 *    rol:
 *    	mov.w	4(%sp), %d0
 *    	mov.w	6(%sp), %d1
 *    	rol.w	%d1, %d0
 *    	rts
 *    
 *    global ror
 *    ror:
 *    	mov.w	4(%sp), %d0
 *    	mov.w	6(%sp), %d1
 *    	ror.w	%d1, %d0
 *    	rts
 */
rol(rodata,sftcnt)
int rodata,sftcnt;
{
	sftcnt %= (8 * sizeof(int));
	return((rodata<<sftcnt)|(rodata>>((8 * sizeof(int))-sftcnt)));
}
ror(rodata,sftcnt)
int rodata,sftcnt;
{
	sftcnt %= (8 * sizeof(int));
	return((rodata>>sftcnt)|(rodata<<((8 * sizeof(int))-sftcnt)));
}

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