237 lines
7.0 KiB
C
237 lines
7.0 KiB
C
/* Machine mode definitions for GNU C-Compiler; included by rtl.h and tree.h.
|
|
Copyright (C) 1991, 1993, 1994, 1996 Free Software Foundation, Inc.
|
|
|
|
This file is part of GNU CC.
|
|
|
|
GNU CC is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 2, or (at your option)
|
|
any later version.
|
|
|
|
GNU CC 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 General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with GNU CC; see the file COPYING. If not, write to
|
|
the Free Software Foundation, 59 Temple Place - Suite 330,
|
|
Boston, MA 02111-1307, USA. */
|
|
|
|
#ifndef HAVE_MACHINE_MODES
|
|
#define HAVE_MACHINE_MODES
|
|
|
|
#include "gansidecl.h"
|
|
|
|
/* Strictly speaking, this isn't the proper place to include these definitions,
|
|
but this file is included by every GCC file.
|
|
|
|
Some systems define these in, e.g., param.h. We undefine these names
|
|
here to avoid the warnings. We prefer to use our definitions since we
|
|
know they are correct. */
|
|
|
|
#undef MIN
|
|
#undef MAX
|
|
|
|
#define MIN(X,Y) ((X) < (Y) ? (X) : (Y))
|
|
#define MAX(X,Y) ((X) > (Y) ? (X) : (Y))
|
|
|
|
/* Find the largest host integer type and set its size and type. */
|
|
|
|
#ifndef HOST_BITS_PER_WIDE_INT
|
|
|
|
#if HOST_BITS_PER_LONG > HOST_BITS_PER_INT
|
|
#define HOST_BITS_PER_WIDE_INT HOST_BITS_PER_LONG
|
|
#define HOST_WIDE_INT long
|
|
#else
|
|
#define HOST_BITS_PER_WIDE_INT HOST_BITS_PER_INT
|
|
#define HOST_WIDE_INT int
|
|
#endif
|
|
|
|
#endif
|
|
|
|
/* Provide a default way to print an address in hex via printf. */
|
|
|
|
#ifndef HOST_PTR_PRINTF
|
|
# ifdef HAVE_PRINTF_PTR
|
|
# define HOST_PTR_PRINTF "%p"
|
|
# else
|
|
# define HOST_PTR_PRINTF \
|
|
(sizeof (int) == sizeof (char *) ? "%x" \
|
|
: sizeof (long) == sizeof (char *) ? "%lx" : "%llx")
|
|
# endif
|
|
#endif /* ! HOST_PTR_PRINTF */
|
|
|
|
/* Provide defaults for the way to print a HOST_WIDE_INT
|
|
in various manners. */
|
|
|
|
#ifndef HOST_WIDE_INT_PRINT_DEC
|
|
#if HOST_BITS_PER_WIDE_INT == HOST_BITS_PER_INT
|
|
#define HOST_WIDE_INT_PRINT_DEC "%d"
|
|
#else
|
|
#if HOST_BITS_PER_WIDE_INT == HOST_BITS_PER_LONG
|
|
#define HOST_WIDE_INT_PRINT_DEC "%ld"
|
|
#else
|
|
#define HOST_WIDE_INT_PRINT_DEC "%lld"
|
|
#endif
|
|
#endif
|
|
#endif
|
|
|
|
#ifndef HOST_WIDE_INT_PRINT_UNSIGNED
|
|
#if HOST_BITS_PER_WIDE_INT == HOST_BITS_PER_INT
|
|
#define HOST_WIDE_INT_PRINT_UNSIGNED "%u"
|
|
#else
|
|
#if HOST_BITS_PER_WIDE_INT == HOST_BITS_PER_LONG
|
|
#define HOST_WIDE_INT_PRINT_UNSIGNED "%lu"
|
|
#else
|
|
#define HOST_WIDE_INT_PRINT_UNSIGNED "%llu"
|
|
#endif
|
|
#endif
|
|
#endif
|
|
|
|
#ifndef HOST_WIDE_INT_PRINT_HEX
|
|
#if HOST_BITS_PER_WIDE_INT == HOST_BITS_PER_INT
|
|
#define HOST_WIDE_INT_PRINT_HEX "0x%x"
|
|
#else
|
|
#if HOST_BITS_PER_WIDE_INT == HOST_BITS_PER_LONG
|
|
#define HOST_WIDE_INT_PRINT_HEX "0x%lx"
|
|
#else
|
|
#define HOST_WIDE_INT_PRINT_HEX "0x%llx"
|
|
#endif
|
|
#endif
|
|
#endif
|
|
|
|
#ifndef HOST_WIDE_INT_PRINT_DOUBLE_HEX
|
|
#if HOST_BITS_PER_WIDE_INT == 64
|
|
#if HOST_BITS_PER_WIDE_INT == HOST_BITS_PER_INT
|
|
#define HOST_WIDE_INT_PRINT_DOUBLE_HEX "0x%x%016x"
|
|
#else
|
|
#if HOST_BITS_PER_WIDE_INT == HOST_BITS_PER_LONG
|
|
#define HOST_WIDE_INT_PRINT_DOUBLE_HEX "0x%lx%016lx"
|
|
#else
|
|
#define HOST_WIDE_INT_PRINT_DOUBLE_HEX "0x%llx%016llx"
|
|
#endif
|
|
#endif
|
|
#else
|
|
#if HOST_BITS_PER_WIDE_INT == HOST_BITS_PER_INT
|
|
#define HOST_WIDE_INT_PRINT_DOUBLE_HEX "0x%x%08x"
|
|
#else
|
|
#if HOST_BITS_PER_WIDE_INT == HOST_BITS_PER_LONG
|
|
#define HOST_WIDE_INT_PRINT_DOUBLE_HEX "0x%lx%08lx"
|
|
#else
|
|
#define HOST_WIDE_INT_PRINT_DOUBLE_HEX "0x%llx%08llx"
|
|
#endif
|
|
#endif
|
|
#endif
|
|
#endif
|
|
|
|
/* Make an enum class that gives all the machine modes. */
|
|
|
|
#define DEF_MACHMODE(SYM, NAME, TYPE, SIZE, UNIT, WIDER) SYM,
|
|
|
|
enum machine_mode {
|
|
#include "machmode.def"
|
|
|
|
#ifdef EXTRA_CC_MODES
|
|
EXTRA_CC_MODES,
|
|
#endif
|
|
MAX_MACHINE_MODE };
|
|
|
|
#undef DEF_MACHMODE
|
|
|
|
#ifndef NUM_MACHINE_MODES
|
|
#define NUM_MACHINE_MODES (int) MAX_MACHINE_MODE
|
|
#endif
|
|
|
|
/* Get the name of mode MODE as a string. */
|
|
|
|
extern char *mode_name[];
|
|
#define GET_MODE_NAME(MODE) (mode_name[(int) (MODE)])
|
|
|
|
enum mode_class { MODE_RANDOM, MODE_INT, MODE_FLOAT, MODE_PARTIAL_INT, MODE_CC,
|
|
MODE_COMPLEX_INT, MODE_COMPLEX_FLOAT, MAX_MODE_CLASS};
|
|
|
|
/* Get the general kind of object that mode MODE represents
|
|
(integer, floating, complex, etc.) */
|
|
|
|
extern enum mode_class mode_class[];
|
|
#define GET_MODE_CLASS(MODE) (mode_class[(int) (MODE)])
|
|
|
|
/* Nonzero if MODE is an integral mode. */
|
|
#define INTEGRAL_MODE_P(MODE) \
|
|
(GET_MODE_CLASS (MODE) == MODE_INT \
|
|
|| GET_MODE_CLASS (MODE) == MODE_PARTIAL_INT \
|
|
|| GET_MODE_CLASS (MODE) == MODE_COMPLEX_INT)
|
|
|
|
/* Nonzero if MODE is a floating-point mode. */
|
|
#define FLOAT_MODE_P(MODE) \
|
|
(GET_MODE_CLASS (MODE) == MODE_FLOAT \
|
|
|| GET_MODE_CLASS (MODE) == MODE_COMPLEX_FLOAT)
|
|
|
|
/* Nonzero if MODE is a complex mode. */
|
|
#define COMPLEX_MODE_P(MODE) \
|
|
(GET_MODE_CLASS (MODE) == MODE_COMPLEX_INT \
|
|
|| GET_MODE_CLASS (MODE) == MODE_COMPLEX_FLOAT)
|
|
|
|
/* Get the size in bytes of an object of mode MODE. */
|
|
|
|
extern int mode_size[];
|
|
#define GET_MODE_SIZE(MODE) (mode_size[(int) (MODE)])
|
|
|
|
/* Get the size in bytes of the basic parts of an object of mode MODE. */
|
|
|
|
extern int mode_unit_size[];
|
|
#define GET_MODE_UNIT_SIZE(MODE) (mode_unit_size[(int) (MODE)])
|
|
|
|
/* Get the number of units in the object. */
|
|
|
|
#define GET_MODE_NUNITS(MODE) \
|
|
((GET_MODE_UNIT_SIZE ((MODE)) == 0) ? 0 \
|
|
: (GET_MODE_SIZE ((MODE)) / GET_MODE_UNIT_SIZE ((MODE))))
|
|
|
|
/* Get the size in bits of an object of mode MODE. */
|
|
|
|
#define GET_MODE_BITSIZE(MODE) (BITS_PER_UNIT * mode_size[(int) (MODE)])
|
|
|
|
/* Get a bitmask containing 1 for all bits in a word
|
|
that fit within mode MODE. */
|
|
|
|
#define GET_MODE_MASK(MODE) \
|
|
((GET_MODE_BITSIZE (MODE) >= HOST_BITS_PER_WIDE_INT) \
|
|
?(HOST_WIDE_INT) ~0 : (((HOST_WIDE_INT) 1 << GET_MODE_BITSIZE (MODE)) - 1))
|
|
|
|
/* Get the next wider natural mode (eg, QI -> HI -> SI -> DI -> TI). */
|
|
|
|
extern enum machine_mode mode_wider_mode[];
|
|
#define GET_MODE_WIDER_MODE(MODE) (mode_wider_mode[(int) (MODE)])
|
|
|
|
/* Return the mode for data of a given size SIZE and mode class CLASS.
|
|
If LIMIT is nonzero, then don't use modes bigger than MAX_FIXED_MODE_SIZE.
|
|
The value is BLKmode if no other mode is found. */
|
|
|
|
extern enum machine_mode mode_for_size PROTO((unsigned int, enum mode_class, int));
|
|
|
|
/* Find the best mode to use to access a bit field. */
|
|
|
|
extern enum machine_mode get_best_mode PROTO((int, int, int, enum machine_mode, int));
|
|
|
|
/* Determine alignment, 1<=result<=BIGGEST_ALIGNMENT. */
|
|
|
|
#define GET_MODE_ALIGNMENT(MODE) \
|
|
MIN (BIGGEST_ALIGNMENT, \
|
|
MAX (1, (GET_MODE_UNIT_SIZE (MODE) * BITS_PER_UNIT)))
|
|
|
|
/* For each class, get the narrowest mode in that class. */
|
|
|
|
extern enum machine_mode class_narrowest_mode[];
|
|
#define GET_CLASS_NARROWEST_MODE(CLASS) class_narrowest_mode[(int) (CLASS)]
|
|
|
|
/* Define the integer modes whose sizes are BITS_PER_UNIT and BITS_PER_WORD
|
|
and the mode whose class is Pmode and whose size is POINTER_SIZE. */
|
|
|
|
extern enum machine_mode byte_mode;
|
|
extern enum machine_mode word_mode;
|
|
extern enum machine_mode ptr_mode;
|
|
|
|
#endif /* not HAVE_MACHINE_MODES */
|