[unix-history] / usr / src / sys / tahoe / align / Adivl3.c

/*	Adivl3.c	1.1	86/07/20	*/

#include "../tahoealign/align.h" 
divl3(infop) 	process_info *infop;
/*
/*	Arithmetic division, 3 operands.
/*
/**************************************/
{
	register	long	Register_12;	/* Has to be first reg ! */
	register 	long	divident, divisor, result;

	divisor = operand(infop,0)->data;
	divident = operand(infop,1)->data;
	if (divisor == 0) {
		exception (infop, ARITHMETIC, 2);
	} else {
		Register_12=psl;
		Set_psl(r12);	/* restore the user psl */
		result = divident / divisor;
		asm ("	movpsl	r12");
		New_cc (Register_12);
	}
	write_back (infop,result, operand(infop,2));
}
Commit	Line	Data
79ab8d7f SL	1	/* Adivl3.c 1.1 86/07/20 */
	2
	3	#include "../tahoealign/align.h"
	4	divl3(infop) process_info *infop;
	5	/*
	6	/* Arithmetic division, 3 operands.
	7	/*
	8	/**************************************/
	9	{
	10	register long Register_12; /* Has to be first reg ! */
	11	register long divident, divisor, result;
	12
	13	divisor = operand(infop,0)->data;
	14	divident = operand(infop,1)->data;
	15	if (divisor == 0) {
	16	exception (infop, ARITHMETIC, 2);
	17	} else {
	18	Register_12=psl;
	19	Set_psl(r12); /* restore the user psl */
	20	result = divident / divisor;
	21	asm (" movpsl r12");
	22	New_cc (Register_12);
	23	}
	24	write_back (infop,result, operand(infop,2));
	25	}