Lines Matching defs:st0_tag
40 int tag, st0_tag = TAG_Valid;
65 st0_tag = FPU_normalize(&tmp);
66 FPU_copy_to_reg0(&tmp, st0_tag);
71 st0_tag = FPU_sub(REV|LOADED|TAG_Valid, (int)&CONST_PI2, FULL_PRECISION);
90 st0_tag = FPU_add(&tmp, tmptag, 0, FULL_PRECISION);
123 st0_tag = FPU_sub(LOADED|(tmptag & 0x0f), (int)&tmp,
135 st0_tag = FPU_sub(REV|LOADED|TAG_Valid, (int)&CONST_PI2,
143 FPU_settag0(st0_tag);
180 static void single_arg_error(FPU_REG *st0_ptr, u_char st0_tag)
182 if ( st0_tag == TAG_Empty )
184 else if ( st0_tag == TW_NaN )
193 static void single_arg_2_error(FPU_REG *st0_ptr, u_char st0_tag)
197 switch ( st0_tag )
290 static void fptan(FPU_REG *st0_ptr, u_char st0_tag)
297 if ( st0_tag == TAG_Empty )
312 if ( st0_tag == TAG_Valid )
335 st0_tag = FPU_round(st0_ptr, 1, 0, FULL_PRECISION, arg_sign);
336 FPU_settag0(st0_tag);
343 if ( st0_tag == TAG_Zero )
351 if ( st0_tag == TAG_Special )
352 st0_tag = FPU_Special(st0_ptr);
354 if ( st0_tag == TW_Denormal )
362 if ( st0_tag == TW_Infinity )
374 single_arg_2_error(st0_ptr, st0_tag);
378 static void fxtract(FPU_REG *st0_ptr, u_char st0_tag)
389 if ( st0_tag == TAG_Valid )
407 else if ( st0_tag == TAG_Zero )
420 if ( st0_tag == TAG_Special )
421 st0_tag = FPU_Special(st0_ptr);
423 if ( st0_tag == TW_Denormal )
433 else if ( st0_tag == TW_Infinity )
442 else if ( st0_tag == TW_NaN )
451 else if ( st0_tag == TAG_Empty )
483 static void fsqrt_(FPU_REG *st0_ptr, u_char st0_tag)
489 if ( st0_tag == TAG_Valid )
513 if ( st0_tag == TAG_Zero )
516 if ( st0_tag == TAG_Special )
517 st0_tag = FPU_Special(st0_ptr);
519 if ( st0_tag == TW_Infinity )
525 else if ( st0_tag == TW_Denormal )
543 single_arg_error(st0_ptr, st0_tag);
548 static void frndint_(FPU_REG *st0_ptr, u_char st0_tag)
552 if ( st0_tag == TAG_Valid )
563 if ( st0_tag == TW_Denormal )
570 if ( (flags = FPU_round_to_int(st0_ptr, st0_tag)) )
580 if ( st0_tag == TAG_Zero )
583 if ( st0_tag == TAG_Special )
584 st0_tag = FPU_Special(st0_ptr);
586 if ( st0_tag == TW_Denormal )
588 else if ( st0_tag == TW_Infinity )
591 single_arg_error(st0_ptr, st0_tag);
754 static void fcos(FPU_REG *st0_ptr, u_char st0_tag)
756 f_cos(st0_ptr, st0_tag);
760 static void fsincos(FPU_REG *st0_ptr, u_char st0_tag)
767 if ( st0_tag == TAG_Empty )
782 if ( st0_tag == TAG_Special )
785 tag = st0_tag;
805 if ( !fsin(st0_ptr, st0_tag) )
808 FPU_copy_to_reg0(&arg, st0_tag);
809 f_cos(&st(0), st0_tag);
814 FPU_copy_to_reg0(&arg, st0_tag);
863 static void do_fprem(FPU_REG *st0_ptr, u_char st0_tag, int round)
868 if ( !((st0_tag ^ TAG_Valid) | (st1_tag ^ TAG_Valid)) )
971 tmptag = st0_tag;
1048 if ( st0_tag == TAG_Special )
1049 st0_tag = FPU_Special(st0_ptr);
1053 if ( ((st0_tag == TAG_Valid) && (st1_tag == TW_Denormal))
1054 || ((st0_tag == TW_Denormal) && (st1_tag == TAG_Valid))
1055 || ((st0_tag == TW_Denormal) && (st1_tag == TW_Denormal)) )
1061 else if ( (st0_tag == TAG_Empty) || (st1_tag == TAG_Empty) )
1066 else if ( st0_tag == TAG_Zero )
1083 else if ( (st0_tag == TAG_Valid) || (st0_tag == TW_Denormal) )
1092 if ( ((st0_tag == TW_Denormal) || (st1_tag == TW_Denormal))
1103 else if ( st0_tag == TW_Infinity )
1115 if ( (st0_tag != TW_NaN) && (st1_tag != TW_NaN) )
1125 static void fyl2x(FPU_REG *st0_ptr, u_char st0_tag)
1134 if ( (st0_tag == TAG_Valid) && (st1_tag == TAG_Valid) )
1140 if ( st0_tag == TW_Denormal )
1194 if ( st0_tag == TAG_Special )
1195 st0_tag = FPU_Special(st0_ptr);
1199 if ( (st0_tag == TAG_Empty) || (st1_tag == TAG_Empty) )
1204 else if ( (st0_tag <= TW_Denormal) && (st1_tag <= TW_Denormal) )
1206 if ( st0_tag == TAG_Zero )
1236 else if ( (st0_tag == TW_Denormal) && (denormal_operand() < 0) )
1255 else if ( (st0_tag == TW_NaN) || (st1_tag == TW_NaN) )
1257 if ( real_2op_NaN(st0_ptr, st0_tag, 1, st0_ptr) < 0 )
1261 else if ( st0_tag == TW_Infinity )
1281 else if ( ((st0_tag == TAG_Valid) || (st0_tag == TW_Denormal))
1301 if ( (st0_tag == TW_Denormal) && (denormal_operand() < 0) )
1310 if ( st0_tag == TAG_Zero )
1330 static void fpatan(FPU_REG *st0_ptr, u_char st0_tag)
1337 if ( !((st0_tag ^ TAG_Valid) | (st1_tag ^ TAG_Valid)) )
1341 poly_atan(st0_ptr, st0_tag, st1_ptr, st1_tag);
1348 if ( st0_tag == TAG_Special )
1349 st0_tag = FPU_Special(st0_ptr);
1353 if ( ((st0_tag == TAG_Valid) && (st1_tag == TW_Denormal))
1354 || ((st0_tag == TW_Denormal) && (st1_tag == TAG_Valid))
1355 || ((st0_tag == TW_Denormal) && (st1_tag == TW_Denormal)) )
1362 else if ( (st0_tag == TAG_Empty) || (st1_tag == TAG_Empty) )
1367 else if ( (st0_tag == TW_NaN) || (st1_tag == TW_NaN) )
1369 if ( real_2op_NaN(st0_ptr, st0_tag, 1, st0_ptr) >= 0 )
1373 else if ( (st0_tag == TW_Infinity) || (st1_tag == TW_Infinity) )
1376 if ( st0_tag == TW_Infinity )
1415 if ( (st0_tag == TW_Denormal) && (denormal_operand() < 0) )
1427 if ( (st0_tag == TW_Denormal) && (denormal_operand() < 0) )
1440 else if ( st0_tag == TAG_Zero )
1461 static void fprem(FPU_REG *st0_ptr, u_char st0_tag)
1463 do_fprem(st0_ptr, st0_tag, RC_CHOP);
1467 static void fprem1(FPU_REG *st0_ptr, u_char st0_tag)
1469 do_fprem(st0_ptr, st0_tag, RC_RND);
1473 static void fyl2xp1(FPU_REG *st0_ptr, u_char st0_tag)
1480 if ( !((st0_tag ^ TAG_Valid) | (st1_tag ^ TAG_Valid)) )
1497 if ( st0_tag == TAG_Special )
1498 st0_tag = FPU_Special(st0_ptr);
1502 if ( ((st0_tag == TAG_Valid) && (st1_tag == TW_Denormal))
1503 || ((st0_tag == TW_Denormal) && (st1_tag == TAG_Valid))
1504 || ((st0_tag == TW_Denormal) && (st1_tag == TW_Denormal)) )
1511 else if ( (st0_tag == TAG_Empty) | (st1_tag == TAG_Empty) )
1516 else if ( st0_tag == TAG_Zero )
1527 FPU_copy_to_reg1(st0_ptr, st0_tag);
1537 if ( real_2op_NaN(st0_ptr, st0_tag, 1, st0_ptr) < 0 )
1549 else if ( (st0_tag == TAG_Valid) || (st0_tag == TW_Denormal) )
1566 else if ( (st0_tag == TW_Denormal) && (denormal_operand() < 0) )
1571 else if ( (st0_tag == TW_Denormal) && (denormal_operand() < 0) )
1589 else if ( (st0_tag == TW_Denormal) && (denormal_operand() < 0) )
1594 else if ( (st0_tag == TW_Denormal) && (denormal_operand() < 0) )
1599 if ( real_2op_NaN(st0_ptr, st0_tag, 1, st0_ptr) < 0 )
1604 else if ( st0_tag == TW_NaN )
1606 if ( real_2op_NaN(st0_ptr, st0_tag, 1, st0_ptr) < 0 )
1609 else if ( st0_tag == TW_Infinity )
1613 if ( real_2op_NaN(st0_ptr, st0_tag, 1, st0_ptr) < 0 )
1666 static void fscale(FPU_REG *st0_ptr, u_char st0_tag)
1674 if ( !((st0_tag ^ TAG_Valid) | (st1_tag ^ TAG_Valid)) )
1718 if ( st0_tag == TAG_Special )
1719 st0_tag = FPU_Special(st0_ptr);
1723 if ( (st0_tag == TAG_Valid) || (st0_tag == TW_Denormal) )
1729 if ( (st0_tag == TW_Denormal) && (denormal_operand() < 0) )
1736 if ( st0_tag == TW_Denormal )
1745 if ( (st0_tag == TW_Denormal) && (denormal_operand() < 0) )
1760 else if ( st0_tag == TAG_Zero )
1782 else if ( st0_tag == TW_Infinity )
1804 else if ( st0_tag == TW_NaN )
1811 if ( !((st0_tag == TAG_Empty) || (st1_tag == TAG_Empty)) )