Lines Matching refs:PI
552 PI: long 0x40000000,0xC90FDAA2,0x2168C235,0x00000000 label
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
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)