Subversion Repositories altor32

/* HOST_WIDE_INT definitions for the GNU compiler.

   Copyright (C) 1998, 2002, 2004, 2008, 2009, 2010, 2012

   Free Software Foundation, Inc.

   This file is part of GCC.

   Provide definitions for macros which depend on HOST_BITS_PER_INT

   and HOST_BITS_PER_LONG.  */

#ifndef GCC_HWINT_H

#define GCC_HWINT_H

/* This describes the machine the compiler is hosted on.  */

#define HOST_BITS_PER_CHAR  CHAR_BIT

#define HOST_BITS_PER_SHORT (CHAR_BIT * SIZEOF_SHORT)

#define HOST_BITS_PER_INT   (CHAR_BIT * SIZEOF_INT)

#define HOST_BITS_PER_LONG  (CHAR_BIT * SIZEOF_LONG)

/* The string that should be inserted into a printf style format to

   indicate a "long" operand.  */

#ifndef HOST_LONG_FORMAT

#define HOST_LONG_FORMAT "l"

#endif

/* The string that should be inserted into a printf style format to

   indicate a "long long" operand.  */

#ifndef HOST_LONG_LONG_FORMAT

#define HOST_LONG_LONG_FORMAT "ll"

#endif

/* If HAVE_LONG_LONG and SIZEOF_LONG_LONG aren't defined, but

   GCC_VERSION >= 3000, assume this is the second or later stage of a

   bootstrap, we do have long long, and it's 64 bits.  (This is

   required by C99; we do have some ports that violate that assumption

   but they're all cross-compile-only.)  Just in case, force a

   constraint violation if that assumption is incorrect.  */

#if !defined HAVE_LONG_LONG

# if GCC_VERSION >= 3000

#  define HAVE_LONG_LONG 1

#  define SIZEOF_LONG_LONG 8

extern char sizeof_long_long_must_be_8[sizeof(long long) == 8 ? 1 : -1];

# endif

#endif

#ifdef HAVE_LONG_LONG

# define HOST_BITS_PER_LONGLONG (CHAR_BIT * SIZEOF_LONG_LONG)

#endif

#ifdef HAVE___INT64

# define HOST_BITS_PER___INT64 (CHAR_BIT * SIZEOF___INT64)

#endif

/* Set HOST_WIDE_INT.  This should be the widest efficient host

   integer type.  It can be 32 or 64 bits, except that if we are

   targeting a machine with 64-bit size_t then it has to be 64 bits.

   With a sane ABI, 'long' is the largest efficient host integer type.

   Thus, we use that unless we have to use 'long long' or '__int64'

   because we're targeting a 64-bit machine from a 32-bit host.  */

#if HOST_BITS_PER_LONG >= 64 || !defined NEED_64BIT_HOST_WIDE_INT

#   define HOST_BITS_PER_WIDE_INT HOST_BITS_PER_LONG

#   define HOST_WIDE_INT long

#   define HOST_WIDE_INT_C(X) X ## L

#else

# if HOST_BITS_PER_LONGLONG >= 64

#   define HOST_BITS_PER_WIDE_INT HOST_BITS_PER_LONGLONG

#   define HOST_WIDE_INT long long

#   define HOST_WIDE_INT_C(X) X ## LL

# else

#  if HOST_BITS_PER___INT64 >= 64

#   define HOST_BITS_PER_WIDE_INT HOST_BITS_PER___INT64

#   define HOST_WIDE_INT __int64

#   define HOST_WIDE_INT_C(X) X ## i64

#  else

    #error "Unable to find a suitable type for HOST_WIDE_INT"

#  endif

# endif

#endif

#define HOST_WIDE_INT_1 HOST_WIDE_INT_C(1)

/* This is a magic identifier which allows GCC to figure out the type

   of HOST_WIDE_INT for %wd specifier checks.  You must issue this

   typedef before using the __asm_fprintf__ format attribute.  */

typedef HOST_WIDE_INT __gcc_host_wide_int__;

/* Various printf format strings for HOST_WIDE_INT.  */

#if HOST_BITS_PER_WIDE_INT == HOST_BITS_PER_LONG

# define HOST_WIDE_INT_PRINT HOST_LONG_FORMAT

# define HOST_WIDE_INT_PRINT_C "L"

  /* 'long' might be 32 or 64 bits, and the number of leading zeroes

     must be tweaked accordingly.  */

# if HOST_BITS_PER_WIDE_INT == 64

#  define HOST_WIDE_INT_PRINT_DOUBLE_HEX \

     "0x%" HOST_LONG_FORMAT "x%016" HOST_LONG_FORMAT "x"

# else

