152284Sobrien/* HOST_WIDE_INT definitions for the GNU compiler.
2169689Skan   Copyright (C) 1998, 2002, 2004 Free Software Foundation, Inc.
352284Sobrien
490075Sobrien   This file is part of GCC.
552284Sobrien
652284Sobrien   Provide definitions for macros which depend on HOST_BITS_PER_INT
790075Sobrien   and HOST_BITS_PER_LONG.  */
852284Sobrien
990075Sobrien#ifndef GCC_HWINT_H
1090075Sobrien#define GCC_HWINT_H
1152284Sobrien
1290075Sobrien/* This describes the machine the compiler is hosted on.  */
1390075Sobrien#define HOST_BITS_PER_CHAR  CHAR_BIT
1490075Sobrien#define HOST_BITS_PER_SHORT (CHAR_BIT * SIZEOF_SHORT)
1590075Sobrien#define HOST_BITS_PER_INT   (CHAR_BIT * SIZEOF_INT)
1690075Sobrien#define HOST_BITS_PER_LONG  (CHAR_BIT * SIZEOF_LONG)
1752284Sobrien
18169689Skan/* The string that should be inserted into a printf style format to
19169689Skan   indicate a "long long" operand.  */
20169689Skan#ifndef HOST_LONG_LONG_FORMAT
21169689Skan#define HOST_LONG_LONG_FORMAT "ll"
22169689Skan#endif
23169689Skan
24132718Skan/* If HAVE_LONG_LONG and SIZEOF_LONG_LONG aren't defined, but
25132718Skan   GCC_VERSION >= 3000, assume this is the second or later stage of a
26132718Skan   bootstrap, we do have long long, and it's 64 bits.  (This is
27132718Skan   required by C99; we do have some ports that violate that assumption
28132718Skan   but they're all cross-compile-only.)  Just in case, force a
29132718Skan   constraint violation if that assumption is incorrect.  */
30132718Skan#if !defined HAVE_LONG_LONG
31132718Skan# if GCC_VERSION >= 3000
32132718Skan#  define HAVE_LONG_LONG 1
33132718Skan#  define SIZEOF_LONG_LONG 8
34132718Skanextern char sizeof_long_long_must_be_8[sizeof(long long) == 8 ? 1 : -1];
35132718Skan# endif
36132718Skan#endif
37132718Skan
3890075Sobrien#ifdef HAVE_LONG_LONG
3990075Sobrien# define HOST_BITS_PER_LONGLONG (CHAR_BIT * SIZEOF_LONG_LONG)
40132718Skan#endif
4196263Sobrien#ifdef HAVE___INT64
42132718Skan# define HOST_BITS_PER___INT64 (CHAR_BIT * SIZEOF___INT64)
4390075Sobrien#endif
4490075Sobrien
45132718Skan/* Set HOST_WIDE_INT.  This should be the widest efficient host
46132718Skan   integer type.  It can be 32 or 64 bits, except that if we are
47132718Skan   targeting a machine with 64-bit size_t then it has to be 64 bits.
4852284Sobrien
49132718Skan   With a sane ABI, 'long' is the largest efficient host integer type.
50132718Skan   Thus, we use that unless we have to use 'long long' or '__int64'
51132718Skan   because we're targeting a 64-bit machine from a 32-bit host.  */
5290075Sobrien
53132718Skan#if HOST_BITS_PER_LONG >= 64 || !defined NEED_64BIT_HOST_WIDE_INT
54132718Skan#   define HOST_BITS_PER_WIDE_INT HOST_BITS_PER_LONG
55132718Skan#   define HOST_WIDE_INT long
56132718Skan#else
57132718Skan# if HOST_BITS_PER_LONGLONG >= 64
5890075Sobrien#   define HOST_BITS_PER_WIDE_INT HOST_BITS_PER_LONGLONG
5990075Sobrien#   define HOST_WIDE_INT long long
6090075Sobrien# else
61132718Skan#  if HOST_BITS_PER___INT64 >= 64
62132718Skan#   define HOST_BITS_PER_WIDE_INT HOST_BITS_PER___INT64
63132718Skan#   define HOST_WIDE_INT __int64
64132718Skan#  else
65132718Skan    #error "Unable to find a suitable type for HOST_WIDE_INT"
6690075Sobrien#  endif
6790075Sobrien# endif
6890075Sobrien#endif
6990075Sobrien
70132718Skan/* Various printf format strings for HOST_WIDE_INT.  */
7152284Sobrien
72132718Skan#if HOST_BITS_PER_WIDE_INT == HOST_BITS_PER_LONG
73132718Skan# define HOST_WIDE_INT_PRINT "l"
74132718Skan# define HOST_WIDE_INT_PRINT_C "L"
75132718Skan  /* 'long' might be 32 or 64 bits, and the number of leading zeroes
76132718Skan     must be tweaked accordingly.  */
77132718Skan# if HOST_BITS_PER_WIDE_INT == 64
78132718Skan#  define HOST_WIDE_INT_PRINT_DOUBLE_HEX "0x%lx%016lx"
7952284Sobrien# else
80132718Skan#  define HOST_WIDE_INT_PRINT_DOUBLE_HEX "0x%lx%08lx"
8152284Sobrien# endif
82132718Skan#else
83169689Skan# define HOST_WIDE_INT_PRINT HOST_LONG_LONG_FORMAT
84132718Skan# define HOST_WIDE_INT_PRINT_C "LL"
85132718Skan  /* We can assume that 'long long' is at least 64 bits.  */
86169689Skan# define HOST_WIDE_INT_PRINT_DOUBLE_HEX \
87169689Skan    "0x%" HOST_LONG_LONG_FORMAT "x%016" HOST_LONG_LONG_FORMAT "x"
88132718Skan#endif /* HOST_BITS_PER_WIDE_INT == HOST_BITS_PER_LONG */
8952284Sobrien
90132718Skan#define HOST_WIDE_INT_PRINT_DEC "%" HOST_WIDE_INT_PRINT "d"
91132718Skan#define HOST_WIDE_INT_PRINT_DEC_C HOST_WIDE_INT_PRINT_DEC HOST_WIDE_INT_PRINT_C
92132718Skan#define HOST_WIDE_INT_PRINT_UNSIGNED "%" HOST_WIDE_INT_PRINT "u"
93132718Skan#define HOST_WIDE_INT_PRINT_HEX "0x%" HOST_WIDE_INT_PRINT "x"
9452284Sobrien
95132718Skan/* Set HOST_WIDEST_INT.  This is a 64-bit type unless the compiler
96132718Skan   in use has no 64-bit type at all; in that case it's 32 bits.  */
9752284Sobrien
98132718Skan#if HOST_BITS_PER_WIDE_INT >= 64 \
99132718Skan    || (HOST_BITS_PER_LONGLONG < 64 && HOST_BITS_PER___INT64 < 64)
100132718Skan# define HOST_WIDEST_INT		      HOST_WIDE_INT
101132718Skan# define HOST_BITS_PER_WIDEST_INT	      HOST_BITS_PER_WIDE_INT
102132718Skan# define HOST_WIDEST_INT_PRINT_DEC	      HOST_WIDE_INT_PRINT_DEC
103132718Skan# define HOST_WIDEST_INT_PRINT_DEC_C	      HOST_WIDE_INT_PRINT_DEC_C
104132718Skan# define HOST_WIDEST_INT_PRINT_UNSIGNED	      HOST_WIDE_INT_PRINT_UNSIGNED
105132718Skan# define HOST_WIDEST_INT_PRINT_HEX	      HOST_WIDE_INT_PRINT_HEX
106132718Skan# define HOST_WIDEST_INT_PRINT_DOUBLE_HEX     HOST_WIDE_INT_PRINT_DOUBLE_HEX
107132718Skan#else
108132718Skan# if HOST_BITS_PER_LONGLONG >= 64
109132718Skan#  define HOST_BITS_PER_WIDEST_INT	      HOST_BITS_PER_LONGLONG
110132718Skan#  define HOST_WIDEST_INT		      long long
11152284Sobrien# else
112132718Skan#  if HOST_BITS_PER___INT64 >= 64
113132718Skan#   define HOST_BITS_PER_WIDEST_INT	      HOST_BITS_PER___INT64
114132718Skan#   define HOST_WIDEST_INT		      __int64
11552284Sobrien#  else
116132718Skan    #error "This line should be impossible to reach"
11752284Sobrien#  endif
11852284Sobrien# endif
119169689Skan# define HOST_WIDEST_INT_PRINT_DEC	      "%" HOST_LONG_LONG_FORMAT "d"
120169689Skan# define HOST_WIDEST_INT_PRINT_DEC_C	      "%" HOST_LONG_LONG_FORMAT "dLL"
121169689Skan# define HOST_WIDEST_INT_PRINT_UNSIGNED	      "%" HOST_LONG_LONG_FORMAT "u"
122169689Skan# define HOST_WIDEST_INT_PRINT_HEX	      "0x%" HOST_LONG_LONG_FORMAT "x"
123169689Skan# define HOST_WIDEST_INT_PRINT_DOUBLE_HEX     \
124169689Skan    "0x%" HOST_LONG_LONG_FORMAT "x%016" HOST_LONG_LONG_FORMAT "x"
125132718Skan#endif
12652284Sobrien
127169689Skan/* Define HOST_WIDEST_FAST_INT to the widest integer type supported
128169689Skan   efficiently in hardware.  (That is, the widest integer type that fits
129169689Skan   in a hardware register.)  Normally this is "long" but on some hosts it
130169689Skan   should be "long long" or "__int64".  This is no convenient way to
131169689Skan   autodect this, so such systems must set a flag in config.host; see there
132169689Skan   for details.  */
133169689Skan
134169689Skan#ifdef USE_LONG_LONG_FOR_WIDEST_FAST_INT
135169689Skan#  ifdef HAVE_LONG_LONG
136169689Skan#    define HOST_WIDEST_FAST_INT long long
137169689Skan#    define HOST_BITS_PER_WIDEST_FAST_INT HOST_BITS_PER_LONGLONG
138169689Skan#  elif defined (HAVE___INT64)
139169689Skan#    define HOST_WIDEST_FAST_INT __int64
140169689Skan#    define HOST_BITS_PER_WIDEST_FAST_INT HOST_BITS_PER___INT64
141169689Skan#  else
142169689Skan#    error "Your host said it wantted to use long long or __int64 but neither"
143169689Skan#    error "exist"
144169689Skan#  endif
145169689Skan#else
146169689Skan#  define HOST_WIDEST_FAST_INT long
147169689Skan#  define HOST_BITS_PER_WIDEST_FAST_INT HOST_BITS_PER_LONG
148169689Skan#endif
149169689Skan
15090075Sobrien#endif /* ! GCC_HWINT_H */
151