Function xsum_small_display

xs/sources/xsum.c:2441–2473

/* DISPLAY A SMALL ACCUMULATOR. */

void xsum_small_display (xsum_small_accumulator *restrict sacc)
{
  int i, dots;
  c_printf("Small accumulator:");
  if (sacc->Inf)
  { c_printf (" %cInf", sacc->Inf>0 ? '+' : '-');
    if ((sacc->Inf & ((xsum_uint)XSUM_EXP_MASK << XSUM_MANTISSA_BITS))
          != ((xsum_uint)XSUM_EXP_MASK << XSUM_MANTISSA_BITS))
    { c_printf(" BUT WRONG CONTENTS: %llx", (long long) sacc->Inf);
    }
  }
  if (sacc->NaN)
  { c_printf (" NaN (%llx)", (long long) sacc->NaN);
  }
  c_printf("\n");
  dots = 0;
  for (i = XSUM_SCHUNKS-1; i >= 0; i--)
  { if (sacc->chunk[i] == 0)
    { if (!dots) c_printf("            ...\n");
      dots = 1;
    }
    else
    { c_printf ("%5d %5d ", i, (int)
       ((i<<XSUM_LOW_EXP_BITS) - XSUM_EXP_BIAS - XSUM_MANTISSA_BITS));
      pbinary_int64 ((int64_t) sacc->chunk[i] >> 32, XSUM_SCHUNK_BITS-32);
      c_printf(" ");
      pbinary_int64 ((int64_t) sacc->chunk[i] & 0xffffffff, 32);
      c_printf ("\n");
      dots = 0;
    }
  }
  c_printf("\n");
}


/* RETURN NUMBER OF CHUNKS IN USE IN SMALL ACCUMULATOR. */