/osnet-11/usr/src/lib/libc/port/fp/ |
H A D | pack_float.c | 142 pu->exponent++; 164 kluge.f.msw.exponent = 0; 169 kluge.f.msw.exponent = 0xff; 173 kluge.f.msw.exponent = 0xff; 179 pu->exponent += SINGLE_BIAS; 180 if (pu->exponent <= 0) { 181 kluge.f.msw.exponent = 0; 182 __fp_rightshift(pu, 1 - pu->exponent); 186 kluge.f.msw.exponent = 1; 199 pu->exponent [all...] |
H A D | decimal_bin.c | 41 * nonzero fractional part. If pd->exponent > 0 and **ppb is not 43 * verted significand scaled by 10^pd->exponent), then on exit, 136 /* scale pb by 10^pd->exponent */ 158 exp = pd->exponent; 259 px->exponent = pbb->bexponent + (pbb->blength << 4) - 1; 272 px->exponent--; 345 exp = pd->exponent; 366 /* small positive exponent */ 377 /* small negative exponent */ 440 if (pm->rd != fp_nearest || pd->ndigits > 18 || pd->exponent [all...] |
H A D | fconvert.c | 60 *decpt = dr.exponent + dr.ndigits; 67 if (ndigits > 0 && dr.exponent > -ndigits) { 68 while (i < dr.ndigits + dr.exponent + ndigits) 114 *decpt = dr.exponent + dr.ndigits; 121 if (ndigits > 0 && dr.exponent > -ndigits) { 122 while (i < dr.ndigits + dr.exponent + ndigits) 191 *decpt = dr.exponent + dr.ndigits;
|
H A D | hex_bin.c | 53 * Adjust the (base two) exponent to reflect the fact that the 58 pu->exponent = pd->exponent + (pd->ndigits << 2) - 1; 87 pu->exponent--; 108 * (-1)^(pd->sign) * m * 2^(pd->exponent) 123 kluge.f.msw.exponent = 0; 144 kluge.f.msw.exponent = 0; 168 kluge.f.msw.exponent = 0; 194 kluge.f.msw.exponent = 0;
|
H A D | gconvert.c | 57 if ((pd->exponent > 0) || (pd->exponent < -(ndigits + 3))) { 75 n = pd->exponent + i - 1; 93 if (pd->exponent >= (1 - ndigits)) { /* x.xxx */ 94 for (i = 0; i < (ndigits + pd->exponent); ) 105 for (i = 0; i < -(pd->exponent + ndigits); i++)
|
H A D | char_to_decimal.h | 126 pd->exponent = 0; 361 * an exponent delimiter (E or e for any decimal form; +, -, D, d, 378 pd->exponent += (nzbp + 1) << expshift; 432 * nzbp to pd->exponent to account for them. 449 * Only accept these as the start of the exponent 460 goto exponent; 466 goto exponent; 484 * or an exponent delimiter. (Note that it is possible to get 499 pd->exponent = (-(nzap + 1)) << expshift; 506 pd->exponent [all...] |
H A D | _base_sup.c | 100 if (kluge.f.msw.exponent == 0) { /* 0 or sub */ 108 } else if (kluge.f.msw.exponent == 0x7fff) { /* inf or nan */
|
H A D | double_decim.c | 69 * nonzero fractional part. If pb->exponent > 0 and **ppd is not 71 * verted significand scaled by 2^pb->exponent), then on exit, 160 * string is stored in pd->ndigits, and the corresponding exponent 161 * is stored in pd->exponent. If the converted value is not exact, 167 * the exponent and the decimal place at which the value is rounded 278 pd->exponent = elast; 318 pd->exponent++; 320 pd->exponent++; 456 pf->bexponent = x->f.msw.exponent - DOUBLE_BIAS - 52; 462 if (x->f.msw.exponent [all...] |
H A D | econvert.c | 81 *decpt = dr.exponent + ndigits; 126 *decpt = dr.exponent + ndigits; 177 *decpt = dr.exponent + ndigits;
|
H A D | __flt_decim.c | 313 pd->exponent = -pm->ndigits; 381 * the exponent. 387 pd->exponent = -i;
|
/osnet-11/usr/src/lib/libc/inc/ |
H A D | base_conversion.h | 43 /* exponent bias */ 55 * The exponent is unbiased. The significand array is long enough 65 int exponent; member in struct:__anon1298 78 unsigned exponent:8; member in struct:__anon1299 84 unsigned exponent:11; member in struct:__anon1300 89 unsigned exponent:15; member in struct:__anon1301 96 unsigned exponent:15; member in struct:__anon1302 126 unsigned exponent:8; member in struct:__anon1307 132 unsigned exponent:11; member in struct:__anon1308 138 unsigned exponent member in struct:__anon1309 144 unsigned exponent:15; member in struct:__anon1310 [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ |
H A D | numeric.c | 692 /* we can have an optional exponent part */ 722 S_mulexp10(NV value, I32 exponent) argument 729 if (exponent == 0) 737 * to support G_FLOAT on both VAX and Alpha, and though the exponent 757 if (exponent >= NV_MAX_10_EXP || exponent + exp_v >= NV_MAX_10_EXP) 759 if (exponent < 0) { 760 if (-(exponent + exp_v) >= NV_MAX_10_EXP) 762 while (-exponent >= NV_MAX_10_EXP) { 763 /* combination does not overflow, but 10^(-exponent) doe 827 I32 exponent = 0; local [all...] |
/osnet-11/usr/src/lib/libc/port/i18n/ |
H A D | wstod.c | 214 pd->exponent = 0; 369 * digit, an exponent delimiter (E or e for decimal form, 385 pd->exponent += (nzbp + 1) << expshift; 423 * nzbp to pd->exponent to account for them. 436 goto exponent; 442 goto exponent; 458 * or an exponent delimiter. (Note that it is possible to get 469 pd->exponent = (-(nzap + 1)) << expshift; 476 pd->exponent -= (nzap + 1) << expshift; 478 pd->exponent [all...] |
/osnet-11/usr/src/grub/grub2/grub-core/gnulib/ |
H A D | vasnprintf.c | 1620 12; /* sign, decimal point, exponent etc. */ 3072 int exponent; local 3076 mantissa = printf_frexpl (arg, &exponent); 3079 exponent = 0; 3149 SNPRINTF (p, 6 + 1, decimal_format, exponent); 3156 sprintf ((char *) p, "%+d", exponent); 3164 sprintf (expbuf, "%+d", exponent); 3223 int exponent; local 3227 mantissa = printf_frexp (arg, &exponent); 3230 exponent 3522 int exponent = floorlog10l (arg < 0 ? -arg : arg); local 3538 int exponent = floorlog10 (arg < 0 ? -arg : arg); local 3664 int exponent; local 3814 int exponent; local 4126 int exponent; local 4288 int exponent; local [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
H A D | sprintf.t | 71 # $x may have 3 exponent digits, not 2 92 { # three-digit exponent 93 print("ok $i # >$result< $x three-digit exponent accepted\n"); 96 # Suppress tests with modulo of exponent >= 100 on platforms 102 " Suppressed: exponent out of range?\n") 131 >%G< >1234567e96< >1.23457E+102< >exponent too big for OS/390< 132 >%G< >.1234567e-101< >1.23457E-102< >exponent too small for OS/390< 133 >%e< >1234567E96< >1.234567e+102< >exponent too big for OS/390< 134 >%e< >.1234567E-101< >1.234567e-102< >exponent too small for OS/390< 135 >%g< >.1234567E-101< >1.23457e-102< >exponent to [all...] |
/osnet-11/usr/src/lib/libresolv2/common/resolv/ |
H A D | res_debug.c | 789 int mantissa, exponent; local 792 exponent = (int)((prec >> 0) & 0x0f) % 10; 794 val = mantissa * poweroften[exponent]; 806 int exponent; local 825 for (exponent = 0; exponent < 9; exponent++) 826 if (cmval < poweroften[exponent+1]) 829 mantissa = cmval / poweroften[exponent]; 833 retval = (mantissa << 4) | exponent; [all...] |
/osnet-11/usr/src/lib/libprtdiag/common/ |
H A D | display_sun4v.c | 1337 int32_t exponent; local 1493 * Get the exponent if present, and do a little math so that 1498 &exponent, sizeof (exponent)) != PICL_SUCCESS) 1499 exponent = 0; 1500 if (exponent == 0) 1504 pow((double)10, (double)exponent); 1510 * exponent to zero will prevent the printf below 1512 * negative exponent is used to set the precision 1515 if ((int)display_val == display_val || exponent > [all...] |
/osnet-11/usr/src/lib/libcmd/common/ |
H A D | od.c | 187 int exponent; member in struct:Size_s 799 if (!(zp = xp) || zp->exponent) 846 if (zp->exponent) 855 base = sfsprintf(dig, sizeof(dig), "%u", zp->exponent); 886 if (zp->exponent)
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Math/ |
H A D | BigRat.pm | 164 my $diff_e = $MBI->new ($nf->exponent())->bsub ( $f->exponent); 1039 $x->{_n}->blsft($x->{_d}->exponent()->babs(),10); # 7.1/4.51 => 7.1/45.1 1045 $x->{_d}->blsft($x->{_n}->exponent()->babs(),10); # 71/45.1 => 710/45.1
|
H A D | BigInt.pm | 517 # split str in m mantissa, e exponent, i integer, f fraction, v value, s sign 539 my $e = int("$$es$$ev"); # exponent (avoid recursion) 1604 # takes a very large number to a very large exponent in a given very 1615 # check exponent for valid values 1967 sub exponent subroutine 1969 # return a copy of the exponent (here always 0, NaN or 1 for $m == 0) 2001 # return a copy of both the exponent and the mantissa 2004 ($x->mantissa(),$x->exponent()); 2509 # sign,value for exponent,mantint,mantfrac 2511 # valid exponent [all...] |
H A D | BigFloat.pm | 8 # _e : exponent (ref to $CALC object) 113 # _e: exponent 168 $self->{_e} = $MBI->_new($$ev); # exponent 465 # lengths (corrected by exponent) are equal 529 # lengths (corrected by exponent) are equal 1418 # $ym is now mantissa of $y based on exponent 0 1438 # now mantissas are equalized, exponent of $x is adjusted, so calc result 2210 sub exponent subroutine 2212 # return a copy of the exponent 2241 # return a copy of both the exponent an [all...] |
/osnet-11/usr/src/lib/libproc/common/ |
H A D | P32ton.c | 649 exp = fpru.reg.exponent & 0x7fff;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/B/ |
H A D | Deparse.pm | 3394 # exponent. Assumes you've already made sure the number isn't zero or 3398 my $exponent = 0; 3402 $exponent++; 3407 $exponent--; 3411 return ($mantissa, $exponent);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Devel/PPPort/ |
H A D | PPPort.pm | 1106 /* we can have an optional exponent part */
|
/osnet-11/usr/src/lib/libc/port/ |
H A D | llib-lc | 1668 int exponent;
|