Annotation of OpenXM_contrib/gmp/tests/mpn/t-iord_u.c, Revision 1.1
1.1 ! ohara 1: /* Test MPN_INCR_U and MPN_DECR_U.
! 2:
! 3: Copyright 2001, 2002 Free Software Foundation, Inc.
! 4:
! 5: This file is part of the GNU MP Library.
! 6:
! 7: The GNU MP Library is free software; you can redistribute it and/or modify
! 8: it under the terms of the GNU Lesser General Public License as published by
! 9: the Free Software Foundation; either version 2.1 of the License, or (at your
! 10: option) any later version.
! 11:
! 12: The GNU MP Library is distributed in the hope that it will be useful, but
! 13: WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
! 14: or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public
! 15: License for more details.
! 16:
! 17: You should have received a copy of the GNU Lesser General Public License
! 18: along with the GNU MP Library; see the file COPYING.LIB. If not, write to
! 19: the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
! 20: MA 02111-1307, USA.
! 21: */
! 22:
! 23: #include <stdio.h>
! 24: #include <stdlib.h>
! 25:
! 26: #include "gmp.h"
! 27: #include "gmp-impl.h"
! 28: #include "tests.h"
! 29:
! 30:
! 31: /* The i386 MPN_INCR_U and MPN_DECR_U have special cases for "n" being a
! 32: compile-time constant 1, so that's exercised explicitly. */
! 33:
! 34:
! 35: #define M GMP_NUMB_MAX
! 36: #define SIZE ((mp_size_t) 10)
! 37:
! 38:
! 39: void
! 40: check_one (const char *name, int i,
! 41: mp_srcptr src, mp_limb_t n,
! 42: mp_srcptr got, mp_srcptr want, mp_size_t size)
! 43: {
! 44: if (! refmpn_equal_anynail (got, want, size))
! 45: {
! 46: printf ("Wrong at %s i=%d\n", name, i);
! 47: mpn_trace (" src", src, size);
! 48: mpn_trace (" n", &n, (mp_size_t) 1);
! 49: mpn_trace (" got", got, size);
! 50: mpn_trace (" want", want, size);
! 51: abort ();
! 52: }
! 53: }
! 54:
! 55:
! 56: void
! 57: check_incr_data (void)
! 58: {
! 59: static const struct {
! 60: mp_limb_t n;
! 61: const mp_limb_t src[SIZE];
! 62: const mp_limb_t want[SIZE];
! 63: } data[] = {
! 64: { 1, { 0 }, { 1 } },
! 65: { 1, { 123 }, { 124 } },
! 66: { 2, { 0 }, { 2 } },
! 67: { 2, { 123 }, { 125 } },
! 68: { M, { 0 }, { M } },
! 69:
! 70: { 1, { M, 0 }, { 0, 1 } },
! 71: { 1, { M, 123 }, { 0, 124 } },
! 72: { 2, { M, 0 }, { 1, 1 } },
! 73: { 2, { M, 123 }, { 1, 124 } },
! 74: { M, { M, 0 }, { M-1, 1 } },
! 75: { M, { M, 123 }, { M-1, 124 } },
! 76:
! 77: { 1, { M, M, 0 }, { 0, 0, 1 } },
! 78: { 1, { M, M, 123 }, { 0, 0, 124 } },
! 79: { 2, { M, M, 0 }, { 1, 0, 1 } },
! 80: { 2, { M, M, 123 }, { 1, 0, 124 } },
! 81: { M, { M, M, 0 }, { M-1, 0, 1 } },
! 82: { M, { M, M, 123 }, { M-1, 0, 124 } },
! 83:
! 84: { 1, { M, M, M, 0 }, { 0, 0, 0, 1 } },
! 85: { 1, { M, M, M, 123 }, { 0, 0, 0, 124 } },
! 86: { 2, { M, M, M, 0 }, { 1, 0, 0, 1 } },
! 87: { 2, { M, M, M, 123 }, { 1, 0, 0, 124 } },
! 88: { M, { M, M, M, 0 }, { M-1, 0, 0, 1 } },
! 89: { M, { M, M, M, 123 }, { M-1, 0, 0, 124 } },
! 90:
! 91: { 1, { M, M, M, M, 0 }, { 0, 0, 0, 0, 1 } },
! 92: { 1, { M, M, M, M, 123 }, { 0, 0, 0, 0, 124 } },
! 93: { 2, { M, M, M, M, 0 }, { 1, 0, 0, 0, 1 } },
! 94: { 2, { M, M, M, M, 123 }, { 1, 0, 0, 0, 124 } },
! 95: { M, { M, M, M, M, 0 }, { M-1, 0, 0, 0, 1 } },
! 96: { M, { M, M, M, M, 123 }, { M-1, 0, 0, 0, 124
! 97: #if defined (__hpux) && ! defined (__GNUC__)
! 98: /* Some versions (at least HP92453-01 B.11.11.23709.GP) of the
! 99: HP C compilers fail to zero-fill aggregates as the ISO C standard
! 100: requires (cf 6.5.7 Initialization). Compensate here: */
! 101: , 0, 0, 0, 0, 0
! 102: #endif
! 103: } }
! 104: };
! 105:
! 106: mp_limb_t got[SIZE];
! 107: int i;
! 108:
! 109: for (i = 0; i < numberof (data); i++)
! 110: {
! 111: refmpn_copyi (got, data[i].src, SIZE);
! 112: MPN_INCR_U (got, SIZE, data[i].n);
! 113: check_one ("check_incr (general)", i,
! 114: data[i].src, data[i].n,
! 115: got, data[i].want, SIZE);
! 116:
! 117: if (data[i].n == 1)
! 118: {
! 119: refmpn_copyi (got, data[i].src, SIZE);
! 120: MPN_INCR_U (got, SIZE, CNST_LIMB(1));
! 121: check_one ("check_incr (const 1)", i,
! 122: data[i].src, data[i].n,
! 123: got, data[i].want, SIZE);
! 124: }
! 125: }
! 126: }
! 127:
! 128: void
! 129: check_decr_data (void)
! 130: {
! 131: static const struct {
! 132: mp_limb_t n;
! 133: const mp_limb_t src[SIZE];
! 134: const mp_limb_t want[SIZE];
! 135: } data[] = {
! 136: { 1, { 1 }, { 0 } },
! 137: { 1, { 123 }, { 122 } },
! 138: { 1, { M }, { M-1 } },
! 139: { 2, { 2 }, { 0 } },
! 140: { 2, { 123 }, { 121 } },
! 141: { M, { M }, { 0 } },
! 142: { M-1, { M }, { 1 } },
! 143:
! 144: { 1, { 0, 1 }, { M, 0 } },
! 145: { 1, { 0, 123 }, { M, 122 } },
! 146: { 1, { 0, M }, { M, M-1 } },
! 147: { 2, { 0, 123 }, { M-1, 122 } },
! 148: { 2, { 1, 123 }, { M, 122 } },
! 149: { M, { 0, 123 }, { 1, 122 } },
! 150: { M, { M-1, M }, { M, M-1 } },
! 151:
! 152: { 1, { 0, 0, 1 }, { M, M, 0 } },
! 153: { 1, { 0, 0, 123 }, { M, M, 122 } },
! 154: { 1, { 0, 0, M }, { M, M, M-1 } },
! 155: { 2, { 0, 0, 123 }, { M-1, M, 122 } },
! 156: { 2, { 1, 0, 123 }, { M, M, 122 } },
! 157: { M, { 0, 0, 123 }, { 1, M, 122 } },
! 158: { M, { M-1, 0, M }, { M, M, M-1 } },
! 159:
! 160: { 1, { 0, 0, 0, 1 }, { M, M, M, 0 } },
! 161: { 1, { 0, 0, 0, 123 }, { M, M, M, 122 } },
! 162: { 1, { 0, 0, 0, M }, { M, M, M, M-1 } },
! 163: { 2, { 0, 0, 0, 123 }, { M-1, M, M, 122 } },
! 164: { 2, { 1, 0, 0, 123 }, { M, M, M, 122 } },
! 165: { M, { 0, 0, 0, 123 }, { 1, M, M, 122 } },
! 166: { M, { M-1, 0, 0, M }, { M, M, M, M-1 } },
! 167:
! 168: { 1, { 0, 0, 0, 0, 1 }, { M, M, M, M, 0 } },
! 169: { 1, { 0, 0, 0, 0, 123 }, { M, M, M, M, 122 } },
! 170: { 1, { 0, 0, 0, 0, M }, { M, M, M, M, M-1 } },
! 171: { 2, { 0, 0, 0, 0, 123 }, { M-1, M, M, M, 122 } },
! 172: { 2, { 1, 0, 0, 0, 123 }, { M, M, M, M, 122 } },
! 173: { M, { 0, 0, 0, 0, 123 }, { 1, M, M, M, 122 } },
! 174: { M, { M-1, 0, 0, 0, M }, { M, M, M, M, M-1 } },
! 175:
! 176: { 1, { 0, 0, 0, 0, 0, 1 }, { M, M, M, M, M, 0 } },
! 177: { 1, { 0, 0, 0, 0, 0, 123 }, { M, M, M, M, M, 122 } },
! 178: { 1, { 0, 0, 0, 0, 0, M }, { M, M, M, M, M, M-1 } },
! 179: { 2, { 0, 0, 0, 0, 0, 123 }, { M-1, M, M, M, M, 122 } },
! 180: { 2, { 1, 0, 0, 0, 0, 123 }, { M, M, M, M, M, 122 } },
! 181: { M, { 0, 0, 0, 0, 0, 123 }, { 1, M, M, M, M, 122 } },
! 182: { M, { M-1, 0, 0, 0, 0, M }, { M, M, M, M, M, M-1
! 183: #if defined (__hpux) && ! defined (__GNUC__)
! 184: /* For explanation of this garbage, see previous function. */
! 185: , 0, 0, 0, 0
! 186: #endif
! 187: } }
! 188: };
! 189:
! 190: mp_limb_t got[SIZE];
! 191: int i;
! 192:
! 193: for (i = 0; i < numberof (data); i++)
! 194: {
! 195: refmpn_copyi (got, data[i].src, SIZE);
! 196: MPN_DECR_U (got, SIZE, data[i].n);
! 197: check_one ("check_decr_data", i,
! 198: data[i].src, data[i].n,
! 199: got, data[i].want, SIZE);
! 200:
! 201: if (data[i].n == 1)
! 202: {
! 203: refmpn_copyi (got, data[i].src, SIZE);
! 204: MPN_DECR_U (got, SIZE, CNST_LIMB(1));
! 205: check_one ("check_decr (const 1)", i,
! 206: data[i].src, data[i].n,
! 207: got, data[i].want, SIZE);
! 208: }
! 209: }
! 210: }
! 211:
! 212:
! 213: int
! 214: main (void)
! 215: {
! 216: tests_start ();
! 217: mp_trace_base = -16;
! 218:
! 219: check_incr_data ();
! 220: check_decr_data ();
! 221:
! 222: tests_end ();
! 223: exit (0);
! 224: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to t-iord_u.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gmp / tests / mpn