#  define HOST_WIDE_INT_PRINT_DOUBLE_HEX \

     "0x%" HOST_LONG_FORMAT "x%08" HOST_LONG_FORMAT "x"

# endif

#else

# define HOST_WIDE_INT_PRINT HOST_LONG_LONG_FORMAT

# define HOST_WIDE_INT_PRINT_C "LL"

  /* We can assume that 'long long' is at least 64 bits.  */

# define HOST_WIDE_INT_PRINT_DOUBLE_HEX \

    "0x%" HOST_LONG_LONG_FORMAT "x%016" HOST_LONG_LONG_FORMAT "x"

#endif /* HOST_BITS_PER_WIDE_INT == HOST_BITS_PER_LONG */

#define HOST_WIDE_INT_PRINT_DEC "%" HOST_WIDE_INT_PRINT "d"

#define HOST_WIDE_INT_PRINT_DEC_C HOST_WIDE_INT_PRINT_DEC HOST_WIDE_INT_PRINT_C

#define HOST_WIDE_INT_PRINT_UNSIGNED "%" HOST_WIDE_INT_PRINT "u"

#define HOST_WIDE_INT_PRINT_HEX "%#" HOST_WIDE_INT_PRINT "x"

#define HOST_WIDE_INT_PRINT_HEX_PURE "%" HOST_WIDE_INT_PRINT "x"

/* Set HOST_WIDEST_INT.  This is a 64-bit type unless the compiler

   in use has no 64-bit type at all; in that case it's 32 bits.  */

#if HOST_BITS_PER_WIDE_INT >= 64 \

    || (HOST_BITS_PER_LONGLONG < 64 && HOST_BITS_PER___INT64 < 64)

# define HOST_WIDEST_INT                      HOST_WIDE_INT

# define HOST_BITS_PER_WIDEST_INT             HOST_BITS_PER_WIDE_INT

# define HOST_WIDEST_INT_PRINT                HOST_WIDE_INT_PRINT

# define HOST_WIDEST_INT_PRINT_DEC            HOST_WIDE_INT_PRINT_DEC

# define HOST_WIDEST_INT_PRINT_DEC_C          HOST_WIDE_INT_PRINT_DEC_C

# define HOST_WIDEST_INT_PRINT_UNSIGNED       HOST_WIDE_INT_PRINT_UNSIGNED

# define HOST_WIDEST_INT_PRINT_HEX            HOST_WIDE_INT_PRINT_HEX

# define HOST_WIDEST_INT_PRINT_DOUBLE_HEX     HOST_WIDE_INT_PRINT_DOUBLE_HEX

# define HOST_WIDEST_INT_C(X)                 HOST_WIDE_INT(X)

#else

# if HOST_BITS_PER_LONGLONG >= 64

#  define HOST_BITS_PER_WIDEST_INT            HOST_BITS_PER_LONGLONG

#  define HOST_WIDEST_INT                     long long

#  define HOST_WIDEST_INT_C(X)                X ## LL

# else

#  if HOST_BITS_PER___INT64 >= 64

#   define HOST_BITS_PER_WIDEST_INT           HOST_BITS_PER___INT64

#   define HOST_WIDEST_INT                    __int64

#   define HOST_WIDEST_INT_C(X)               X ## i64

#  else

    #error "This line should be impossible to reach"

#  endif

# endif

# define HOST_WIDEST_INT_PRINT                HOST_LONG_LONG_FORMAT

# define HOST_WIDEST_INT_PRINT_DEC            "%" HOST_LONG_LONG_FORMAT "d"

# define HOST_WIDEST_INT_PRINT_DEC_C          "%" HOST_LONG_LONG_FORMAT "dLL"

# define HOST_WIDEST_INT_PRINT_UNSIGNED       "%" HOST_LONG_LONG_FORMAT "u"

# define HOST_WIDEST_INT_PRINT_HEX            "%#" HOST_LONG_LONG_FORMAT "x"

# define HOST_WIDEST_INT_PRINT_DOUBLE_HEX     \

    "0x%" HOST_LONG_LONG_FORMAT "x%016" HOST_LONG_LONG_FORMAT "x"

#endif

/* Define HOST_WIDEST_FAST_INT to the widest integer type supported

   efficiently in hardware.  (That is, the widest integer type that fits

   in a hardware register.)  Normally this is "long" but on some hosts it

   should be "long long" or "__int64".  This is no convenient way to

   autodetect this, so such systems must set a flag in config.host; see there

   for details.  */

#ifdef USE_LONG_LONG_FOR_WIDEST_FAST_INT

#  ifdef HAVE_LONG_LONG

#    define HOST_WIDEST_FAST_INT long long

#    define HOST_BITS_PER_WIDEST_FAST_INT HOST_BITS_PER_LONGLONG

