Lines Matching refs:PI
572 PI: long 0x40000000,0xC90FDAA2,0x2168C235,0x00000000
5147 cmp.l %d1,&0x4004BC7E # is |X| < 15 PI?
5151 #--THIS IS THE USUAL CASE, |X| <= 15 PI.
5155 fmul.d TWOBYPI(%pc),%fp1 # X*2/PI
5157 lea PITBL+0x200(%pc),%a1 # TABLE OF N*PI/2, N = -32,...,32
5298 #--IF |X| > 15PI, WE USE THE GENERAL ARGUMENT REDUCTION.
5357 cmp.l %d1,&0x4004BC7E # |X| < 15 PI?
5362 #--THIS IS THE USUAL CASE, |X| <= 15 PI.
5367 fmul.d TWOBYPI(%pc),%fp1 # X*2/PI
5369 lea PITBL+0x200(%pc),%a1 # TABLE OF N*PI/2, N = -32,...,32
5583 # yes; create 2**16383*PI/2
5588 # create low half of 2**16383*PI/2 at FP_SCR1
5605 #--ON ENTRY, FP0 IS X, ON RETURN, FP0 IS X REM PI/2, |X| <= PI/4.
5625 #--FIND THE REMAINDER OF (R,r) W.R.T. 2**L * (PI/2). L IS SO CHOSEN
5626 #--THAT INT( X * (2/PI) / 2**(L) ) < 2**29.
5628 #--CREATE 2**(-L) * (2/PI), SIGN(INARG)*2**(63),
5631 mov.l &0x00003FFE,%d2 # BIASED EXP OF 2/PI
5632 sub.l %d1,%d2 # BIASED EXP OF 2**(-L)*(2/PI)
5636 mov.w %d2,FP_SCR0_EX(%a6) # FP_SCR0 = 2**(-L)*(2/PI)
5639 fmul.x FP_SCR0(%a6),%fp2 # fp2 = X * 2**(-L)*(2/PI)
5658 add.l &0x00003FFF,%d2 # BIASED EXP OF 2**L * (PI/2)
5787 #--N*PI/2, -32 <= N <= 32, IN A LEADING TERM IN EXT. AND TRAILING
5788 #--TERM IN SGL. NOTE THAT PI IS 64-BIT LONG, THUS N*PI/2 IS AT
5876 cmp.l %d1,&0x4004BC7E # |X| < 15 PI?
5881 #--THIS IS THE USUAL CASE, |X| <= 15 PI.
5884 fmul.d TWOBYPI(%pc),%fp1 # X*2/PI
5886 lea.l PITBL+0x200(%pc),%a1 # TABLE OF N*PI/2, N = -32,...,32
5982 #--IF |X| > 15PI, WE USE THE GENERAL ARGUMENT REDUCTION.
6014 # yes; create 2**16383*PI/2
6019 # create low half of 2**16383*PI/2 at FP_SCR1
6036 #--ON ENTRY, FP0 IS X, ON RETURN, FP0 IS X REM PI/2, |X| <= PI/4.
6056 #--FIND THE REMAINDER OF (R,r) W.R.T. 2**L * (PI/2). L IS SO CHOSEN
6057 #--THAT INT( X * (2/PI) / 2**(L) ) < 2**29.
6059 #--CREATE 2**(-L) * (2/PI), SIGN(INARG)*2**(63),
6062 mov.l &0x00003FFE,%d2 # BIASED EXP OF 2/PI
6063 sub.l %d1,%d2 # BIASED EXP OF 2**(-L)*(2/PI)
6067 mov.w %d2,FP_SCR0_EX(%a6) # FP_SCR0 = 2**(-L)*(2/PI)
6070 fmul.x FP_SCR0(%a6),%fp2 # fp2 = X * 2**(-L)*(2/PI)
6089 add.l &0x00003FFF,%d2 # BIASED EXP OF 2**L * (PI/2)
6511 #--IF |X| > 2^(100), RETURN SIGN(X)*(PI/2 - TINY). OTHERWISE,
6512 #--RETURN SIGN(X)*PI/2 + ATAN(-1/X).
6670 #--|X| = 1, ASIN(X) = +- PI/2.
6765 #--|X| = 1, ACOS(X) = 0 OR PI
6770 #Returns PI and inexact exception
6772 fmov.x PI(%pc),%fp0 # load PI
6781 #--ACOS(X) = PI/2 FOR DENORMALIZED X
9354 # the answer is PI rounded to the proper precision.
9363 lea.l PIRN(%pc),%a0 # yes; load PI RN table addr
9369 lea.l PIRZRM(%pc),%a0 # no; load PI RZ,RM table addr
9372 lea.l PIRP(%pc),%a0 # load PI RP table addr
10609 # spi_2(): Return signed PI/2 according to sign of src operand. #
10617 # ld_ppi2(): return positive PI/2.
10626 # ld_mpi2(): return negative PI/2.