Lines Matching refs:X
4 | stwotox --- 2**X
5 | stwotoxd --- 2**X for denormalized X
6 | stentox --- 10**X
7 | stentoxd --- 10**X for denormalized X
9 | Input: Double-extended number X in location pointed to
25 | 1. If |X| > 16480, go to ExpBig.
27 | 2. If |X| < 2**(-70), go to ExpSm.
29 | 3. Decompose X as X = N/64 + r where |r| <= 1/128. Furthermore
38 | 1. If |X| > 16480*log_10(2) (base 10 log of 2), go to ExpBig.
40 | 2. If |X| < 2**(-70), go to ExpSm.
42 | 3. Set y := X*log_2(10)*64 (base 2 log of 10). Set
200 fmoves #0x3F800000,%fp0 | ...RETURN 1 + X
208 |--ENTRY POINT FOR 2**(X), HERE X IS FINITE, NON-ZERO, AND NOT NAN'S
213 fmovex %fp0,X(%a6)
216 cmpil #0x3FB98000,%d0 | ...|X| >= 2**(-70)?
221 cmpil #0x400D80C0,%d0 | ...|X| > 16480?
227 |--USUAL CASE, 2^(-70) <= |X| <= 16480
230 fmuls #0x42800000,%fp1 | ...64 * X
232 fmovel %fp1,N(%a6) | ...N = ROUND-TO-INT(64 X)
304 fmoves #0x3F800000,%fp0 | ...RETURN 1 + X
312 |--ENTRY POINT FOR 10**(X), HERE X IS FINITE, NON-ZERO, AND NOT NAN'S
317 fmovex %fp0,X(%a6)
320 cmpil #0x3FB98000,%d0 | ...|X| >= 2**(-70)?
325 cmpil #0x400B9B07,%d0 | ...|X| <= 16480*log2/log10 ?
330 |--USUAL CASE, 2^(-70) <= |X| <= 16480 LOG 2 / LOG 10
333 fmuld L2TEN64,%fp1 | ...X*64*LOG10/LOG2
335 fmovel %fp1,N(%a6) | ...N=INT(X*64*LOG10/LOG2)