Mercurial > hg > octave-nkf > gnulib-hg

comparison lib/vasnprintf.c @ 9445:e0f2eeb1796a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix output of floating-point values with large exponent.
author Bruno Haible <bruno@clisp.org>
date Sun, 04 Nov 2007 15:00:15 +0100
parents ad275322f8f1
children 0519fc8ce06a
comparison
equal deleted inserted replaced
9444:0c3b25464595 9445:e0f2eeb1796a
1149 const mp_limb_t *sourceptr = m.limbs; 1149 const mp_limb_t *sourceptr = m.limbs;
1150 mp_twolimb_t accu = 0; 1150 mp_twolimb_t accu = 0;
1151 size_t count; 1151 size_t count;
1152 for (count = m.nlimbs; count > 0; count--) 1152 for (count = m.nlimbs; count > 0; count--)
1153 { 1153 {
1154 accu += (mp_twolimb_t) *sourceptr++ << s; 1154 accu += (mp_twolimb_t) *sourceptr++ << s_bits;
1155 *destptr++ = (mp_limb_t) accu; 1155 *destptr++ = (mp_limb_t) accu;
1156 accu = accu >> GMP_LIMB_BITS; 1156 accu = accu >> GMP_LIMB_BITS;
1157 } 1157 }
1158 if (accu > 0) 1158 if (accu > 0)
1159 *destptr++ = (mp_limb_t) accu; 1159 *destptr++ = (mp_limb_t) accu;