Lines Matching refs:PI
552 PI: long 0x40000000,0xC90FDAA2,0x2168C235,0x00000000
5041 cmp.l %d1,&0x4004BC7E # is |X| < 15 PI?
5045 #--THIS IS THE USUAL CASE, |X| <= 15 PI.
5049 fmul.d TWOBYPI(%pc),%fp1 # X*2/PI
5051 lea PITBL+0x200(%pc),%a1 # TABLE OF N*PI/2, N = -32,...,32
5192 #--IF |X| > 15PI, WE USE THE GENERAL ARGUMENT REDUCTION.
5251 cmp.l %d1,&0x4004BC7E # |X| < 15 PI?
5256 #--THIS IS THE USUAL CASE, |X| <= 15 PI.
5261 fmul.d TWOBYPI(%pc),%fp1 # X*2/PI
5263 lea PITBL+0x200(%pc),%a1 # TABLE OF N*PI/2, N = -32,...,32
5477 # yes; create 2**16383*PI/2
5482 # create low half of 2**16383*PI/2 at FP_SCR1
5499 #--ON ENTRY, FP0 IS X, ON RETURN, FP0 IS X REM PI/2, |X| <= PI/4.
5519 #--FIND THE REMAINDER OF (R,r) W.R.T. 2**L * (PI/2). L IS SO CHOSEN
5520 #--THAT INT( X * (2/PI) / 2**(L) ) < 2**29.
5522 #--CREATE 2**(-L) * (2/PI), SIGN(INARG)*2**(63),
5525 mov.l &0x00003FFE,%d2 # BIASED EXP OF 2/PI
5526 sub.l %d1,%d2 # BIASED EXP OF 2**(-L)*(2/PI)
5530 mov.w %d2,FP_SCR0_EX(%a6) # FP_SCR0 = 2**(-L)*(2/PI)
5533 fmul.x FP_SCR0(%a6),%fp2 # fp2 = X * 2**(-L)*(2/PI)
5552 add.l &0x00003FFF,%d2 # BIASED EXP OF 2**L * (PI/2)
5681 #--N*PI/2, -32 <= N <= 32, IN A LEADING TERM IN EXT. AND TRAILING
5682 #--TERM IN SGL. NOTE THAT PI IS 64-BIT LONG, THUS N*PI/2 IS AT
5770 cmp.l %d1,&0x4004BC7E # |X| < 15 PI?
5775 #--THIS IS THE USUAL CASE, |X| <= 15 PI.
5778 fmul.d TWOBYPI(%pc),%fp1 # X*2/PI
5780 lea.l PITBL+0x200(%pc),%a1 # TABLE OF N*PI/2, N = -32,...,32
5876 #--IF |X| > 15PI, WE USE THE GENERAL ARGUMENT REDUCTION.
5908 # yes; create 2**16383*PI/2
5913 # create low half of 2**16383*PI/2 at FP_SCR1
5930 #--ON ENTRY, FP0 IS X, ON RETURN, FP0 IS X REM PI/2, |X| <= PI/4.
5950 #--FIND THE REMAINDER OF (R,r) W.R.T. 2**L * (PI/2). L IS SO CHOSEN
5951 #--THAT INT( X * (2/PI) / 2**(L) ) < 2**29.
5953 #--CREATE 2**(-L) * (2/PI), SIGN(INARG)*2**(63),
5956 mov.l &0x00003FFE,%d2 # BIASED EXP OF 2/PI
5957 sub.l %d1,%d2 # BIASED EXP OF 2**(-L)*(2/PI)
5961 mov.w %d2,FP_SCR0_EX(%a6) # FP_SCR0 = 2**(-L)*(2/PI)
5964 fmul.x FP_SCR0(%a6),%fp2 # fp2 = X * 2**(-L)*(2/PI)
5983 add.l &0x00003FFF,%d2 # BIASED EXP OF 2**L * (PI/2)
6405 #--IF |X| > 2^(100), RETURN SIGN(X)*(PI/2 - TINY). OTHERWISE,
6406 #--RETURN SIGN(X)*PI/2 + ATAN(-1/X).
6564 #--|X| = 1, ASIN(X) = +- PI/2.
6659 #--|X| = 1, ACOS(X) = 0 OR PI
6664 #Returns PI and inexact exception
6666 fmov.x PI(%pc),%fp0 # load PI
6675 #--ACOS(X) = PI/2 FOR DENORMALIZED X
10590 # spi_2(): Return signed PI/2 according to sign of src operand. #
10598 # ld_ppi2(): return positive PI/2.
10607 # ld_mpi2(): return negative PI/2.