mirror of
https://review.haiku-os.org/buildtools
synced 2025-02-07 22:44:46 +01:00
99d8158635
git-svn-id: file:///srv/svn/repos/haiku/buildtools/trunk@29042 a95241bf-73f2-0310-859d-f6bbb57e9c96
311 lines
11 KiB
C
311 lines
11 KiB
C
/* Interface to replace gmp-impl.h
|
|
|
|
Copyright 2004, 2005, 2006, 2007 Free Software Foundation, Inc.
|
|
Contributed by the Arenaire and Cacao projects, INRIA.
|
|
|
|
This file is part of the MPFR Library.
|
|
|
|
The 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 2.1 of the License, or (at your
|
|
option) any later version.
|
|
|
|
The 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 MPFR Library; see the file COPYING.LIB. If not, write to
|
|
the Free Software Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,
|
|
MA 02110-1301, USA. */
|
|
|
|
#ifndef __GMPFR_GMP_H__
|
|
#define __GMPFR_GMP_H__
|
|
|
|
#ifndef __MPFR_IMPL_H__
|
|
# error "mpfr-impl.h not included"
|
|
#endif
|
|
|
|
#include <limits.h> /* For INT_MAX, ... */
|
|
#include <string.h> /* For memcpy, memset and memmove */
|
|
|
|
/* The following tries to get a good version of alloca.
|
|
See gmp-impl.h for implementation details and original version */
|
|
#ifndef alloca
|
|
# if defined ( __GNUC__ )
|
|
# define alloca __builtin_alloca
|
|
# elif defined (__DECC)
|
|
# define alloca(x) __ALLOCA(x)
|
|
# elif defined (_MSC_VER)
|
|
# include <malloc.h>
|
|
# define alloca _alloca
|
|
# elif defined (HAVE_ALLOCA_H)
|
|
# include <alloca.h>
|
|
# elif defined (_AIX) || defined (_IBMR2)
|
|
# pragma alloca
|
|
# else
|
|
char *alloca ();
|
|
# endif
|
|
#endif
|
|
|
|
#if defined (__cplusplus)
|
|
extern "C" {
|
|
#endif
|
|
|
|
/* Define BITS_PER_MP_LIMB
|
|
Can't use sizeof(mp_limb_t) since it should be a preprocessor constant */
|
|
#if defined(GMP_NUMB_BITS) /* GMP 4.1.2 or above */
|
|
# define BITS_PER_MP_LIMB (GMP_NUMB_BITS+GMP_NAIL_BITS)
|
|
#elif defined (__GMP_BITS_PER_MP_LIMB) /* Older versions 4.x.x */
|
|
# define BITS_PER_MP_LIMB __GMP_BITS_PER_MP_LIMB
|
|
# define GMP_NUMB_BITS BITS_PER_MP_LIMB
|
|
# ifndef GMP_NAIL_BITS
|
|
# define GMP_NAIL_BITS 0
|
|
# endif
|
|
#else
|
|
# error "Could not detect BITS_PER_MP_LIMB. Try with gmp internal files."
|
|
#endif
|
|
|
|
/* Define some macros */
|
|
#define BYTES_PER_MP_LIMB (BITS_PER_MP_LIMB/CHAR_BIT)
|
|
|
|
#define MP_LIMB_T_MAX (~(mp_limb_t)0)
|
|
|
|
#define ULONG_HIGHBIT (ULONG_MAX ^ ((unsigned long) ULONG_MAX >> 1))
|
|
#define UINT_HIGHBIT (UINT_MAX ^ ((unsigned) UINT_MAX >> 1))
|
|
#define USHRT_HIGHBIT ((unsigned short) (USHRT_MAX ^ ((unsigned short) USHRT_MAX >> 1)))
|
|
|
|
#define GMP_LIMB_HIGHBIT (MP_LIMB_T_MAX ^ (MP_LIMB_T_MAX >> 1))
|
|
|
|
|
|
#if __GMP_MP_SIZE_T_INT
|
|
#define MP_SIZE_T_MAX INT_MAX
|
|
#define MP_SIZE_T_MIN INT_MIN
|
|
#else
|
|
#define MP_SIZE_T_MAX LONG_MAX
|
|
#define MP_SIZE_T_MIN LONG_MIN
|
|
#endif
|
|
|
|
#define LONG_HIGHBIT LONG_MIN
|
|
#define INT_HIGHBIT INT_MIN
|
|
#define SHRT_HIGHBIT SHRT_MIN
|
|
|
|
/* MP_LIMB macros */
|
|
#define MPN_ZERO(dst, n) memset((dst), 0, (n)*BYTES_PER_MP_LIMB)
|
|
#define MPN_COPY_DECR(dst,src,n) memmove((dst),(src),(n)*BYTES_PER_MP_LIMB)
|
|
#define MPN_COPY_INCR(dst,src,n) memmove((dst),(src),(n)*BYTES_PER_MP_LIMB)
|
|
#define MPN_COPY(dst,src,n) \
|
|
do \
|
|
{ \
|
|
if ((dst) != (src)) \
|
|
{ \
|
|
MPFR_ASSERTD ((char *) (dst) >= (char *) (src) + \
|
|
(n) * BYTES_PER_MP_LIMB || \
|
|
(char *) (src) >= (char *) (dst) + \
|
|
(n) * BYTES_PER_MP_LIMB); \
|
|
memcpy ((dst), (src), (n) * BYTES_PER_MP_LIMB); \
|
|
} \
|
|
} \
|
|
while (0)
|
|
|
|
/* MPN macros taken from gmp-impl.h */
|
|
#define MPN_NORMALIZE(DST, NLIMBS) \
|
|
do { \
|
|
while (NLIMBS > 0) \
|
|
{ \
|
|
if ((DST)[(NLIMBS) - 1] != 0) \
|
|
break; \
|
|
NLIMBS--; \
|
|
} \
|
|
} while (0)
|
|
#define MPN_NORMALIZE_NOT_ZERO(DST, NLIMBS) \
|
|
do { \
|
|
MPFR_ASSERTD ((NLIMBS) >= 1); \
|
|
while (1) \
|
|
{ \
|
|
if ((DST)[(NLIMBS) - 1] != 0) \
|
|
break; \
|
|
NLIMBS--; \
|
|
} \
|
|
} while (0)
|
|
#define MPN_OVERLAP_P(xp, xsize, yp, ysize) \
|
|
((xp) + (xsize) > (yp) && (yp) + (ysize) > (xp))
|
|
#define MPN_SAME_OR_INCR2_P(dst, dsize, src, ssize) \
|
|
((dst) <= (src) || ! MPN_OVERLAP_P (dst, dsize, src, ssize))
|
|
#define MPN_SAME_OR_INCR_P(dst, src, size) \
|
|
MPN_SAME_OR_INCR2_P(dst, size, src, size)
|
|
#define MPN_SAME_OR_DECR2_P(dst, dsize, src, ssize) \
|
|
((dst) >= (src) || ! MPN_OVERLAP_P (dst, dsize, src, ssize))
|
|
#define MPN_SAME_OR_DECR_P(dst, src, size) \
|
|
MPN_SAME_OR_DECR2_P(dst, size, src, size)
|
|
|
|
/* If sqr_n or mul_basecase are not exported, used mpn_mul instead */
|
|
#ifndef mpn_sqr_n
|
|
# define mpn_sqr_n(dst,src,n) mpn_mul((dst),(src),(n),(src),(n))
|
|
#endif
|
|
#ifndef mpn_mul_basecase
|
|
# define mpn_mul_basecase(dst,s1,n1,s2,n2) mpn_mul((dst),(s1),(n1),(s2),(n2))
|
|
#endif
|
|
#ifndef mpn_sqr_basecase
|
|
# define mpn_sqr_basecase(dst,src,n) mpn_mul((dst),(src),(n),(src),(n))
|
|
#endif
|
|
|
|
/* ASSERT */
|
|
__MPFR_DECLSPEC void mpfr_assert_fail _MPFR_PROTO((const char *, int,
|
|
const char *));
|
|
|
|
#define ASSERT_FAIL(expr) mpfr_assert_fail (__FILE__, __LINE__, #expr)
|
|
#define ASSERT(expr) MPFR_ASSERTD(expr)
|
|
|
|
/* Access fileds of GMP struct */
|
|
#define SIZ(x) ((x)->_mp_size)
|
|
#define ABSIZ(x) ABS (SIZ (x))
|
|
#define PTR(x) ((x)->_mp_d)
|
|
#define LIMBS(x) ((x)->_mp_d)
|
|
#define EXP(x) ((x)->_mp_exp)
|
|
#define PREC(x) ((x)->_mp_prec)
|
|
#define ALLOC(x) ((x)->_mp_alloc)
|
|
#define MPZ_REALLOC(z,n) ((n) > ALLOC(z) ? _mpz_realloc(z,n) : PTR(z))
|
|
|
|
/* Non IEEE float supports -- needs to detect them with proper configure */
|
|
#undef XDEBUG
|
|
#define XDEBUG
|
|
|
|
/* Temp memory allocate */
|
|
#define TMP_DECL(m)
|
|
#define TMP_ALLOC(x) alloca(x)
|
|
#define TMP_MARK(m)
|
|
#define TMP_FREE(m)
|
|
|
|
/* For longlong.h */
|
|
#ifdef HAVE_ATTRIBUTE_MODE
|
|
typedef unsigned int UQItype __attribute__ ((mode (QI)));
|
|
typedef int SItype __attribute__ ((mode (SI)));
|
|
typedef unsigned int USItype __attribute__ ((mode (SI)));
|
|
typedef int DItype __attribute__ ((mode (DI)));
|
|
typedef unsigned int UDItype __attribute__ ((mode (DI)));
|
|
#else
|
|
typedef unsigned char UQItype;
|
|
typedef long SItype;
|
|
typedef unsigned long USItype;
|
|
#ifdef HAVE_LONG_LONG
|
|
typedef long long int DItype;
|
|
typedef unsigned long long int UDItype;
|
|
#else /* Assume `long' gives us a wide enough type. Needed for hppa2.0w. */
|
|
typedef long int DItype;
|
|
typedef unsigned long int UDItype;
|
|
#endif
|
|
#endif
|
|
typedef mp_limb_t UWtype;
|
|
typedef unsigned int UHWtype;
|
|
#define W_TYPE_SIZE BITS_PER_MP_LIMB
|
|
|
|
/* Remap names of internal mpn functions (for longlong.h). */
|
|
#undef __clz_tab
|
|
#define __clz_tab mpfr_clz_tab
|
|
|
|
/* Use (4.0 * ...) instead of (2.0 * ...) to work around buggy compilers
|
|
that don't convert ulong->double correctly (eg. SunOS 4 native cc). */
|
|
#undef MP_BASE_AS_DOUBLE
|
|
#define MP_BASE_AS_DOUBLE (4.0 * ((mp_limb_t) 1 << (GMP_NUMB_BITS - 2)))
|
|
|
|
/* Structure for conversion between internal binary format and
|
|
strings in base 2..36. */
|
|
struct bases
|
|
{
|
|
/* log(2)/log(conversion_base) */
|
|
double chars_per_bit_exactly;
|
|
};
|
|
#undef __mp_bases
|
|
#define __mp_bases mpfr_bases
|
|
__MPFR_DECLSPEC extern const struct bases mpfr_bases[257];
|
|
|
|
/* Standard macros */
|
|
#undef ABS
|
|
#undef MIN
|
|
#undef MAX
|
|
#undef numberof
|
|
#define ABS(x) ((x) >= 0 ? (x) : -(x))
|
|
#define MIN(l,o) ((l) < (o) ? (l) : (o))
|
|
#define MAX(h,i) ((h) > (i) ? (h) : (i))
|
|
#define numberof(x) (sizeof (x) / sizeof ((x)[0]))
|
|
|
|
/* Random */
|
|
#undef __gmp_rands_initialized
|
|
#undef __gmp_rands
|
|
#define __gmp_rands_initialized mpfr_rands_initialized
|
|
#define __gmp_rands mpfr_rands
|
|
|
|
__MPFR_DECLSPEC extern char mpfr_rands_initialized;
|
|
__MPFR_DECLSPEC extern gmp_randstate_t mpfr_rands;
|
|
|
|
#undef RANDS
|
|
#define RANDS \
|
|
((__gmp_rands_initialized ? 0 \
|
|
: (__gmp_rands_initialized = 1, \
|
|
gmp_randinit_default (__gmp_rands), 0)), \
|
|
__gmp_rands)
|
|
|
|
#undef RANDS_CLEAR
|
|
#define RANDS_CLEAR() \
|
|
do { \
|
|
if (__gmp_rands_initialized) \
|
|
{ \
|
|
__gmp_rands_initialized = 0; \
|
|
gmp_randclear (__gmp_rands); \
|
|
} \
|
|
} while (0)
|
|
|
|
typedef __gmp_randstate_struct *gmp_randstate_ptr;
|
|
|
|
#undef _gmp_rand
|
|
#define _gmp_rand mpfr_rand_raw
|
|
__MPFR_DECLSPEC void mpfr_rand_raw _MPFR_PROTO((mp_ptr, gmp_randstate_t,
|
|
unsigned long));
|
|
|
|
/* To be called BEFORE tests_start_mpfr () if the tests used
|
|
mpfr_random, mpfr_random2 or any functions which uses the macro RANDS */
|
|
__MPFR_DECLSPEC void mpfr_init_gmp_rand _MPFR_PROTO((void));
|
|
#define MPFR_TEST_USE_RANDS() mpfr_init_gmp_rand ();
|
|
|
|
|
|
/* Allocate func are defined in gmp-impl.h */
|
|
|
|
/* In newer GMP, there aren't anymore __gmp_allocate_func,
|
|
__gmp_reallocate_func & __gmp_free_func in gmp.h
|
|
Just getting the correct value by calling mp_get_memory_functions */
|
|
#ifdef mp_get_memory_functions
|
|
|
|
#undef __gmp_allocate_func
|
|
#undef __gmp_reallocate_func
|
|
#undef __gmp_free_func
|
|
#define MPFR_GET_MEMFUNC mp_get_memory_functions(&mpfr_allocate_func, &mpfr_reallocate_func, &mpfr_free_func)
|
|
#define __gmp_allocate_func (MPFR_GET_MEMFUNC, mpfr_allocate_func)
|
|
#define __gmp_reallocate_func (MPFR_GET_MEMFUNC, mpfr_reallocate_func)
|
|
#define __gmp_free_func (MPFR_GET_MEMFUNC, mpfr_free_func)
|
|
__MPFR_DECLSPEC extern void * (*mpfr_allocate_func) _MPFR_PROTO ((size_t));
|
|
__MPFR_DECLSPEC extern void * (*mpfr_reallocate_func) _MPFR_PROTO ((void *,
|
|
size_t, size_t));
|
|
__MPFR_DECLSPEC extern void (*mpfr_free_func) _MPFR_PROTO ((void *,
|
|
size_t));
|
|
|
|
#endif
|
|
|
|
#undef __gmp_default_allocate
|
|
#undef __gmp_default_reallocate
|
|
#undef __gmp_default_free
|
|
#define __gmp_default_allocate mpfr_default_allocate
|
|
#define __gmp_default_reallocate mpfr_default_reallocate
|
|
#define __gmp_default_free mpfr_default_free
|
|
__MPFR_DECLSPEC void *__gmp_default_allocate _MPFR_PROTO ((size_t));
|
|
__MPFR_DECLSPEC void *__gmp_default_reallocate _MPFR_PROTO ((void *, size_t,
|
|
size_t));
|
|
__MPFR_DECLSPEC void __gmp_default_free _MPFR_PROTO ((void *, size_t));
|
|
|
|
#if defined (__cplusplus)
|
|
}
|
|
#endif
|
|
|
|
#endif /* Gmp internal emulator */
|