Lines Matching refs:exponent
1364 S_mulexp10(NV value, I32 exponent) in S_mulexp10() argument
1371 if (exponent == 0) in S_mulexp10()
1399 if (exponent >= NV_MAX_10_EXP || exponent + exp_v >= NV_MAX_10_EXP) in S_mulexp10()
1401 if (exponent < 0) { in S_mulexp10()
1402 if (-(exponent + exp_v) >= NV_MAX_10_EXP) in S_mulexp10()
1404 while (-exponent >= NV_MAX_10_EXP) { in S_mulexp10()
1407 ++exponent; in S_mulexp10()
1413 if (exponent < 0) { in S_mulexp10()
1415 exponent = -exponent; in S_mulexp10()
1422 while (value && exponent > NV_MAX_10_EXP) { in S_mulexp10()
1423 exponent--; in S_mulexp10()
1437 for (bit = 1; exponent; bit <<= 1) { in S_mulexp10()
1438 if (exponent & bit) { in S_mulexp10()
1439 exponent ^= bit; in S_mulexp10()
1452 if (exponent == 0) break; in S_mulexp10()
1642 I32 exponent = 0; in Perl_my_atof3() local
1836 exponent = exponent * 10 + (*s++ - '0'); in Perl_my_atof3()
1838 exponent = -exponent; in Perl_my_atof3()
1844 result[2] = S_mulexp10(result[0],exponent+exp_adjust[0]) in Perl_my_atof3()
1845 + S_mulexp10(result[1],exponent-exp_adjust[1]); in Perl_my_atof3()
1847 result[2] = S_mulexp10(result[0],exponent+exp_adjust[0]); in Perl_my_atof3()