503 #define RET_SC(I)										\  argument
509 	goto start##I;
511 #define RETURN(I, ret)										\  argument
514 	RET_SC(I)										\
517 #define PREP(I)											\  argument
532 		RETURN (I, DONE)								\
544 	RET_SC(I)										\
546 yisint##I = 0;	/* Y - non-integer */								\
549 ull_x##I = (ull_y0 | LDONE);									\
550 x##I = *(double*)&ull_x##I;									\
551 ull_ax##I = ((ull_x##I + LMROUND) & LMHI20);							\
552 ax##I = *(double*)&ull_ax##I;									\
558 		RETURN (I, y0 + *py)								\
570 		RET_SC(I)									\
577 				yisint##I = 2;	/* Y - even     */				\
586 							yisint##I = 2 - (i0 & 1);		\
592 							yisint##I = 2 - (i0 & 1);		\
599 		hx += yisint##I << 31;								\
602 		RET_SC(I)									\
619 		RET_SC(I)									\
625 		yisint##I = 2;	/* Y - even    */						\
634 					yisint##I = 2 - (i0 & 1);				\
640 					yisint##I = 2 - (i0 & 1);				\
649 		if (sx & yisint##I)								\
651 		RETURN (I, y0)									\
653 	if (yisint##I == 0)			/* pow(neg,non-integer) */			\
654 		RETURN (I, DZERO / DZERO)	/* NaN */					\
657 exp##I = exp - 2046;										\
658 py##I = py;											\
659 pz##I = pz;											\
660 ux##I = x##I + ax##I;										\
663 	ax##I = (double) ull_y0;								\
664 	ull_ax##I = *(unsigned long long*)&ax##I;						\
665 	ull_x##I = ((ull_ax##I & LMMANT) | LDONE);							\
666 	x##I = *(double*)&ull_x##I;								\
667 	exp##I = ((unsigned int*) & ull_ax##I)[0];						\
668 	exp##I = (exp##I >> 20) - (2046 + 1023 + 51);						\
669 	ull_ax##I = (ull_x##I + (LMROUND & LMHI20));						\
670 	ax##I = *(double*)&ull_ax##I;								\
671 	ux##I = x##I + ax##I;									\
673 ull_x##I = *(unsigned long long *)&ux##I;							\
674 hx##I = HI(&ull_ax##I);									\
675 yd##I = DONE / ux##I;
1073 #define RET_SC(I)							\  argument
1078 	goto start##I;
1080 #define PREP_X(I)							\  argument
1085 py##I = py;								\
1088 	RETURN (I, DONE)						\
1089 pz##I = pz;								\
1112 	RET_SC(I)							\