vasilito
ff4ff35918
Red Bear OS is a full fork. All sources must be available from git clone with zero network access. Removed gitignore rules that excluded fetched source trees under recipes/*/source/, local/recipes/kde/*/source/, local/recipes/qt/*/source/, and vendor source trees. Build artifacts (target/, build/, source.tar, *.o, *.so) remain excluded. 127291 files added — kernel, relibc, base, bootloader, pkgar, all KDE/Qt frameworks, mesa, wayland, DRM drivers, and every other recipe source.
272 lines
10 KiB
C
272 lines
10 KiB
C
/* Test file for:
|
|
mpfr_fits_sint_p, mpfr_fits_slong_p, mpfr_fits_sshort_p,
|
|
mpfr_fits_uint_p, mpfr_fits_ulong_p, mpfr_fits_ushort_p
|
|
|
|
Copyright 2004-2025 Free Software Foundation, Inc.
|
|
Contributed by the Pascaline and Caramba projects, INRIA.
|
|
|
|
This file is part of the GNU MPFR Library.
|
|
|
|
The GNU MPFR Library is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU Lesser General Public License as published by
|
|
the Free Software Foundation; either version 3 of the License, or (at your
|
|
option) any later version.
|
|
|
|
The GNU MPFR Library is distributed in the hope that it will be useful, but
|
|
WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
|
|
or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public
|
|
License for more details.
|
|
|
|
You should have received a copy of the GNU Lesser General Public License
|
|
along with the GNU MPFR Library; see the file COPYING.LESSER.
|
|
If not, see <https://www.gnu.org/licenses/>. */
|
|
|
|
#define MPFR_NEED_INTMAX_H
|
|
#include "mpfr-test.h"
|
|
|
|
#define FTEST_AUX(N,NOT,FCT) \
|
|
do \
|
|
{ \
|
|
__gmpfr_flags = ex_flags; \
|
|
if (NOT FCT (x, (mpfr_rnd_t) r)) \
|
|
{ \
|
|
printf ("Error %d for %s, rnd = %s and x = ", \
|
|
N, #FCT, \
|
|
mpfr_print_rnd_mode ((mpfr_rnd_t) r)); \
|
|
mpfr_dump (x); \
|
|
exit (1); \
|
|
} \
|
|
if (__gmpfr_flags != ex_flags) \
|
|
{ \
|
|
mpfr_flags_t flags = __gmpfr_flags; \
|
|
printf ("Flags error %d for %s, rnd = %s and x = ", \
|
|
N, #FCT, \
|
|
mpfr_print_rnd_mode ((mpfr_rnd_t) r)); \
|
|
mpfr_dump(x); \
|
|
printf ("Expected flags:"); \
|
|
flags_out (ex_flags); \
|
|
printf ("Got flags: "); \
|
|
flags_out (flags); \
|
|
exit (1); \
|
|
} \
|
|
} \
|
|
while (0)
|
|
|
|
#define FTEST(N,NOT,FCT) \
|
|
do \
|
|
{ \
|
|
mpfr_exp_t e; \
|
|
FTEST_AUX (N,NOT,FCT); \
|
|
if (MPFR_IS_SINGULAR (x)) \
|
|
break; \
|
|
e = mpfr_get_exp (x); \
|
|
set_emin (e); \
|
|
set_emax (e); \
|
|
FTEST_AUX (N,NOT,FCT); \
|
|
set_emin (emin); \
|
|
set_emax (emax); \
|
|
} \
|
|
while (0)
|
|
|
|
#define CHECK_ALL(N,NOT) \
|
|
do \
|
|
{ \
|
|
FTEST (N, NOT, mpfr_fits_ulong_p); \
|
|
FTEST (N, NOT, mpfr_fits_slong_p); \
|
|
FTEST (N, NOT, mpfr_fits_uint_p); \
|
|
FTEST (N, NOT, mpfr_fits_sint_p); \
|
|
FTEST (N, NOT, mpfr_fits_ushort_p); \
|
|
FTEST (N, NOT, mpfr_fits_sshort_p); \
|
|
} \
|
|
while (0)
|
|
|
|
#define CHECK_MAX(N,NOT) \
|
|
do \
|
|
{ \
|
|
FTEST (N, NOT, mpfr_fits_uintmax_p); \
|
|
FTEST (N, NOT, mpfr_fits_intmax_p); \
|
|
} \
|
|
while (0)
|
|
|
|
/* V is a non-zero limit for the type (*_MIN for a signed type or *_MAX).
|
|
* If V is positive, then test V, V + 1/4, V + 3/4 and V + 1.
|
|
* If V is negative, then test V, V - 1/4, V - 3/4 and V - 1.
|
|
*/
|
|
#define CHECK_LIM(N,V,SET,FCT) \
|
|
do \
|
|
{ \
|
|
SET (x, V, MPFR_RNDN); \
|
|
FTEST (N, !, FCT); \
|
|
mpfr_set_si_2exp (y, (V) < 0 ? -1 : 1, -2, MPFR_RNDN); \
|
|
mpfr_add (x, x, y, MPFR_RNDN); \
|
|
FTEST (N+1, (r == MPFR_RNDN || \
|
|
MPFR_IS_LIKE_RNDZ (r, (V) < 0)) ^ !!, FCT); \
|
|
mpfr_add (x, x, y, MPFR_RNDN); \
|
|
mpfr_add (x, x, y, MPFR_RNDN); \
|
|
FTEST (N+3, MPFR_IS_LIKE_RNDZ (r, (V) < 0) ^ !!, FCT); \
|
|
mpfr_add (x, x, y, MPFR_RNDN); \
|
|
FTEST (N+4, !!, FCT); \
|
|
} \
|
|
while (0)
|
|
|
|
int
|
|
main (void)
|
|
{
|
|
mpfr_exp_t emin, emax;
|
|
mpfr_t x, y;
|
|
mpfr_flags_t flags[2] = { 0, MPFR_FLAGS_ALL }, ex_flags;
|
|
int i, r, fi;
|
|
|
|
tests_start_mpfr ();
|
|
|
|
emin = mpfr_get_emin ();
|
|
emax = mpfr_get_emax ();
|
|
|
|
mpfr_init2 (x, sizeof (unsigned long) * CHAR_BIT + 2);
|
|
mpfr_init2 (y, 8);
|
|
|
|
RND_LOOP (r)
|
|
for (fi = 0; fi < numberof (flags); fi++)
|
|
{
|
|
ex_flags = flags[fi];
|
|
|
|
/* Check NaN */
|
|
mpfr_set_nan (x);
|
|
CHECK_ALL (1, !!);
|
|
|
|
/* Check +Inf */
|
|
mpfr_set_inf (x, 1);
|
|
CHECK_ALL (2, !!);
|
|
|
|
/* Check -Inf */
|
|
mpfr_set_inf (x, -1);
|
|
CHECK_ALL (3, !!);
|
|
|
|
/* Check +0 */
|
|
mpfr_set_zero (x, 1);
|
|
CHECK_ALL (4, !);
|
|
|
|
/* Check -0 */
|
|
mpfr_set_zero (x, -1);
|
|
CHECK_ALL (5, !);
|
|
|
|
/* Check small positive op */
|
|
mpfr_set_str1 (x, "1@-1");
|
|
CHECK_ALL (6, !);
|
|
|
|
/* Check 17 */
|
|
mpfr_set_ui (x, 17, MPFR_RNDN);
|
|
CHECK_ALL (7, !);
|
|
|
|
/* Check large values (no fit) */
|
|
mpfr_set_ui (x, ULONG_MAX, MPFR_RNDN);
|
|
mpfr_mul_2ui (x, x, 1, MPFR_RNDN);
|
|
CHECK_ALL (8, !!);
|
|
mpfr_mul_2ui (x, x, 40, MPFR_RNDN);
|
|
CHECK_ALL (9, !!);
|
|
|
|
/* Check a non-integer number just below a power of two. */
|
|
mpfr_set_ui_2exp (x, 255, -2, MPFR_RNDN);
|
|
CHECK_ALL (10, !);
|
|
|
|
/* Check the limits of the types (except 0 for unsigned types) */
|
|
CHECK_LIM (20, ULONG_MAX, mpfr_set_ui, mpfr_fits_ulong_p);
|
|
CHECK_LIM (30, LONG_MAX, mpfr_set_si, mpfr_fits_slong_p);
|
|
CHECK_LIM (35, LONG_MIN, mpfr_set_si, mpfr_fits_slong_p);
|
|
CHECK_LIM (40, UINT_MAX, mpfr_set_ui, mpfr_fits_uint_p);
|
|
CHECK_LIM (50, INT_MAX, mpfr_set_si, mpfr_fits_sint_p);
|
|
CHECK_LIM (55, INT_MIN, mpfr_set_si, mpfr_fits_sint_p);
|
|
CHECK_LIM (60, USHRT_MAX, mpfr_set_ui, mpfr_fits_ushort_p);
|
|
CHECK_LIM (70, SHRT_MAX, mpfr_set_si, mpfr_fits_sshort_p);
|
|
CHECK_LIM (75, SHRT_MIN, mpfr_set_si, mpfr_fits_sshort_p);
|
|
|
|
/* Check negative op */
|
|
for (i = 1; i <= 4; i++)
|
|
{
|
|
int inv;
|
|
|
|
mpfr_set_si_2exp (x, -i, -2, MPFR_RNDN);
|
|
/* for RNDF, it fits if it fits when rounding away from zero */
|
|
mpfr_rint (y, x, r != MPFR_RNDF ? (mpfr_rnd_t) r : MPFR_RNDA);
|
|
inv = MPFR_NOTZERO (y);
|
|
FTEST (80, inv ^ !, mpfr_fits_ulong_p);
|
|
FTEST (81, !, mpfr_fits_slong_p);
|
|
FTEST (82, inv ^ !, mpfr_fits_uint_p);
|
|
FTEST (83, !, mpfr_fits_sint_p);
|
|
FTEST (84, inv ^ !, mpfr_fits_ushort_p);
|
|
FTEST (85, !, mpfr_fits_sshort_p);
|
|
}
|
|
}
|
|
|
|
#ifdef _MPFR_H_HAVE_INTMAX_T
|
|
|
|
mpfr_set_prec (x, sizeof (uintmax_t) * CHAR_BIT + 2);
|
|
|
|
RND_LOOP (r)
|
|
{
|
|
/* Check NaN */
|
|
mpfr_set_nan (x);
|
|
CHECK_MAX (1, !!);
|
|
|
|
/* Check +Inf */
|
|
mpfr_set_inf (x, 1);
|
|
CHECK_MAX (2, !!);
|
|
|
|
/* Check -Inf */
|
|
mpfr_set_inf (x, -1);
|
|
CHECK_MAX (3, !!);
|
|
|
|
/* Check +0 */
|
|
mpfr_set_zero (x, 1);
|
|
CHECK_MAX (4, !);
|
|
|
|
/* Check -0 */
|
|
mpfr_set_zero (x, -1);
|
|
CHECK_MAX (5, !);
|
|
|
|
/* Check small positive op */
|
|
mpfr_set_str1 (x, "1@-1");
|
|
CHECK_MAX (6, !);
|
|
|
|
/* Check 17 */
|
|
mpfr_set_ui (x, 17, MPFR_RNDN);
|
|
CHECK_MAX (7, !);
|
|
|
|
/* Check hugest */
|
|
mpfr_set_ui_2exp (x, 42, sizeof (uintmax_t) * 32, MPFR_RNDN);
|
|
CHECK_MAX (8, !!);
|
|
|
|
/* Check a non-integer number just below a power of two. */
|
|
mpfr_set_ui_2exp (x, 255, -2, MPFR_RNDN);
|
|
CHECK_MAX (10, !);
|
|
|
|
/* Check the limits of the types (except 0 for uintmax_t) */
|
|
CHECK_LIM (20, UINTMAX_MAX, mpfr_set_uj, mpfr_fits_uintmax_p);
|
|
CHECK_LIM (30, INTMAX_MAX, mpfr_set_sj, mpfr_fits_intmax_p);
|
|
CHECK_LIM (35, INTMAX_MIN, mpfr_set_sj, mpfr_fits_intmax_p);
|
|
|
|
/* Check negative op */
|
|
for (i = 1; i <= 4; i++)
|
|
{
|
|
int inv;
|
|
|
|
mpfr_set_si_2exp (x, -i, -2, MPFR_RNDN);
|
|
mpfr_rint (y, x, (mpfr_rnd_t) r);
|
|
inv = MPFR_NOTZERO (y);
|
|
if (r != MPFR_RNDF)
|
|
FTEST (80, inv ^ !, mpfr_fits_uintmax_p);
|
|
else
|
|
FTEST (80, !!, mpfr_fits_uintmax_p);
|
|
FTEST (81, !, mpfr_fits_intmax_p);
|
|
}
|
|
}
|
|
|
|
#endif /* _MPFR_H_HAVE_INTMAX_T */
|
|
|
|
mpfr_clear (x);
|
|
mpfr_clear (y);
|
|
|
|
tests_end_mpfr ();
|
|
return 0;
|
|
}
|