Searched refs:exp_adjust (Results 1 - 1 of 1) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/
H A Dnumeric.c824 I32 exp_adjust[2] = {0,0}; local
877 exp_adjust[1]++;
894 exp_adjust[1]--;
896 exp_adjust[0]++;
902 exp_adjust[0]++;
962 result[2] = S_mulexp10(result[0],exponent+exp_adjust[0])
963 + S_mulexp10(result[1],exponent-exp_adjust[1]);
965 result[2] = S_mulexp10(result[0],exponent+exp_adjust[0]);

Completed in 16 milliseconds