parisc/math-emu/fpudispatch.c

19  *	emfpudispatch(ir, dummy1, dummy2, fpregs)
20  *	fpudispatch(ir, excp_code, holder, fpregs)
182 fpudispatch(u_int ir, u_int excp_code, u_int holder, u_int fpregs[])
194 	class = get_class(ir);
197 			subop = get_subop1_PA2_0(ir);
199 			subop = get_subop1_PA1_1(ir);
202 		subop = get_subop(ir);
209 			return(decode_0c(ir,class,subop,fpregs));
211 			return(decode_0e(ir,class,subop,fpregs));
213 			return(decode_06(ir,fpregs));
215 			return(decode_26(ir,fpregs));
217 			return(decode_2e(ir,fpregs));
237 emfpudispatch(u_int ir, u_int dummy1, u_int dummy2, u_int fpregs[])
247 	major = get_major(ir);
248 	class = get_class(ir);
251 			subop = get_subop1_PA2_0(ir);
253 			subop = get_subop1_PA1_1(ir);
256 		subop = get_subop(ir);
259 			return(decode_0c(ir,class,subop,fpregs));
261 			return(decode_0e(ir,class,subop,fpregs));
263 			return(decode_06(ir,fpregs));
265 			return(decode_26(ir,fpregs));
267 			return(decode_2e(ir,fpregs));
275 decode_0c(u_int ir, u_int class, u_int subop, u_int fpregs[])
284 	if (ir == COPR_INST) {
290 	r1 = extru(ir,fpr1pos,5) * sizeof(double)/sizeof(u_int);
293 	t = extru(ir,fptpos,5) * sizeof(double)/sizeof(u_int);
296 	fmt = extru(ir,fpfmtpos,2);	/* get fmt completer */
407 		df = extru(ir,fpdfpos,2); /* get dest format */
538 		r2 = extru(ir, fpr2pos, 5) * sizeof(double)/sizeof(u_int);
543 			if (extru(ir, fpnulpos, 1)) {  /* FTEST */
554 					 * return(ftest(0L,extru(ir,fptpos,5),
566 						&fpregs[r2],extru(ir,fptpos,5),
573 						&fpregs[r2],extru(ir,fptpos,5),
597 						&fpregs[r2],extru(ir,fptpos,5),
604 						&fpregs[r2],extru(ir,fptpos,5),
625 					 * return(ftest(0L,extru(ir,fptpos,5),
638 		r2 = extru(ir,fpr2pos,5) * sizeof(double)/sizeof(u_int);
720 decode_0e(ir,class,subop,fpregs)
721 u_int ir,class,subop;
733 	r1 = ((extru(ir,fpr1pos,5)<<1)|(extru(ir,fpxr1pos,1)));
736 	t = ((extru(ir,fptpos,5)<<1)|(extru(ir,fpxtpos,1)));
740 		fmt = extru(ir,fpfmtpos,2);
742 		fmt = extru(ir,fp0efmtpos,1);
840 		df = extru(ir,fpdfpos,2); /* get dest format */
977 			r2 = (extru(ir,fpr2pos,5)<<1);
979 			r2 = ((extru(ir,fpr2pos,5)<<1)|(extru(ir,fpxr2pos,1)));
985 			if (extru(ir, fpnulpos, 1)) {  /* FTEST */
995 						&fpregs[r2],extru(ir,fptpos,5),
1002 						&fpregs[r2],extru(ir,fptpos,5),
1027 						&fpregs[r2],extru(ir,fptpos,5),
1034 						&fpregs[r2],extru(ir,fptpos,5),
1053 			r2 = (extru(ir,fpr2pos,5)<<1);
1055 			r2 = ((extru(ir,fpr2pos,5)<<1)|(extru(ir,fpxr2pos,1)));
1090 				if (extru(ir,fpxpos,1)) {
1154 decode_06(ir,fpregs)
1155 u_int ir;
1172 	fmt = extru(ir, fpmultifmt, 1);	/* get sgl/dbl flag */
1174 		rm1 = extru(ir, fprm1pos, 5) * sizeof(double)/sizeof(u_int);
1177 		rm2 = extru(ir, fprm2pos, 5) * sizeof(double)/sizeof(u_int);
1180 		tm = extru(ir, fptmpos, 5) * sizeof(double)/sizeof(u_int);
1183 		ra = extru(ir, fprapos, 5) * sizeof(double)/sizeof(u_int);
1184 		ta = extru(ir, fptapos, 5) * sizeof(double)/sizeof(u_int);
1242 		rm1 = (extru(ir,fprm1pos,4) | 0x10 ) << 1;	/* get offset */
1243 		rm1 |= extru(ir,fprm1pos-4,1);	/* add right word offset */
1245 		rm2 = (extru(ir,fprm2pos,4) | 0x10 ) << 1;	/* get offset */
1246 		rm2 |= extru(ir,fprm2pos-4,1);	/* add right word offset */
1248 		tm = (extru(ir,fptmpos,4) | 0x10 ) << 1;	/* get offset */
1249 		tm |= extru(ir,fptmpos-4,1);	/* add right word offset */
1251 		ra = (extru(ir,fprapos,4) | 0x10 ) << 1;	/* get offset */
1252 		ra |= extru(ir,fprapos-4,1);	/* add right word offset */
1254 		ta = (extru(ir,fptapos,4) | 0x10 ) << 1;	/* get offset */
1255 		ta |= extru(ir,fptapos-4,1);	/* add right word offset */
1294 decode_26(ir,fpregs)
1295 u_int ir;
1310 	fmt = extru(ir, fpmultifmt, 1);	/* get sgl/dbl flag */
1312 		rm1 = extru(ir, fprm1pos, 5) * sizeof(double)/sizeof(u_int);
1315 		rm2 = extru(ir, fprm2pos, 5) * sizeof(double)/sizeof(u_int);
1318 		tm = extru(ir, fptmpos, 5) * sizeof(double)/sizeof(u_int);
1321 		ra = extru(ir, fprapos, 5) * sizeof(double)/sizeof(u_int);
1324 		ta = extru(ir, fptapos, 5) * sizeof(double)/sizeof(u_int);
1349 		rm1 = (extru(ir,fprm1pos,4) | 0x10 ) << 1;	/* get offset */
1350 		rm1 |= extru(ir,fprm1pos-4,1);	/* add right word offset */
1352 		rm2 = (extru(ir,fprm2pos,4) | 0x10 ) << 1;	/* get offset */
1353 		rm2 |= extru(ir,fprm2pos-4,1);	/* add right word offset */
1355 		tm = (extru(ir,fptmpos,4) | 0x10 ) << 1;	/* get offset */
1356 		tm |= extru(ir,fptmpos-4,1);	/* add right word offset */
1358 		ra = (extru(ir,fprapos,4) | 0x10 ) << 1;	/* get offset */
1359 		ra |= extru(ir,fprapos-4,1);	/* add right word offset */
1361 		ta = (extru(ir,fptapos,4) | 0x10 ) << 1;	/* get offset */
1362 		ta |= extru(ir,fptapos-4,1);	/* add right word offset */
1385 decode_2e(ir,fpregs)
1386 u_int ir;
1392 	fmt = extru(ir,fpfmtpos,1);	/* get fmt completer */
1394 		rm1 = extru(ir,fprm1pos,5) * sizeof(double)/sizeof(u_int);
1397 		rm2 = extru(ir,fprm2pos,5) * sizeof(double)/sizeof(u_int);
1400 		ra = ((extru(ir,fpraupos,3)<<2)|(extru(ir,fpralpos,3)>>1)) *
1404 		t = extru(ir,fptpos,5) * sizeof(double)/sizeof(u_int);
1408 		if (extru(ir,fpfusedsubop,1)) { /* fmpyfadd or fmpynfadd? */
1417 		rm1 = (extru(ir,fprm1pos,5)<<1)|(extru(ir,fpxrm1pos,1));
1420 		rm2 = (extru(ir,fprm2pos,5)<<1)|(extru(ir,fpxrm2pos,1));
1423 		ra = (extru(ir,fpraupos,3)<<3)|extru(ir,fpralpos,3);
1426 		t = ((extru(ir,fptpos,5)<<1)|(extru(ir,fpxtpos,1)));
1430 		if (extru(ir,fpfusedsubop,1)) { /* fmpyfadd or fmpynfadd? */