UNPACKED_SIZE
unsigned significand[UNPACKED_SIZE];
for (i = 1; i < UNPACKED_SIZE; i++)
for (i = 1; i < UNPACKED_SIZE; i++)
for (i = 1; i < UNPACKED_SIZE; i++)
for (i = 1; i < UNPACKED_SIZE; i++)
for (i = 1; i < UNPACKED_SIZE; i++)
for (i = 1; i < UNPACKED_SIZE; i++)
for (i = 2; i < UNPACKED_SIZE; i++)
for (i = 1; i < UNPACKED_SIZE; i++)
for (i = 1; i < UNPACKED_SIZE; i++)
for (i = 2; i < UNPACKED_SIZE; i++)
for (is = (roundword + 1); is < UNPACKED_SIZE; is++)
if (n >= (32 * UNPACKED_SIZE)) { /* drastic */
for (i = 0; i < UNPACKED_SIZE && pu->significand[i] == 0; i++)
if (i >= UNPACKED_SIZE) {
for (i = 0; i < (UNPACKED_SIZE - 1); i++)
pu->significand[UNPACKED_SIZE - 1] = 1;
if (pu->significand[UNPACKED_SIZE - 1] != 0)
pu->significand[UNPACKED_SIZE - 2] |= 1;
for (i = UNPACKED_SIZE - 2; i >= 0; i--)
for (i = 0; i < UNPACKED_SIZE; i++) {
pu->significand[UNPACKED_SIZE - 1] |= 1;