t-get_ui.c
上传用户:qaz666999
上传日期:2022-08-06
资源大小:2570k
文件大小:4k
源码类别:

数学计算

开发平台:

Unix_Linux

  1. /* Exercise mpf_get_ui.
  2. Copyright 2004 Free Software Foundation, Inc.
  3. This file is part of the GNU MP Library.
  4. The GNU MP Library is free software; you can redistribute it and/or modify
  5. it under the terms of the GNU Lesser General Public License as published by
  6. the Free Software Foundation; either version 3 of the License, or (at your
  7. option) any later version.
  8. The GNU MP Library is distributed in the hope that it will be useful, but
  9. WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
  10. or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
  11. License for more details.
  12. You should have received a copy of the GNU Lesser General Public License
  13. along with the GNU MP Library.  If not, see http://www.gnu.org/licenses/.  */
  14. #include <stdio.h>
  15. #include <stdlib.h>
  16. #include "gmp.h"
  17. #include "gmp-impl.h"
  18. #include "tests.h"
  19. void
  20. check_limbdata (void)
  21. {
  22. #define M  GMP_NUMB_MAX
  23.   static const struct {
  24.     mp_exp_t       exp;
  25.     mp_size_t      size;
  26.     mp_limb_t      d[10];
  27.     unsigned long  want;
  28.   } data[] = {
  29.     /* in the comments here, a "_" indicates a digit (ie. limb) position not
  30.        included in the d data, and therefore zero */
  31.     { 0, 0, { 0 }, 0L },    /* 0 */
  32.     { 1,  1, { 1 }, 1L },   /* 1 */
  33.     { 1, -1, { 1 }, 1L },   /* -1 */
  34.     { 0,  1, { 1 }, 0L },   /* .1 */
  35.     { 0, -1, { 1 }, 0L },   /* -.1 */
  36.     { -1,  1, { 1 }, 0L },  /* ._1 */
  37.     { -1, -1, { 1 }, 0L },  /* -._1 */
  38.     { -999,          1, { 1 }, 0L },   /* .___1 small */
  39.     { MP_EXP_T_MIN,  1, { 1 }, 0L },   /* .____1 very small */
  40.     { 999,          1, { 1 }, 0L },    /* 1____. big */
  41.     { MP_EXP_T_MAX, 1, { 1 }, 0L },    /* 1_____. very big */
  42.     { 1, 2, { 999, 2 }, 2L },                  /* 2.9 */
  43.     { 5, 8, { 7, 8, 9, 3, 0, 0, 0, 1 }, 3L },  /* 10003.987 */
  44.     { 2, 2, { M, M },    ULONG_MAX }, /* FF. */
  45.     { 2, 2, { M, M, M }, ULONG_MAX }, /* FF.F */
  46.     { 3, 3, { M, M, M }, ULONG_MAX }, /* FFF. */
  47. #if GMP_NUMB_BITS >= BITS_PER_ULONG
  48.     /* normal case, numb bigger than long */
  49.     { 2,  1, { 1 },    0L },      /* 1_. */
  50.     { 2,  2, { 0, 1 }, 0L },      /* 10. */
  51.     { 2,  2, { 999, 1 }, 999L },  /* 19. */
  52.     { 3,  2, { 999, 1 }, 0L },    /* 19_. */
  53. #else
  54.     /* nails case, numb smaller than long */
  55.     { 2,  1, { 1 }, 1L << GMP_NUMB_BITS },  /* 1_. */
  56.     { 3,  1, { 1 }, 0L },                   /* 1__. */
  57.     { 2,  2, { 99, 1 },    99L + (1L << GMP_NUMB_BITS) },  /* 19. */
  58.     { 3,  2, { 1, 99 },    1L << GMP_NUMB_BITS },          /* 91_. */
  59.     { 3,  3, { 0, 1, 99 }, 1L << GMP_NUMB_BITS },          /* 910. */
  60. #endif
  61.   };
  62.   mpf_t          f;
  63.   unsigned long  got;
  64.   int            i;
  65.   mp_limb_t      buf[20 + numberof(data[i].d)];
  66.   for (i = 0; i < numberof (data); i++)
  67.     {
  68.       refmpn_fill (buf, 10, CNST_LIMB(0xDEADBEEF));
  69.       refmpn_copy (buf+10, data[i].d, ABS(data[i].size));
  70.       refmpn_fill (buf+10+ABS(data[i].size), 10, CNST_LIMB(0xDEADBEEF));
  71.       PTR(f) = buf+10;
  72.       EXP(f) = data[i].exp;
  73.       SIZ(f) = data[i].size;
  74.       PREC(f) = numberof (data[i].d);
  75.       MPF_CHECK_FORMAT (f);
  76.       got = mpf_get_ui (f);
  77.       if (got != data[i].want)
  78. {
  79.   printf    ("mpf_get_ui wrong at limb data[%d]n", i);
  80.   mpf_trace ("  f", f);
  81.   mpn_trace ("  d", data[i].d, data[i].size);
  82.   printf    ("  size %ldn", (long) data[i].size);
  83.   printf    ("  exp %ldn", (long) data[i].exp);
  84.   printf    ("  got   %lu (0x%lX)n", got, got);
  85.   printf    ("  want  %lu (0x%lX)n", data[i].want, data[i].want);
  86.   abort();
  87. }
  88.     }
  89. }
  90. int
  91. main (void)
  92. {
  93.   tests_start ();
  94.   mp_trace_base = 16;
  95.   check_limbdata ();
  96.   tests_end ();
  97.   exit (0);
  98. }