Lines Matching refs:PI
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)
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