#  elif defined (HAVE___INT64)

#    define HOST_WIDEST_FAST_INT __int64

#    define HOST_BITS_PER_WIDEST_FAST_INT HOST_BITS_PER___INT64

#  else

#    error "Your host said it wanted to use long long or __int64 but neither"

#    error "exist"

#  endif

#else

#  define HOST_WIDEST_FAST_INT long

#  define HOST_BITS_PER_WIDEST_FAST_INT HOST_BITS_PER_LONG

#endif

/* Inline functions operating on HOST_WIDE_INT.  */

#if GCC_VERSION < 3004

extern int clz_hwi (unsigned HOST_WIDE_INT x);

extern int ctz_hwi (unsigned HOST_WIDE_INT x);

extern int ffs_hwi (unsigned HOST_WIDE_INT x);

/* Return the number of set bits in X.  */

extern int popcount_hwi (unsigned HOST_WIDE_INT x);

/* Return log2, or -1 if not exact.  */

extern int exact_log2                  (unsigned HOST_WIDE_INT);

/* Return floor of log2, with -1 for zero.  */

extern int floor_log2                  (unsigned HOST_WIDE_INT);

/* Return the smallest n such that 2**n >= X.  */

extern int ceil_log2                    (unsigned HOST_WIDE_INT);

#else /* GCC_VERSION >= 3004 */

/* For convenience, define 0 -> word_size.  */

static inline int

clz_hwi (unsigned HOST_WIDE_INT x)

{

  if (x == 0)

    return HOST_BITS_PER_WIDE_INT;

# if HOST_BITS_PER_WIDE_INT == HOST_BITS_PER_LONG

  return __builtin_clzl (x);

# elif HOST_BITS_PER_WIDE_INT == HOST_BITS_PER_LONGLONG

  return __builtin_clzll (x);

# else

  return __builtin_clz (x);

# endif

}

static inline int

ctz_hwi (unsigned HOST_WIDE_INT x)

{

  if (x == 0)

    return HOST_BITS_PER_WIDE_INT;

# if HOST_BITS_PER_WIDE_INT == HOST_BITS_PER_LONG

  return __builtin_ctzl (x);

# elif HOST_BITS_PER_WIDE_INT == HOST_BITS_PER_LONGLONG

  return __builtin_ctzll (x);

# else

  return __builtin_ctz (x);

# endif

}

static inline int

ffs_hwi (unsigned HOST_WIDE_INT x)

{

# if HOST_BITS_PER_WIDE_INT == HOST_BITS_PER_LONG

  return __builtin_ffsl (x);

# elif HOST_BITS_PER_WIDE_INT == HOST_BITS_PER_LONGLONG

  return __builtin_ffsll (x);

# else

  return __builtin_ffs (x);

# endif

}

static inline int

popcount_hwi (unsigned HOST_WIDE_INT x)

{

# if HOST_BITS_PER_WIDE_INT == HOST_BITS_PER_LONG

  return __builtin_popcountl (x);

# elif HOST_BITS_PER_WIDE_INT == HOST_BITS_PER_LONGLONG

  return __builtin_popcountll (x);

# else

  return __builtin_popcount (x);

# endif

}

static inline int

floor_log2 (unsigned HOST_WIDE_INT x)

{

  return HOST_BITS_PER_WIDE_INT - 1 - clz_hwi (x);

}

static inline int

ceil_log2 (unsigned HOST_WIDE_INT x)

{

  return floor_log2 (x - 1) + 1;

}

static inline int

exact_log2 (unsigned HOST_WIDE_INT x)

{

  return x == (x & -x) && x ? ctz_hwi (x) : -1;

}

#endif /* GCC_VERSION >= 3004 */

#define HOST_WIDE_INT_MIN (HOST_WIDE_INT) \

  ((unsigned HOST_WIDE_INT) 1 << (HOST_BITS_PER_WIDE_INT - 1))

#define HOST_WIDE_INT_MAX (~(HOST_WIDE_INT_MIN))

extern HOST_WIDE_INT abs_hwi (HOST_WIDE_INT);

extern unsigned HOST_WIDE_INT absu_hwi (HOST_WIDE_INT);

extern HOST_WIDE_INT gcd (HOST_WIDE_INT, HOST_WIDE_INT);

extern HOST_WIDE_INT pos_mul_hwi (HOST_WIDE_INT, HOST_WIDE_INT);

extern HOST_WIDE_INT mul_hwi (HOST_WIDE_INT, HOST_WIDE_INT);

extern HOST_WIDE_INT least_common_multiple (HOST_WIDE_INT, HOST_WIDE_INT);

#endif /* ! GCC_HWINT_H */