This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.
| Index Nav: | [Date Index] [Subject Index] [Author Index] [Thread Index] | |
|---|---|---|
| Message Nav: | [Date Prev] [Date Next] | [Thread Prev] [Thread Next] |
| Other format: | [Raw text] | |
The enclosed patch is the third of at least four patches that fix the problems associated with supporting integers on the target that are wider than two HOST_WIDE_INTs.
While GCC claims to support OI mode, and we have two public ports that make minor use of this mode, in practice, compilation that uses OImode mode commonly gives the wrong result or ices. We have a private port of GCC for an architecture that is further down the road to needing comprehensive OImode and we have discovered that this is unusable. We have decided to fix it in a general way that so that it is most beneficial to the GCC community. It is our belief that we are just a little ahead of the X86 and the NEON and these patches will shortly be essential.
The first two of these patches were primarily lexigraphical and have already been committed. They transformed the uses of CONST_DOUBLE so that it is easy to tell what the intended usage is.
The underlying structures in the next two patches are very general: once they are added to the compiler, the compiler will be able to support targets with any size of integer from hosts of any size integer.
The patch enclosed deals with the portable RTL parts of the compiler. The next patch, which is currently under construction deals with the tree level. However, this patch can be put on the trunk as is, and it will eleviate many, but not all of the current limitations in the rtl parts of the compiler.
Some of the patch is conditional, depending on a port defining the symbol 'TARGET_SUPPORTS_WIDE_INT' to be non zero. Defining this symbol to be non zero is declaring that the port has been converted to use the new form or integer constants. However, the patch is completely backwards compatible to allow ports that do not need this immediately to convert at their leasure. The conversion process is not difficult, but it does require some knowledge of the port, so we are not volinteering to do this for all ports.
The patch defines a new datatype, a 'wide_int' (defined in wide-int.[ch], and this datatype will be used to perform all of the integer constant math in the compiler. Externally, wide-int is very similar to double-int except that it does not have the limitation that math must be done on exactly two HOST_WIDE_INTs.
Internally, a wide_int is a structure that contains a fixed sized array of HOST_WIDE_INTs, a length field and a mode. The size of the array is determined at generation time by dividing the number of bits of the largest integer supported on the target by the number of bits in a HOST_WIDE_INT of the host. Thus, with this format, any length of integer can be supported on any host.
A new rtx type is created, the CONST_WIDE_INT, which contains a garbage collected array of HOST_WIDE_INTS that is large enough to hold the constant. For the targets that define TARGET_SUPPORTS_WIDE_INT to be non zero, CONST_DOUBLES are only used to hold floating point values. If the target leaves TARGET_SUPPORTS_WIDE_INT defined as 0, CONST_WIDE_INTs are not used and CONST_DOUBLEs are as they were before.
CONST_INT does not change except that it is defined to hold all constants that fit in exactly one HOST_WIDE_INT. Note that is slightly different than the current trunk. Before this patch, the TImode constant '5' could either be in a CONST_INT or CONST_DOUBLE depending on which code path was used to create it. This patch changes this so that if the constant fits in a CONST_INT then it is represented in a CONST_INT no matter how it is created.
For the array inside a CONST_WIDE_INT, and internally in wide-int, we use a compressed form for integers that need more than one HOST_WIDE_INT. Higher elements of the array are not needed if they are just a sign extension of the elements below them. This does not imply that constants are signed or are sign extended, this is only a compression technique.
While it might seem to be more esthetically pleasing to have not introduced the CONST_WIDE_INT and to have changed the representation of the CONST_INT to accomodate larger numbers, this would have both used more space and would be a time consuming change for the port maintainers. We believe that most ports can be quickly converted with the current scheme because there is just not a lot of code in the back ends that cares about large constants. Furthermore, the CONST_INT is very space efficient and even in a program that was heavy in large values, most constants would still fit in a CONST_INT.
All of the parts of the rtl level that deal with CONST_DOUBLE as an now conditionally work with CONST_WIDE_INTs depending on the value of TARGET_SUPPORTS_WIDE_INT. We believe that this patch removes all of the ices and wrong code places at the portable rtl level. However, there are still places in the portable rtl code that refuse to transform the code unless it is a CONST_INT. Since these do not cause failures, they can be handled later. The patch is already very large.
It should be noted that much of the constant overflow checking in the constant math dissappears with these patches. The overflow checking code in the current compiler is really divided into two cases: overflow on the host and overflow on the target. The overflow checking on the host was to make sure that the math did overflow when done on two HOST_WIDE_INTs. All of this code goes away. These patches allow the constant math to be done exactly the way it is done on the target.
This patch also aids other cleanups that are being considered at the rtl level:
1) These patches remove most of the host dependencies on the optimizations. Currently a 32 bit GCC host will produce different code for a specific target than a 64 bit host will. This is because many of the transformations only work on constants that can be a represented with a single HWI or two HWIs. If the target has larger integers than the host, the compilation suffers.
2) Bernd's need to make GCC correctly support partial its is made easier by the wide-int library. This library carefully does all arithmetic in the precision of the mode included in it. While there are still places at the rtl level that still do arithmetic inline, we plan to convert those to use the library over time. This patch converts a substantial number of those places.
3) This patch is one step along the path to add modes to rtl integer constants. There is no longer any checking to see if a CONST_DOUBLE has VOIDmode as its mode. Furthermore, all constructors for various wide ints do take a mode and require that it not be VOIDmode. There is still a lot of work to do to make this conversion possible.
Richard Sandiford has been over the rtl portions of this patch a few times. He has not looked at the wide-int files in any detail. This patch has been heavily tested on my private ports and also on x86-64.
Converting a port mostly requires looking for the places where CONST_DOUBLES are used with VOIDmode and replacing that code with code that accesses CONST_WIDE_INTs. "grep -i const_double" at the port level gets you to 95% of the changes that need to be made. There are a few places that require a deeper look.
1) There is no equivalent to hval and lval for CONST_WIDE_INTs. This would be difficult to express in the md language since there are a variable number of elements.
Most ports only check that hval is either 0 or -1 to see if the int is small. As mentioned above, this will no longer be necessary since small constants are always CONST_INT. Of course there are still a few exceptions, the alpha's constraint used by the zap instruction certainly requires careful examination by C code. However, all the current code does is pass the hval and lval to C code, so evolving the c code to look at the CONST_WIDE_INT is not really a large change.
2) Because there is no standard template that ports use to materialize constants, there is likely to be some futzing that is unique to each port in this code.
3) The rtx costs may have to be adjusted to properly account for larger constants that are represented as CONST_WIDE_INT.
All and all it has not taken us long to convert ports that we are familiar with.
I did find what i believe is one interesting bug in the double-int code. I believe that the code that performs divide and mod with round to nearest is seriously wrong for unsigned integers. I believe that it will get the wrong answer for any numbers that are large enough to look negative if they consider signed integers. Asside from that, wide-int should perform in a very similar manner to double-int.
I am sorry for the size of this patch. However, there does not appear to change the underlying data structure to support wider integers without doing something like this.
Index: gcc/reload.c
===================================================================
--- gcc/reload.c (revision 191978)
+++ gcc/reload.c (working copy)
@@ -3437,7 +3437,7 @@ find_reloads (rtx insn, int replace, int
break;
case 's':
- if (CONST_INT_P (operand) || CONST_DOUBLE_AS_INT_P (operand))
+ if (CONST_SCALAR_INT_P (operand))
break;
case 'i':
if (CONSTANT_P (operand)
@@ -3446,7 +3446,7 @@ find_reloads (rtx insn, int replace, int
break;
case 'n':
- if (CONST_INT_P (operand) || CONST_DOUBLE_AS_INT_P (operand))
+ if (CONST_SCALAR_INT_P (operand))
win = 1;
break;
Index: gcc/rtl.def
===================================================================
--- gcc/rtl.def (revision 191978)
+++ gcc/rtl.def (working copy)
@@ -319,6 +319,9 @@ DEF_RTL_EXPR(TRAP_IF, "trap_if", "ee", R
/* numeric integer constant */
DEF_RTL_EXPR(CONST_INT, "const_int", "w", RTX_CONST_OBJ)
+/* numeric integer constant */
+DEF_RTL_EXPR(CONST_WIDE_INT, "const_wide_int", "", RTX_CONST_OBJ)
+
/* fixed-point constant */
DEF_RTL_EXPR(CONST_FIXED, "const_fixed", "www", RTX_CONST_OBJ)
Index: gcc/ira-costs.c
===================================================================
--- gcc/ira-costs.c (revision 191978)
+++ gcc/ira-costs.c (working copy)
@@ -667,7 +667,7 @@ record_reg_classes (int n_alts, int n_op
break;
case 's':
- if (CONST_INT_P (op) || CONST_DOUBLE_AS_INT_P (op))
+ if (CONST_SCALAR_INT_P (op))
break;
case 'i':
@@ -677,7 +677,7 @@ record_reg_classes (int n_alts, int n_op
break;
case 'n':
- if (CONST_INT_P (op) || CONST_DOUBLE_AS_INT_P (op))
+ if (CONST_SCALAR_INT_P (op))
win = 1;
break;
@@ -1068,7 +1068,7 @@ record_address_regs (enum machine_mode m
/* If the second operand is a constant integer, it doesn't
change what class the first operand must be. */
- else if (code1 == CONST_INT || code1 == CONST_DOUBLE)
+ else if (CONST_SCALAR_INT_P (arg1))
record_address_regs (mode, as, arg0, context, PLUS, code1, scale);
/* If the second operand is a symbolic constant, the first
operand must be an index register. */
Index: gcc/dojump.c
===================================================================
--- gcc/dojump.c (revision 191978)
+++ gcc/dojump.c (working copy)
@@ -144,6 +144,7 @@ static bool
prefer_and_bit_test (enum machine_mode mode, int bitnum)
{
bool speed_p;
+ wide_int mask = wide_int::set_bit_in_zero (bitnum, mode);
if (and_test == 0)
{
@@ -164,8 +165,7 @@ prefer_and_bit_test (enum machine_mode m
}
/* Fill in the integers. */
- XEXP (and_test, 1)
- = immed_double_int_const (double_int_zero.set_bit (bitnum), mode);
+ XEXP (and_test, 1) = immed_wide_int_const (mask);
XEXP (XEXP (shift_test, 0), 1) = GEN_INT (bitnum);
speed_p = optimize_insn_for_speed_p ();
Index: gcc/recog.c
===================================================================
--- gcc/recog.c (revision 191978)
+++ gcc/recog.c (working copy)
@@ -586,8 +586,7 @@ simplify_while_replacing (rtx *loc, rtx
(PLUS, GET_MODE (x), XEXP (x, 0), XEXP (x, 1)), 1);
break;
case MINUS:
- if (CONST_INT_P (XEXP (x, 1))
- || CONST_DOUBLE_AS_INT_P (XEXP (x, 1)))
+ if (CONST_SCALAR_INT_P (XEXP (x, 1)))
validate_change (object, loc,
simplify_gen_binary
(PLUS, GET_MODE (x), XEXP (x, 0),
@@ -1146,6 +1145,86 @@ const_int_operand (rtx op, enum machine_
return 1;
}
+#if TARGET_SUPPORTS_WIDE_INT
+/* Returns 1 if OP is an operand that is a CONST_INT or CONST_WIDE_INT. */
+int
+const_scalar_int_operand (rtx op, enum machine_mode mode)
+{
+ if (!CONST_WIDE_INT_P (op))
+ return 0;
+
+ if (mode != VOIDmode)
+ {
+ int prec = GET_MODE_PRECISION (mode);
+ int bitsize = GET_MODE_BITSIZE (mode);
+
+ if (CONST_WIDE_INT_NUNITS (op) * HOST_BITS_PER_WIDE_INT > bitsize)
+ return 0;
+
+ if (prec == bitsize)
+ return 1;
+ else
+ {
+ /* Multiword partial int. */
+ HOST_WIDE_INT x
+ = CONST_WIDE_INT_ELT (op, CONST_WIDE_INT_NUNITS (op) - 1);
+ return (wide_int::sext (x, prec & (HOST_BITS_PER_WIDE_INT - 1))
+ == x);
+ }
+ }
+ return 1;
+}
+
+/* Returns 1 if OP is an operand that is a CONST_WIDE_INT. */
+int
+const_wide_int_operand (rtx op, enum machine_mode mode)
+{
+ switch (GET_CODE (op))
+ {
+ case CONST_INT:
+ if (mode != VOIDmode
+ && trunc_int_for_mode (INTVAL (op), mode) != INTVAL (op))
+ return 0;
+ return 1;
+
+ case CONST_WIDE_INT:
+ if (mode != VOIDmode)
+ {
+ int prec = GET_MODE_PRECISION (mode);
+ int bitsize = GET_MODE_BITSIZE (mode);
+
+ if (CONST_WIDE_INT_NUNITS (op) * HOST_BITS_PER_WIDE_INT > bitsize)
+ return 0;
+
+ if (prec == bitsize)
+ return 1;
+ else
+ {
+ /* Multiword partial int. */
+ HOST_WIDE_INT x
+ = CONST_WIDE_INT_ELT (op, CONST_WIDE_INT_NUNITS (op));
+ return (wide_int::sext (x,
+ prec & (HOST_BITS_PER_WIDE_INT - 1))
+ == x);
+ }
+ }
+ return 1;
+
+ default:
+ return 0;
+ }
+}
+
+/* Returns 1 if OP is an operand that is a constant integer or constant
+ floating-point number. */
+
+int
+const_double_operand (rtx op, enum machine_mode mode)
+{
+ return (GET_CODE (op) == CONST_DOUBLE)
+ && (GET_MODE (op) == mode || mode == VOIDmode);
+}
+#else
/* Returns 1 if OP is an operand that is a constant integer or constant
floating-point number. */
@@ -1163,7 +1242,7 @@ const_double_operand (rtx op, enum machi
&& (mode == VOIDmode || GET_MODE (op) == mode
|| GET_MODE (op) == VOIDmode));
}
-
+#endif
/* Return 1 if OP is a general operand that is not an immediate operand. */
int
@@ -1726,7 +1805,7 @@ asm_operand_ok (rtx op, const char *cons
break;
case 's':
- if (CONST_INT_P (op) || CONST_DOUBLE_AS_INT_P (op))
+ if (CONST_SCALAR_INT_P (op))
break;
/* Fall through. */
@@ -1736,7 +1815,7 @@ asm_operand_ok (rtx op, const char *cons
break;
case 'n':
- if (CONST_INT_P (op) || CONST_DOUBLE_AS_INT_P (op))
+ if (CONST_SCALAR_INT_P (op))
result = 1;
break;
@@ -2591,7 +2670,7 @@ constrain_operands (int strict)
break;
case 's':
- if (CONST_INT_P (op) || CONST_DOUBLE_AS_INT_P (op))
+ if (CONST_SCALAR_INT_P (op))
break;
case 'i':
if (CONSTANT_P (op))
@@ -2599,7 +2678,7 @@ constrain_operands (int strict)
break;
case 'n':
- if (CONST_INT_P (op) || CONST_DOUBLE_AS_INT_P (op))
+ if (CONST_SCALAR_INT_P (op))
win = 1;
break;
Index: gcc/rtl.c
===================================================================
--- gcc/rtl.c (revision 191978)
+++ gcc/rtl.c (working copy)
@@ -111,7 +111,7 @@ const enum rtx_class rtx_class[NUM_RTX_C
const unsigned char rtx_code_size[NUM_RTX_CODE] = {
#define DEF_RTL_EXPR(ENUM, NAME, FORMAT, CLASS) \
(((ENUM) == CONST_INT || (ENUM) == CONST_DOUBLE \
- || (ENUM) == CONST_FIXED) \
+ || (ENUM) == CONST_FIXED || (ENUM) == CONST_WIDE_INT) \
? RTX_HDR_SIZE + (sizeof FORMAT - 1) * sizeof (HOST_WIDE_INT) \
: RTX_HDR_SIZE + (sizeof FORMAT - 1) * sizeof (rtunion)),
@@ -183,18 +183,24 @@ shallow_copy_rtvec (rtvec vec)
unsigned int
rtx_size (const_rtx x)
{
+ if (GET_CODE (x) == CONST_WIDE_INT)
+ return (RTX_HDR_SIZE
+ + sizeof (struct hwivec_def)
+ + ((CONST_WIDE_INT_NUNITS (x) - 1)
+ * sizeof (HOST_WIDE_INT)));
if (GET_CODE (x) == SYMBOL_REF && SYMBOL_REF_HAS_BLOCK_INFO_P (x))
return RTX_HDR_SIZE + sizeof (struct block_symbol);
return RTX_CODE_SIZE (GET_CODE (x));
}
-/* Allocate an rtx of code CODE. The CODE is stored in the rtx;
- all the rest is initialized to zero. */
+/* Allocate an rtx of code CODE with EXTRA bytes in it. The CODE is
+ stored in the rtx; all the rest is initialized to zero. */
rtx
-rtx_alloc_stat (RTX_CODE code MEM_STAT_DECL)
+rtx_alloc_stat_v (RTX_CODE code MEM_STAT_DECL, int extra)
{
- rtx rt = ggc_alloc_zone_rtx_def_stat (&rtl_zone, RTX_CODE_SIZE (code)
+ rtx rt = ggc_alloc_zone_rtx_def_stat (&rtl_zone,
+ RTX_CODE_SIZE (code) + extra
PASS_MEM_STAT);
/* We want to clear everything up to the FLD array. Normally, this
@@ -213,6 +219,29 @@ rtx_alloc_stat (RTX_CODE code MEM_STAT_D
return rt;
}
+/* Allocate an rtx of code CODE. The CODE is stored in the rtx;
+ all the rest is initialized to zero. */
+
+rtx
+rtx_alloc_stat (RTX_CODE code MEM_STAT_DECL)
+{
+ return rtx_alloc_stat_v (code PASS_MEM_STAT, 0);
+}
+
+/* Write the wide constant OP0 to OUTFILE. */
+
+void
+hwivec_output_hex (FILE *outfile, const_hwivec op0)
+{
+ int i = HWI_GET_NUM_ELEM (op0);
+ gcc_assert (i > 0);
+ if (XHWIVEC_ELT (op0, i-1) == 0)
+ fprintf (outfile, "0x");
+ fprintf (outfile, HOST_WIDE_INT_PRINT_HEX, XHWIVEC_ELT (op0, --i));
+ while (--i >= 0)
+ fprintf (outfile, HOST_WIDE_INT_PRINT_PADDED_HEX, XHWIVEC_ELT (op0, i));
+}
+
/* Return true if ORIG is a sharable CONST. */
@@ -427,7 +456,6 @@ rtx_equal_p_cb (const_rtx x, const_rtx y
if (XWINT (x, i) != XWINT (y, i))
return 0;
break;
-
case 'n':
case 'i':
if (XINT (x, i) != XINT (y, i))
@@ -645,6 +673,10 @@ iterative_hash_rtx (const_rtx x, hashval
return iterative_hash_object (i, hash);
case CONST_INT:
return iterative_hash_object (INTVAL (x), hash);
+ case CONST_WIDE_INT:
+ for (i = 0; i < CONST_WIDE_INT_NUNITS (x); i++)
+ hash = iterative_hash_object (CONST_WIDE_INT_ELT (x, i), hash);
+ return hash;
case SYMBOL_REF:
if (XSTR (x, 0))
return iterative_hash (XSTR (x, 0), strlen (XSTR (x, 0)) + 1,
@@ -809,6 +841,16 @@ rtl_check_failed_block_symbol (const cha
}
/* XXX Maybe print the vector? */
+void
+hwivec_check_failed_bounds (const_hwivec r, int n, const char *file, int line,
+ const char *func)
+{
+ internal_error
+ ("RTL check: access of hwi elt %d of vector with last elt %d in %s, at %s:%d",
+ n, GET_NUM_ELEM (r) - 1, func, trim_filename (file), line);
+}
+
+/* XXX Maybe print the vector? */
void
rtvec_check_failed_bounds (const_rtvec r, int n, const char *file, int line,
const char *func)
Index: gcc/rtl.h
===================================================================
--- gcc/rtl.h (revision 191978)
+++ gcc/rtl.h (working copy)
@@ -31,6 +31,7 @@ along with GCC; see the file COPYING3.
#include "fixed-value.h"
#include "alias.h"
#include "hashtab.h"
+#include "wide-int.h"
#include "flags.h"
/* Value used by some passes to "recognize" noop moves as valid
@@ -252,6 +253,14 @@ struct GTY(()) object_block {
VEC(rtx,gc) *anchors;
};
+struct GTY((variable_size)) hwivec_def {
+ int num_elem; /* number of elements */
+ HOST_WIDE_INT elem[1];
+};
+
+#define HWI_GET_NUM_ELEM(HWIVEC) ((HWIVEC)->num_elem)
+#define HWI_PUT_NUM_ELEM(HWIVEC, NUM) ((HWIVEC)->num_elem = (NUM))
+
/* RTL expression ("rtx"). */
struct GTY((chain_next ("RTX_NEXT (&%h)"),
@@ -344,6 +353,7 @@ struct GTY((chain_next ("RTX_NEXT (&%h)"
struct block_symbol block_sym;
struct real_value rv;
struct fixed_value fv;
+ struct hwivec_def hwiv;
} GTY ((special ("rtx_def"), desc ("GET_CODE (&%0)"))) u;
};
@@ -382,13 +392,13 @@ struct GTY((chain_next ("RTX_NEXT (&%h)"
for a variable number of things. The principle use is inside
PARALLEL expressions. */
+#define NULL_RTVEC (rtvec) 0
+
struct GTY((variable_size)) rtvec_def {
int num_elem; /* number of elements */
rtx GTY ((length ("%h.num_elem"))) elem[1];
};
-#define NULL_RTVEC (rtvec) 0
-
#define GET_NUM_ELEM(RTVEC) ((RTVEC)->num_elem)
#define PUT_NUM_ELEM(RTVEC, NUM) ((RTVEC)->num_elem = (NUM))
@@ -398,12 +408,38 @@ struct GTY((variable_size)) rtvec_def {
/* Predicate yielding nonzero iff X is an rtx for a memory location. */
#define MEM_P(X) (GET_CODE (X) == MEM)
+#if TARGET_SUPPORTS_WIDE_INT
+
+/* Match CONST_*s that can represent compile-time constant integers. */
+#define CASE_CONST_SCALAR_INT \
+ case CONST_INT: \
+ case CONST_WIDE_INT
+
+/* Match CONST_*s for which pointer equality corresponds to value
+ equality. */
+#define CASE_CONST_UNIQUE \
+ case CONST_INT: \
+ case CONST_WIDE_INT: \
+ case CONST_DOUBLE: \
+ case CONST_FIXED
+
+/* Match all CONST_* rtxes. */
+#define CASE_CONST_ANY \
+ case CONST_INT: \
+ case CONST_WIDE_INT: \
+ case CONST_DOUBLE: \
+ case CONST_FIXED: \
+ case CONST_VECTOR
+
+#else
+
/* Match CONST_*s that can represent compile-time constant integers. */
#define CASE_CONST_SCALAR_INT \
case CONST_INT: \
case CONST_DOUBLE
-/* Match CONST_*s for which pointer equality corresponds to value equality. */
+/* Match CONST_*s for which pointer equality corresponds to value
+equality. */
#define CASE_CONST_UNIQUE \
case CONST_INT: \
case CONST_DOUBLE: \
@@ -415,10 +451,17 @@ struct GTY((variable_size)) rtvec_def {
case CONST_DOUBLE: \
case CONST_FIXED: \
case CONST_VECTOR
+#endif
+
+
+
/* Predicate yielding nonzero iff X is an rtx for a constant integer. */
#define CONST_INT_P(X) (GET_CODE (X) == CONST_INT)
+/* Predicate yielding nonzero iff X is an rtx for a constant integer. */
+#define CONST_WIDE_INT_P(X) (GET_CODE (X) == CONST_WIDE_INT)
+
/* Predicate yielding nonzero iff X is an rtx for a constant fixed-point. */
#define CONST_FIXED_P(X) (GET_CODE (X) == CONST_FIXED)
@@ -430,6 +473,15 @@ struct GTY((variable_size)) rtvec_def {
#define CONST_DOUBLE_AS_INT_P(X) \
(GET_CODE (X) == CONST_DOUBLE && GET_MODE (X) == VOIDmode)
+/* Predicate yielding true iff X is an rtx for a integer const. */
+#if TARGET_SUPPORTS_WIDE_INT
+#define CONST_SCALAR_INT_P(X) \
+ (CONST_INT_P (X) || CONST_WIDE_INT_P (X))
+#else
+#define CONST_SCALAR_INT_P(X) \
+ (CONST_INT_P (X) || CONST_DOUBLE_AS_INT_P (X))
+#endif
+
/* Predicate yielding true iff X is an rtx for a double-int. */
#define CONST_DOUBLE_AS_FLOAT_P(X) \
(GET_CODE (X) == CONST_DOUBLE && GET_MODE (X) != VOIDmode)
@@ -591,6 +643,13 @@ struct GTY((variable_size)) rtvec_def {
__FUNCTION__); \
&_rtx->u.hwint[_n]; }))
+#define XHWIVEC_ELT(HWIVEC, I) __extension__ \
+(*({ __typeof (HWIVEC) const _hwivec = (HWIVEC); const int _i = (I); \
+ if (_i < 0 || _i >= HWI_GET_NUM_ELEM (_hwivec)) \
+ hwivec_check_failed_bounds (_hwivec, _i, __FILE__, __LINE__, \
+ __FUNCTION__); \
+ &_hwivec->elem[_i]; }))
+
#define XCWINT(RTX, N, C) __extension__ \
(*({ __typeof (RTX) const _rtx = (RTX); \
if (GET_CODE (_rtx) != (C)) \
@@ -627,6 +686,11 @@ struct GTY((variable_size)) rtvec_def {
__FUNCTION__); \
&_symbol->u.block_sym; })
+#define HWIVEC_CHECK(RTX,C) __extension__ \
+({ __typeof (RTX) const _symbol = (RTX); \
+ RTL_CHECKC1 (_symbol, 0, C); \
+ &_symbol->u.hwiv; })
+
extern void rtl_check_failed_bounds (const_rtx, int, const char *, int,
const char *)
ATTRIBUTE_NORETURN;
@@ -647,6 +711,9 @@ extern void rtl_check_failed_code_mode (
ATTRIBUTE_NORETURN;
extern void rtl_check_failed_block_symbol (const char *, int, const char *)
ATTRIBUTE_NORETURN;
+extern void hwivec_check_failed_bounds (const_rtvec, int, const char *, int,
+ const char *)
+ ATTRIBUTE_NORETURN;
extern void rtvec_check_failed_bounds (const_rtvec, int, const char *, int,
const char *)
ATTRIBUTE_NORETURN;
@@ -659,12 +726,14 @@ extern void rtvec_check_failed_bounds (c
#define RTL_CHECKC2(RTX, N, C1, C2) ((RTX)->u.fld[N])
#define RTVEC_ELT(RTVEC, I) ((RTVEC)->elem[I])
#define XWINT(RTX, N) ((RTX)->u.hwint[N])
+#define XHWIVEC_ELT(HWIVEC, I) ((HWIVEC)->elem[I])
#define XCWINT(RTX, N, C) ((RTX)->u.hwint[N])
#define XCMWINT(RTX, N, C, M) ((RTX)->u.hwint[N])
#define XCNMWINT(RTX, N, C, M) ((RTX)->u.hwint[N])
#define XCNMPRV(RTX, C, M) (&(RTX)->u.rv)
#define XCNMPFV(RTX, C, M) (&(RTX)->u.fv)
#define BLOCK_SYMBOL_CHECK(RTX) (&(RTX)->u.block_sym)
+#define HWIVEC_CHECK(RTX,C) (&(RTX)->u.hwiv)
#endif
@@ -807,8 +876,8 @@ extern void rtl_check_failed_flag (const
#define XCCFI(RTX, N, C) (RTL_CHECKC1 (RTX, N, C).rt_cfi)
#define XCCSELIB(RTX, N, C) (RTL_CHECKC1 (RTX, N, C).rt_cselib)
-#define XCVECEXP(RTX, N, M, C) RTVEC_ELT (XCVEC (RTX, N, C), M)
-#define XCVECLEN(RTX, N, C) GET_NUM_ELEM (XCVEC (RTX, N, C))
+#define XCVECEXP(RTX, N, M, C) RTVEC_ELT (XCVEC (RTX, N, C), M)
+#define XCVECLEN(RTX, N, C) GET_NUM_ELEM (XCVEC (RTX, N, C))
#define XC2EXP(RTX, N, C1, C2) (RTL_CHECKC2 (RTX, N, C1, C2).rt_rtx)
@@ -1150,9 +1219,19 @@ rhs_regno (const_rtx x)
#define INTVAL(RTX) XCWINT(RTX, 0, CONST_INT)
#define UINTVAL(RTX) ((unsigned HOST_WIDE_INT) INTVAL (RTX))
+/* For a CONST_WIDE_INT, CONST_WIDE_INT_NUNITS is the number of
+ elements actually needed to represent the constant.
+ CONST_WIDE_INT_ELT gets one of the elements. 0 is the least
+ significant HOST_WIDE_INT. */
+#define CONST_WIDE_INT_VEC(RTX) HWIVEC_CHECK (RTX, CONST_WIDE_INT)
+#define CONST_WIDE_INT_NUNITS(RTX) HWI_GET_NUM_ELEM (CONST_WIDE_INT_VEC (RTX))
+#define CONST_WIDE_INT_ELT(RTX, N) XHWIVEC_ELT (CONST_WIDE_INT_VEC (RTX), N)
+
/* For a CONST_DOUBLE:
+#if TARGET_SUPPORTS_WIDE_INT == 0
For a VOIDmode, there are two integers CONST_DOUBLE_LOW is the
low-order word and ..._HIGH the high-order.
+#endif
For a float, there is a REAL_VALUE_TYPE structure, and
CONST_DOUBLE_REAL_VALUE(r) is a pointer to it. */
#define CONST_DOUBLE_LOW(r) XCMWINT (r, 0, CONST_DOUBLE, VOIDmode)
@@ -1678,6 +1757,12 @@ extern rtx plus_constant (enum machine_m
/* In rtl.c */
extern rtx rtx_alloc_stat (RTX_CODE MEM_STAT_DECL);
#define rtx_alloc(c) rtx_alloc_stat (c MEM_STAT_INFO)
+extern rtx rtx_alloc_stat_v (RTX_CODE MEM_STAT_DECL, int);
+#define rtx_alloc_v(c, SZ) rtx_alloc_stat_v (c MEM_STAT_INFO, SZ)
+#define const_wide_int_alloc(NWORDS) \
+ rtx_alloc_v (CONST_WIDE_INT, \
+ (sizeof (struct hwivec_def) \
+ + ((NWORDS)-1) * sizeof (HOST_WIDE_INT))) \
extern rtvec rtvec_alloc (int);
extern rtvec shallow_copy_rtvec (rtvec);
@@ -1734,10 +1819,17 @@ extern void start_sequence (void);
extern void push_to_sequence (rtx);
extern void push_to_sequence2 (rtx, rtx);
extern void end_sequence (void);
+#if TARGET_SUPPORTS_WIDE_INT == 0
extern double_int rtx_to_double_int (const_rtx);
-extern rtx immed_double_int_const (double_int, enum machine_mode);
+#endif
+extern void hwivec_output_hex (FILE *, const_hwivec);
+#ifndef GENERATOR_FILE
+extern rtx immed_wide_int_const (const wide_int &cst);
+#endif
+#if TARGET_SUPPORTS_WIDE_INT == 0
extern rtx immed_double_const (HOST_WIDE_INT, HOST_WIDE_INT,
enum machine_mode);
+#endif
/* In loop-iv.c */
Index: gcc/rtlanal.c
===================================================================
--- gcc/rtlanal.c (revision 191978)
+++ gcc/rtlanal.c (working copy)
@@ -3081,6 +3081,8 @@ commutative_operand_precedence (rtx op)
/* Constants always come the second operand. Prefer "nice" constants. */
if (code == CONST_INT)
return -8;
+ if (code == CONST_WIDE_INT)
+ return -8;
if (code == CONST_DOUBLE)
return -7;
if (code == CONST_FIXED)
@@ -3093,6 +3095,8 @@ commutative_operand_precedence (rtx op)
case RTX_CONST_OBJ:
if (code == CONST_INT)
return -6;
+ if (code == CONST_WIDE_INT)
+ return -6;
if (code == CONST_DOUBLE)
return -5;
if (code == CONST_FIXED)
@@ -5351,6 +5355,20 @@ split_double (rtx value, rtx *first, rtx
}
}
}
+ else if (GET_CODE (value) == CONST_WIDE_INT)
+ {
+ gcc_assert (CONST_WIDE_INT_NUNITS (value) == 2);
+ if (WORDS_BIG_ENDIAN)
+ {
+ *first = GEN_INT (CONST_WIDE_INT_ELT (value, 1));
+ *second = GEN_INT (CONST_WIDE_INT_ELT (value, 0));
+ }
+ else
+ {
+ *first = GEN_INT (CONST_WIDE_INT_ELT (value, 0));
+ *second = GEN_INT (CONST_WIDE_INT_ELT (value, 1));
+ }
+ }
else if (!CONST_DOUBLE_P (value))
{
if (WORDS_BIG_ENDIAN)
Index: gcc/Makefile.in
===================================================================
--- gcc/Makefile.in (revision 191978)
+++ gcc/Makefile.in (working copy)
@@ -841,7 +841,7 @@ COMMON_TARGET_DEF_H = common/common-targ
RTL_BASE_H = coretypes.h rtl.h rtl.def $(MACHMODE_H) reg-notes.def \
insn-notes.def $(INPUT_H) $(REAL_H) statistics.h $(VEC_H) \
$(FIXED_VALUE_H) alias.h $(HASHTAB_H)
-FIXED_VALUE_H = fixed-value.h $(MACHMODE_H) double-int.h
+FIXED_VALUE_H = fixed-value.h $(MACHMODE_H) double-int.h wide-int.h
RTL_H = $(RTL_BASE_H) $(FLAGS_H) genrtl.h vecir.h
RTL_ERROR_H = rtl-error.h $(RTL_H) $(DIAGNOSTIC_CORE_H)
READ_MD_H = $(OBSTACK_H) $(HASHTAB_H) read-md.h
@@ -853,7 +853,7 @@ INTERNAL_FN_H = internal-fn.h $(INTERNAL
TREE_H = coretypes.h tree.h all-tree.def tree.def c-family/c-common.def \
$(lang_tree_files) $(MACHMODE_H) tree-check.h $(BUILTINS_DEF) \
$(INPUT_H) statistics.h $(VEC_H) treestruct.def $(HASHTAB_H) \
- double-int.h alias.h $(SYMTAB_H) $(FLAGS_H) vecir.h \
+ double-int.h wide-int.h alias.h $(SYMTAB_H) $(FLAGS_H) vecir.h \
$(REAL_H) $(FIXED_VALUE_H)
REGSET_H = regset.h $(BITMAP_H) hard-reg-set.h
BASIC_BLOCK_H = basic-block.h $(PREDICT_H) $(VEC_H) $(FUNCTION_H) \
@@ -1432,6 +1432,7 @@ OBJS = \
varpool.o \
vmsdbgout.o \
web.o \
+ wide-int.o \
xcoffout.o \
$(out_object_file) \
$(EXTRA_OBJS) \
@@ -2639,6 +2640,7 @@ targhooks.o : targhooks.c $(CONFIG_H) $(
tree-ssa-alias.h $(TREE_FLOW_H)
common/common-targhooks.o : common/common-targhooks.c $(CONFIG_H) $(SYSTEM_H) \
coretypes.h $(INPUT_H) $(TM_H) $(COMMON_TARGET_H) common/common-targhooks.h
+wide-int.o: wide-int.c $(CONFIG_H) $(SYSTEM_H) coretypes.h $(TM_H) $(TREE_H)
bversion.h: s-bversion; @true
s-bversion: BASE-VER
@@ -3833,15 +3835,16 @@ CFLAGS-gengtype-parse.o += -DGENERATOR_F
build/gengtype-parse.o: $(BCONFIG_H)
gengtype-state.o build/gengtype-state.o: gengtype-state.c $(SYSTEM_H) \
- gengtype.h errors.h double-int.h version.h $(HASHTAB_H) $(OBSTACK_H) \
- $(XREGEX_H)
+ gengtype.h errors.h double-int.h wide-int.h version.h $(HASHTAB_H) \
+ $(OBSTACK_H) $(XREGEX_H)
gengtype-state.o: $(CONFIG_H)
CFLAGS-gengtype-state.o += -DGENERATOR_FILE
build/gengtype-state.o: $(BCONFIG_H)
+wide-int.h: $(GTM_H) insn-modes.h
gengtype.o build/gengtype.o : gengtype.c $(SYSTEM_H) gengtype.h \
- rtl.def insn-notes.def errors.h double-int.h version.h $(HASHTAB_H) \
- $(OBSTACK_H) $(XREGEX_H)
+ rtl.def insn-notes.def errors.h double-int.h wide-int.h version.h \
+ $(HASHTAB_H) $(OBSTACK_H) $(XREGEX_H)
gengtype.o: $(CONFIG_H)
CFLAGS-gengtype.o += -DGENERATOR_FILE
build/gengtype.o: $(BCONFIG_H)
Index: gcc/sched-vis.c
===================================================================
--- gcc/sched-vis.c (revision 191978)
+++ gcc/sched-vis.c (working copy)
@@ -444,14 +444,31 @@ print_value (char *buf, const_rtx x, int
(unsigned HOST_WIDE_INT) INTVAL (x));
cur = safe_concat (buf, cur, t);
break;
+
+ case CONST_WIDE_INT:
+ {
+ const char *sep = "<";
+ int i;
+ for (i = CONST_WIDE_INT_NUNITS (x) - 1; i >= 0; i--)
+ {
+ cur = safe_concat (buf, cur, sep);
+ sep = ",";
+ sprintf (t, HOST_WIDE_INT_PRINT_HEX,
+ (unsigned HOST_WIDE_INT) CONST_WIDE_INT_ELT (x, i));
+ cur = safe_concat (buf, cur, t);
+ }
+ cur = safe_concat (buf, cur, ">");
+ }
+ break;
+
case CONST_DOUBLE:
- if (FLOAT_MODE_P (GET_MODE (x)))
- real_to_decimal (t, CONST_DOUBLE_REAL_VALUE (x), sizeof (t), 0, 1);
- else
+ if (TARGET_SUPPORTS_WIDE_INT == 0 && !FLOAT_MODE_P (GET_MODE (x)))
sprintf (t,
"<" HOST_WIDE_INT_PRINT_HEX "," HOST_WIDE_INT_PRINT_HEX ">",
(unsigned HOST_WIDE_INT) CONST_DOUBLE_LOW (x),
(unsigned HOST_WIDE_INT) CONST_DOUBLE_HIGH (x));
+ else
+ real_to_decimal (t, CONST_DOUBLE_REAL_VALUE (x), sizeof (t), 0, 1);
cur = safe_concat (buf, cur, t);
break;
case CONST_FIXED:
Index: gcc/gengtype.c
===================================================================
--- gcc/gengtype.c (revision 191978)
+++ gcc/gengtype.c (working copy)
@@ -5440,6 +5440,7 @@ main (int argc, char **argv)
POS_HERE (do_scalar_typedef ("REAL_VALUE_TYPE", &pos));
POS_HERE (do_scalar_typedef ("FIXED_VALUE_TYPE", &pos));
POS_HERE (do_scalar_typedef ("double_int", &pos));
+ POS_HERE (do_scalar_typedef ("wide_int", &pos));
POS_HERE (do_scalar_typedef ("uint64_t", &pos));
POS_HERE (do_scalar_typedef ("uint8", &pos));
POS_HERE (do_scalar_typedef ("uintptr_t", &pos));
Index: gcc/alias.c
===================================================================
--- gcc/alias.c (revision 191978)
+++ gcc/alias.c (working copy)
@@ -1490,9 +1490,9 @@ rtx_equal_for_memref_p (const_rtx x, con
case VALUE:
CASE_CONST_UNIQUE:
- /* There's no need to compare the contents of CONST_DOUBLEs or
- CONST_INTs because pointer equality is a good enough
- comparison for these nodes. */
+ /* There's no need to compare the contents of CONST_DOUBLEs,
+ CONST_INTs or CONST_WIDE_INTs because pointer equality is a
+ good enough comparison for these nodes. */
return 0;
default:
Index: gcc/sel-sched-ir.c
===================================================================
--- gcc/sel-sched-ir.c (revision 191978)
+++ gcc/sel-sched-ir.c (working copy)
@@ -1137,10 +1137,10 @@ lhs_and_rhs_separable_p (rtx lhs, rtx rh
if (lhs == NULL || rhs == NULL)
return false;
- /* Do not schedule CONST, CONST_INT and CONST_DOUBLE etc as rhs: no point
- to use reg, if const can be used. Moreover, scheduling const as rhs may
- lead to mode mismatch cause consts don't have modes but they could be
- merged from branches where the same const used in different modes. */
+ /* Do not schedule constants as rhs: no point to use reg, if const
+ can be used. Moreover, scheduling const as rhs may lead to mode
+ mismatch cause consts don't have modes but they could be merged
+ from branches where the same const used in different modes. */
if (CONSTANT_P (rhs))
return false;
Index: gcc/genemit.c
===================================================================
--- gcc/genemit.c (revision 191978)
+++ gcc/genemit.c (working copy)
@@ -205,6 +205,7 @@ gen_exp (rtx x, enum rtx_code subroutine
case CONST_DOUBLE:
case CONST_FIXED:
+ case CONST_WIDE_INT:
/* These shouldn't be written in MD files. Instead, the appropriate
routines in varasm.c should be called. */
gcc_unreachable ();
Index: gcc/defaults.h
===================================================================
--- gcc/defaults.h (revision 191978)
+++ gcc/defaults.h (working copy)
@@ -1402,6 +1402,14 @@ see the files COPYING3 and COPYING.RUNTI
#define SWITCHABLE_TARGET 0
#endif
+/* If the target supports integers that are wider than two
+ HOST_WIDE_INTs on the host compiler, then the target should define
+ TARGET_SUPPORTS_WIDE_INT and make the appropriate fixups.
+ Otherwise the compiler really is not robust. */
+#ifndef TARGET_SUPPORTS_WIDE_INT
+#define TARGET_SUPPORTS_WIDE_INT 0
+#endif
+
#endif /* GCC_INSN_FLAGS_H */
#endif /* ! GCC_DEFAULTS_H */
Index: gcc/builtins.c
===================================================================
--- gcc/builtins.c (revision 191978)
+++ gcc/builtins.c (working copy)
@@ -671,20 +671,25 @@ c_getstr (tree src)
return TREE_STRING_POINTER (src) + tree_low_cst (offset_node, 1);
}
-/* Return a CONST_INT or CONST_DOUBLE corresponding to target reading
- GET_MODE_BITSIZE (MODE) bits from string constant STR. */
+/* Return a CONST_INT, CONST_WIDE_INT, or CONST_DOUBLE corresponding
+ to target reading GET_MODE_BITSIZE (MODE) bits from string constant
+ STR. */
static rtx
c_readstr (const char *str, enum machine_mode mode)
{
- HOST_WIDE_INT c[2];
+ wide_int c;
HOST_WIDE_INT ch;
unsigned int i, j;
+ c.set_mode (mode);
+ c.set_len ((GET_MODE_PRECISION (mode) + HOST_BITS_PER_WIDE_INT - 1)
+ / HOST_BITS_PER_WIDE_INT);
+
+ for (i = 0; i < c.get_len (); i++)
+ c.elt_ref(i) = 0;
gcc_assert (GET_MODE_CLASS (mode) == MODE_INT);
- c[0] = 0;
- c[1] = 0;
ch = 1;
for (i = 0; i < GET_MODE_SIZE (mode); i++)
{
@@ -695,13 +700,14 @@ c_readstr (const char *str, enum machine
&& GET_MODE_SIZE (mode) >= UNITS_PER_WORD)
j = j + UNITS_PER_WORD - 2 * (j % UNITS_PER_WORD) - 1;
j *= BITS_PER_UNIT;
- gcc_assert (j < HOST_BITS_PER_DOUBLE_INT);
if (ch)
ch = (unsigned char) str[i];
- c[j / HOST_BITS_PER_WIDE_INT] |= ch << (j % HOST_BITS_PER_WIDE_INT);
+ c.elt_ref (j / HOST_BITS_PER_WIDE_INT) |= ch << (j % HOST_BITS_PER_WIDE_INT);
}
- return immed_double_const (c[0], c[1], mode);
+
+ c.canonize ();
+ return immed_wide_int_const (c);
}
/* Cast a target constant CST to target CHAR and if that value fits into
@@ -4990,12 +4996,13 @@ expand_builtin_signbit (tree exp, rtx ta
if (bitpos < GET_MODE_BITSIZE (rmode))
{
- double_int mask = double_int_zero.set_bit (bitpos);
+ wide_int mask;
+ mask = wide_int::set_bit_in_zero (bitpos, rmode);
if (GET_MODE_SIZE (imode) > GET_MODE_SIZE (rmode))
temp = gen_lowpart (rmode, temp);
temp = expand_binop (rmode, and_optab, temp,
- immed_double_int_const (mask, rmode),
+ immed_wide_int_const (mask),
NULL_RTX, 1, OPTAB_LIB_WIDEN);
}
else
Index: gcc/simplify-rtx.c
===================================================================
--- gcc/simplify-rtx.c (revision 191978)
+++ gcc/simplify-rtx.c (working copy)
@@ -88,6 +88,22 @@ mode_signbit_p (enum machine_mode mode,
if (width <= HOST_BITS_PER_WIDE_INT
&& CONST_INT_P (x))
val = INTVAL (x);
+#if TARGET_SUPPORTS_WIDE_INT
+ else if (CONST_WIDE_INT_P (x))
+ {
+ unsigned int i;
+ unsigned int elts = CONST_WIDE_INT_NUNITS (x);
+ if (elts != (width + HOST_BITS_PER_WIDE_INT - 1) / HOST_BITS_PER_WIDE_INT)
+ return false;
+ for (i = 0; i < elts - 1; i++)
+ if (CONST_WIDE_INT_ELT (x, i) != 0)
+ return false;
+ val = CONST_WIDE_INT_ELT (x, elts - 1);
+ width %= HOST_BITS_PER_WIDE_INT;
+ if (width == 0)
+ width = HOST_BITS_PER_WIDE_INT;
+ }
+#else
else if (width <= HOST_BITS_PER_DOUBLE_INT
&& CONST_DOUBLE_AS_INT_P (x)
&& CONST_DOUBLE_LOW (x) == 0)
@@ -95,8 +111,9 @@ mode_signbit_p (enum machine_mode mode,
val = CONST_DOUBLE_HIGH (x);
width -= HOST_BITS_PER_WIDE_INT;
}
+#endif
else
- /* FIXME: We don't yet have a representation for wider modes. */
+ /* X is not an integer constant. */
return false;
if (width < HOST_BITS_PER_WIDE_INT)
@@ -729,8 +746,8 @@ simplify_unary_operation_1 (enum rtx_cod
&& !HONOR_SIGN_DEPENDENT_ROUNDING (mode))
{
/* (neg (plus A C)) is simplified to (minus -C A). */
- if (CONST_INT_P (XEXP (op, 1))
- || CONST_DOUBLE_P (XEXP (op, 1)))
+ if (CONST_SCALAR_INT_P (XEXP (op, 1))
+ || CONST_DOUBLE_AS_FLOAT_P (XEXP (op, 1)))
{
temp = simplify_unary_operation (NEG, mode, XEXP (op, 1), mode);
if (temp)
@@ -1270,7 +1287,6 @@ simplify_const_unary_operation (enum rtx
rtx op, enum machine_mode op_mode)
{
unsigned int width = GET_MODE_PRECISION (mode);
- unsigned int op_width = GET_MODE_PRECISION (op_mode);
if (code == VEC_DUPLICATE)
{
@@ -1283,7 +1299,7 @@ simplify_const_unary_operation (enum rtx
gcc_assert (GET_MODE_INNER (mode) == GET_MODE_INNER
(GET_MODE (op)));
}
- if (CONST_INT_P (op) || CONST_DOUBLE_P (op)
+ if (CONST_SCALAR_INT_P (op) || CONST_DOUBLE_AS_FLOAT_P (op)
|| GET_CODE (op) == CONST_VECTOR)
{
int elt_size = GET_MODE_SIZE (GET_MODE_INNER (mode));
@@ -1336,7 +1352,7 @@ simplify_const_unary_operation (enum rtx
check the wrong mode (input vs. output) for a conversion operation,
such as FIX. At some point, this should be simplified. */
- if (code == FLOAT && (CONST_DOUBLE_AS_INT_P (op) || CONST_INT_P (op)))
+ if (code == FLOAT && CONST_SCALAR_INT_P (op))
{
HOST_WIDE_INT hv, lv;
REAL_VALUE_TYPE d;
@@ -1344,14 +1360,24 @@ simplify_const_unary_operation (enum rtx
if (CONST_INT_P (op))
lv = INTVAL (op), hv = HWI_SIGN_EXTEND (lv);
else
+#if TARGET_SUPPORTS_WIDE_INT
+ {
+ /* The conversion code to floats really want exactly 2 HWIs.
+ This needs to be fixed. For now, if the constant is
+ really big, just return 0 which is safe. */
+ if (CONST_WIDE_INT_NUNITS (op) > 2)
+ return 0;
+ lv = CONST_WIDE_INT_ELT (op, 0);
+ hv = CONST_WIDE_INT_ELT (op, 1);
+ }
+#else
lv = CONST_DOUBLE_LOW (op), hv = CONST_DOUBLE_HIGH (op);
-
+#endif
REAL_VALUE_FROM_INT (d, lv, hv, mode);
d = real_value_truncate (mode, d);
return CONST_DOUBLE_FROM_REAL_VALUE (d, mode);
}
- else if (code == UNSIGNED_FLOAT
- && (CONST_DOUBLE_AS_INT_P (op) || CONST_INT_P (op)))
+ else if (code == UNSIGNED_FLOAT && CONST_SCALAR_INT_P (op))
{
HOST_WIDE_INT hv, lv;
REAL_VALUE_TYPE d;
@@ -1359,8 +1385,19 @@ simplify_const_unary_operation (enum rtx
if (CONST_INT_P (op))
lv = INTVAL (op), hv = HWI_SIGN_EXTEND (lv);
else
+#if TARGET_SUPPORTS_WIDE_INT
+ {
+ /* The conversion code to floats really want exactly 2 HWIs.
+ This needs to be fixed. For now, if the constant is
+ really big, just return 0 which is safe. */
+ if (CONST_WIDE_INT_NUNITS (op) > 2)
+ return 0;
+ lv = CONST_WIDE_INT_ELT (op, 0);
+ hv = CONST_WIDE_INT_ELT (op, 1);
+ }
+#else
lv = CONST_DOUBLE_LOW (op), hv = CONST_DOUBLE_HIGH (op);
-
+#endif
if (op_mode == VOIDmode
|| GET_MODE_PRECISION (op_mode) > HOST_BITS_PER_DOUBLE_INT)
/* We should never get a negative number. */
@@ -1373,302 +1410,82 @@ simplify_const_unary_operation (enum rtx
return CONST_DOUBLE_FROM_REAL_VALUE (d, mode);
}
- if (CONST_INT_P (op)
- && width <= HOST_BITS_PER_WIDE_INT && width > 0)
+ if (CONST_SCALAR_INT_P (op) && width > 0)
{
- HOST_WIDE_INT arg0 = INTVAL (op);
- HOST_WIDE_INT val;
+ wide_int result;
+ enum machine_mode imode = op_mode == VOIDmode ? mode : op_mode;
+ wide_int op0 = wide_int::from_rtx (op, imode);
+
+#if TARGET_SUPPORTS_WIDE_INT == 0
+ /* This assert keeps the simplification from producing a result
+ that cannot be represented in a CONST_DOUBLE but a lot of
+ upstream callers expect that this function never fails to
+ simplify something and so you if you added this to the test
+ above the code would die later anyway. If this assert
+ happens, you just need to make the port support wide int. */
+ gcc_assert (width <= HOST_BITS_PER_DOUBLE_INT);
+#endif
switch (code)
{
case NOT:
- val = ~ arg0;
+ result = ~op0;
break;
case NEG:
- val = - arg0;
+ result = op0.neg ();
break;
case ABS:
- val = (arg0 >= 0 ? arg0 : - arg0);
+ result = op0.abs ();
break;
case FFS:
- arg0 &= GET_MODE_MASK (mode);
- val = ffs_hwi (arg0);
+ result = op0.ffs ();
break;
case CLZ:
- arg0 &= GET_MODE_MASK (mode);
- if (arg0 == 0 && CLZ_DEFINED_VALUE_AT_ZERO (mode, val))
- ;
- else
- val = GET_MODE_PRECISION (mode) - floor_log2 (arg0) - 1;
+ result = op0.clz (mode);
break;
case CLRSB:
- arg0 &= GET_MODE_MASK (mode);
- if (arg0 == 0)
- val = GET_MODE_PRECISION (mode) - 1;
- else if (arg0 >= 0)
- val = GET_MODE_PRECISION (mode) - floor_log2 (arg0) - 2;
- else if (arg0 < 0)
- val = GET_MODE_PRECISION (mode) - floor_log2 (~arg0) - 2;
+ result = op0.clrsb (mode);
break;
case CTZ:
- arg0 &= GET_MODE_MASK (mode);
- if (arg0 == 0)
- {
- /* Even if the value at zero is undefined, we have to come
- up with some replacement. Seems good enough. */
- if (! CTZ_DEFINED_VALUE_AT_ZERO (mode, val))
- val = GET_MODE_PRECISION (mode);
- }
- else
- val = ctz_hwi (arg0);
+ result = op0.ctz (mode);
break;
case POPCOUNT:
- arg0 &= GET_MODE_MASK (mode);
- val = 0;
- while (arg0)
- val++, arg0 &= arg0 - 1;
+ result = op0.popcount (mode);
break;
case PARITY:
- arg0 &= GET_MODE_MASK (mode);
- val = 0;
- while (arg0)
- val++, arg0 &= arg0 - 1;
- val &= 1;
+ result = op0.parity (mode);
break;
case BSWAP:
- {
- unsigned int s;
-
- val = 0;
- for (s = 0; s < width; s += 8)
- {
- unsigned int d = width - s - 8;
- unsigned HOST_WIDE_INT byte;
- byte = (arg0 >> s) & 0xff;
- val |= byte << d;
- }
- }
+ result = op0.bswap ();
break;
case TRUNCATE:
- val = arg0;
+ result = op0.truncate (mode);
break;
case ZERO_EXTEND:
- /* When zero-extending a CONST_INT, we need to know its
- original mode. */
- gcc_assert (op_mode != VOIDmode);
- if (op_width == HOST_BITS_PER_WIDE_INT)
- {
- /* If we were really extending the mode,
- we would have to distinguish between zero-extension
- and sign-extension. */
- gcc_assert (width == op_width);
- val = arg0;
- }
- else if (GET_MODE_BITSIZE (op_mode) < HOST_BITS_PER_WIDE_INT)
- val = arg0 & GET_MODE_MASK (op_mode);
- else
- return 0;
+ result = op0.zext (mode);
break;
case SIGN_EXTEND:
- if (op_mode == VOIDmode)
- op_mode = mode;
- op_width = GET_MODE_PRECISION (op_mode);
- if (op_width == HOST_BITS_PER_WIDE_INT)
- {
- /* If we were really extending the mode,
- we would have to distinguish between zero-extension
- and sign-extension. */
- gcc_assert (width == op_width);
- val = arg0;
- }
- else if (op_width < HOST_BITS_PER_WIDE_INT)
- {
- val = arg0 & GET_MODE_MASK (op_mode);
- if (val_signbit_known_set_p (op_mode, val))
- val |= ~GET_MODE_MASK (op_mode);
- }
- else
- return 0;
+ result = op0.sext (mode);
break;
case SQRT:
- case FLOAT_EXTEND:
- case FLOAT_TRUNCATE:
- case SS_TRUNCATE:
- case US_TRUNCATE:
- case SS_NEG:
- case US_NEG:
- case SS_ABS:
- return 0;
-
- default:
- gcc_unreachable ();
- }
-
- return gen_int_mode (val, mode);
- }
-
- /* We can do some operations on integer CONST_DOUBLEs. Also allow
- for a DImode operation on a CONST_INT. */
- else if (width <= HOST_BITS_PER_DOUBLE_INT
- && (CONST_DOUBLE_AS_INT_P (op) || CONST_INT_P (op)))
- {
- double_int first, value;
-
- if (CONST_DOUBLE_AS_INT_P (op))
- first = double_int::from_pair (CONST_DOUBLE_HIGH (op),
- CONST_DOUBLE_LOW (op));
- else
- first = double_int::from_shwi (INTVAL (op));
-
- switch (code)
- {
- case NOT:
- value = ~first;
- break;
-
- case NEG:
- value = -first;
- break;
-
- case ABS:
- if (first.is_negative ())
- value = -first;
- else
- value = first;
- break;
-
- case FFS:
- value.high = 0;
- if (first.low != 0)
- value.low = ffs_hwi (first.low);
- else if (first.high != 0)
- value.low = HOST_BITS_PER_WIDE_INT + ffs_hwi (first.high);
- else
- value.low = 0;
- break;
-
- case CLZ:
- value.high = 0;
- if (first.high != 0)
- value.low = GET_MODE_PRECISION (mode) - floor_log2 (first.high) - 1
- - HOST_BITS_PER_WIDE_INT;
- else if (first.low != 0)
- value.low = GET_MODE_PRECISION (mode) - floor_log2 (first.low) - 1;
- else if (! CLZ_DEFINED_VALUE_AT_ZERO (mode, value.low))
- value.low = GET_MODE_PRECISION (mode);
- break;
-
- case CTZ:
- value.high = 0;
- if (first.low != 0)
- value.low = ctz_hwi (first.low);
- else if (first.high != 0)
- value.low = HOST_BITS_PER_WIDE_INT + ctz_hwi (first.high);
- else if (! CTZ_DEFINED_VALUE_AT_ZERO (mode, value.low))
- value.low = GET_MODE_PRECISION (mode);
- break;
-
- case POPCOUNT:
- value = double_int_zero;
- while (first.low)
- {
- value.low++;
- first.low &= first.low - 1;
- }
- while (first.high)
- {
- value.low++;
- first.high &= first.high - 1;
- }
- break;
-
- case PARITY:
- value = double_int_zero;
- while (first.low)
- {
- value.low++;
- first.low &= first.low - 1;
- }
- while (first.high)
- {
- value.low++;
- first.high &= first.high - 1;
- }
- value.low &= 1;
- break;
-
- case BSWAP:
- {
- unsigned int s;
-
- value = double_int_zero;
- for (s = 0; s < width; s += 8)
- {
- unsigned int d = width - s - 8;
- unsigned HOST_WIDE_INT byte;
-
- if (s < HOST_BITS_PER_WIDE_INT)
- byte = (first.low >> s) & 0xff;
- else
- byte = (first.high >> (s - HOST_BITS_PER_WIDE_INT)) & 0xff;
-
- if (d < HOST_BITS_PER_WIDE_INT)
- value.low |= byte << d;
- else
- value.high |= byte << (d - HOST_BITS_PER_WIDE_INT);
- }
- }
- break;
-
- case TRUNCATE:
- /* This is just a change-of-mode, so do nothing. */
- value = first;
- break;
-
- case ZERO_EXTEND:
- gcc_assert (op_mode != VOIDmode);
-
- if (op_width > HOST_BITS_PER_WIDE_INT)
- return 0;
-
- value = double_int::from_uhwi (first.low & GET_MODE_MASK (op_mode));
- break;
-
- case SIGN_EXTEND:
- if (op_mode == VOIDmode
- || op_width > HOST_BITS_PER_WIDE_INT)
- return 0;
- else
- {
- value.low = first.low & GET_MODE_MASK (op_mode);
- if (val_signbit_known_set_p (op_mode, value.low))
- value.low |= ~GET_MODE_MASK (op_mode);
-
- value.high = HWI_SIGN_EXTEND (value.low);
- }
- break;
-
- case SQRT:
- return 0;
-
default:
return 0;
}
- return immed_double_int_const (value, mode);
+ return immed_wide_int_const (result);
}
else if (CONST_DOUBLE_AS_FLOAT_P (op)
@@ -1720,7 +1537,6 @@ simplify_const_unary_operation (enum rtx
}
return CONST_DOUBLE_FROM_REAL_VALUE (d, mode);
}
-
else if (CONST_DOUBLE_AS_FLOAT_P (op)
&& SCALAR_FLOAT_MODE_P (GET_MODE (op))
&& GET_MODE_CLASS (mode) == MODE_INT
@@ -1733,9 +1549,13 @@ simplify_const_unary_operation (enum rtx
/* This was formerly used only for non-IEEE float.
eggert@twinsun.com says it is safe for IEEE also. */
- HOST_WIDE_INT xh, xl, th, tl;
+ HOST_WIDE_INT th, tl;
REAL_VALUE_TYPE x, t;
+ wide_int wc;
REAL_VALUE_FROM_CONST_DOUBLE (x, op);
+ wc.set_mode (mode);
+ wc.set_len (2);
+
switch (code)
{
case FIX:
@@ -1757,8 +1577,8 @@ simplify_const_unary_operation (enum rtx
real_from_integer (&t, VOIDmode, tl, th, 0);
if (REAL_VALUES_LESS (t, x))
{
- xh = th;
- xl = tl;
+ wc.elt_ref (1) = th;
+ wc.elt_ref (0) = tl;
break;
}
@@ -1777,11 +1597,11 @@ simplify_const_unary_operation (enum rtx
real_from_integer (&t, VOIDmode, tl, th, 0);
if (REAL_VALUES_LESS (x, t))
{
- xh = th;
- xl = tl;
+ wc.elt_ref (1) = th;
+ wc.elt_ref (0) = tl;
break;
}
- REAL_VALUE_TO_INT (&xl, &xh, x);
+ REAL_VALUE_TO_INT (&wc.elt_ref (0), &wc.elt_ref (1), x);
break;
case UNSIGNED_FIX:
@@ -1808,18 +1628,19 @@ simplify_const_unary_operation (enum rtx
real_from_integer (&t, VOIDmode, tl, th, 1);
if (REAL_VALUES_LESS (t, x))
{
- xh = th;
- xl = tl;
+ wc.elt_ref (1) = th;
+ wc.elt_ref (0) = tl;
break;
}
- REAL_VALUE_TO_INT (&xl, &xh, x);
+ REAL_VALUE_TO_INT (&wc.elt_ref (0), &wc.elt_ref (1), x);
break;
default:
gcc_unreachable ();
}
- return immed_double_const (xl, xh, mode);
+ wc.canonize ();
+ return immed_wide_int_const (wc);
}
return NULL_RTX;
@@ -1979,49 +1800,50 @@ simplify_binary_operation_1 (enum rtx_co
if (SCALAR_INT_MODE_P (mode))
{
- double_int coeff0, coeff1;
+ wide_int coeff0;
+ wide_int coeff1;
rtx lhs = op0, rhs = op1;
- coeff0 = double_int_one;
- coeff1 = double_int_one;
+ coeff0 = wide_int_one (mode);
+ coeff1 = wide_int_one (mode);
if (GET_CODE (lhs) == NEG)
{
- coeff0 = double_int_minus_one;
+ coeff0 = wide_int_minus_one (mode);
lhs = XEXP (lhs, 0);
}
else if (GET_CODE (lhs) == MULT
&& CONST_INT_P (XEXP (lhs, 1)))
{
- coeff0 = double_int::from_shwi (INTVAL (XEXP (lhs, 1)));
+ coeff0 = wide_int::from_rtx (XEXP (lhs, 1), mode);
lhs = XEXP (lhs, 0);
}
else if (GET_CODE (lhs) == ASHIFT
&& CONST_INT_P (XEXP (lhs, 1))
&& INTVAL (XEXP (lhs, 1)) >= 0
- && INTVAL (XEXP (lhs, 1)) < HOST_BITS_PER_WIDE_INT)
+ && INTVAL (XEXP (lhs, 1)) < GET_MODE_PRECISION (mode))
{
- coeff0 = double_int_zero.set_bit (INTVAL (XEXP (lhs, 1)));
+ coeff0 = wide_int::set_bit_in_zero (INTVAL (XEXP (lhs, 1)), mode);
lhs = XEXP (lhs, 0);
}
if (GET_CODE (rhs) == NEG)
{
- coeff1 = double_int_minus_one;
+ coeff1 = wide_int_minus_one (mode);
rhs = XEXP (rhs, 0);
}
else if (GET_CODE (rhs) == MULT
&& CONST_INT_P (XEXP (rhs, 1)))
{
- coeff1 = double_int::from_shwi (INTVAL (XEXP (rhs, 1)));
+ coeff1 = wide_int::from_rtx (XEXP (rhs, 1), mode);
rhs = XEXP (rhs, 0);
}
else if (GET_CODE (rhs) == ASHIFT
&& CONST_INT_P (XEXP (rhs, 1))
&& INTVAL (XEXP (rhs, 1)) >= 0
- && INTVAL (XEXP (rhs, 1)) < HOST_BITS_PER_WIDE_INT)
+ && INTVAL (XEXP (rhs, 1)) < GET_MODE_PRECISION (mode))
{
- coeff1 = double_int_zero.set_bit (INTVAL (XEXP (rhs, 1)));
+ coeff1 = wide_int::set_bit_in_zero (INTVAL (XEXP (rhs, 1)), mode);
rhs = XEXP (rhs, 0);
}
@@ -2029,11 +1851,9 @@ simplify_binary_operation_1 (enum rtx_co
{
rtx orig = gen_rtx_PLUS (mode, op0, op1);
rtx coeff;
- double_int val;
bool speed = optimize_function_for_speed_p (cfun);
- val = coeff0 + coeff1;
- coeff = immed_double_int_const (val, mode);
+ coeff = immed_wide_int_const (coeff0 + coeff1);
tem = simplify_gen_binary (MULT, mode, lhs, coeff);
return set_src_cost (tem, speed) <= set_src_cost (orig, speed)
@@ -2042,10 +1862,9 @@ simplify_binary_operation_1 (enum rtx_co
}
/* (plus (xor X C1) C2) is (xor X (C1^C2)) if C2 is signbit. */
- if ((CONST_INT_P (op1) || CONST_DOUBLE_AS_INT_P (op1))
+ if (CONST_SCALAR_INT_P (op1)
&& GET_CODE (op0) == XOR
- && (CONST_INT_P (XEXP (op0, 1))
- || CONST_DOUBLE_AS_INT_P (XEXP (op0, 1)))
+ && CONST_SCALAR_INT_P (XEXP (op0, 1))
&& mode_signbit_p (mode, op1))
return simplify_gen_binary (XOR, mode, XEXP (op0, 0),
simplify_gen_binary (XOR, mode, op1,
@@ -2156,50 +1975,52 @@ simplify_binary_operation_1 (enum rtx_co
if (SCALAR_INT_MODE_P (mode))
{
- double_int coeff0, negcoeff1;
+ wide_int coeff0;
+ wide_int negcoeff1;
rtx lhs = op0, rhs = op1;
- coeff0 = double_int_one;
- negcoeff1 = double_int_minus_one;
+ coeff0 = wide_int_one (mode);
+ negcoeff1 = wide_int_minus_one (mode);
if (GET_CODE (lhs) == NEG)
{
- coeff0 = double_int_minus_one;
+ coeff0 = wide_int_minus_one (mode);
lhs = XEXP (lhs, 0);
}
else if (GET_CODE (lhs) == MULT
- && CONST_INT_P (XEXP (lhs, 1)))
+ && CONST_SCALAR_INT_P (XEXP (lhs, 1)))
{
- coeff0 = double_int::from_shwi (INTVAL (XEXP (lhs, 1)));
+ coeff0 = wide_int::from_rtx (XEXP (lhs, 1), mode);
lhs = XEXP (lhs, 0);
}
else if (GET_CODE (lhs) == ASHIFT
&& CONST_INT_P (XEXP (lhs, 1))
&& INTVAL (XEXP (lhs, 1)) >= 0
- && INTVAL (XEXP (lhs, 1)) < HOST_BITS_PER_WIDE_INT)
+ && INTVAL (XEXP (lhs, 1)) < GET_MODE_PRECISION (mode))
{
- coeff0 = double_int_zero.set_bit (INTVAL (XEXP (lhs, 1)));
+ coeff0 = wide_int::set_bit_in_zero (INTVAL (XEXP (lhs, 1)), mode);
lhs = XEXP (lhs, 0);
}
if (GET_CODE (rhs) == NEG)
{
- negcoeff1 = double_int_one;
+ negcoeff1 = wide_int_one (mode);
rhs = XEXP (rhs, 0);
}
else if (GET_CODE (rhs) == MULT
&& CONST_INT_P (XEXP (rhs, 1)))
{
- negcoeff1 = double_int::from_shwi (-INTVAL (XEXP (rhs, 1)));
+ negcoeff1 = wide_int::from_rtx (XEXP (rhs, 1), mode).neg ();
rhs = XEXP (rhs, 0);
}
else if (GET_CODE (rhs) == ASHIFT
&& CONST_INT_P (XEXP (rhs, 1))
&& INTVAL (XEXP (rhs, 1)) >= 0
- && INTVAL (XEXP (rhs, 1)) < HOST_BITS_PER_WIDE_INT)
+ && INTVAL (XEXP (rhs, 1)) < GET_MODE_PRECISION (mode))
{
- negcoeff1 = double_int_zero.set_bit (INTVAL (XEXP (rhs, 1)));
- negcoeff1 = -negcoeff1;
+ negcoeff1 = wide_int::set_bit_in_zero (INTVAL (XEXP (rhs, 1)),
+ mode);
+ negcoeff1 = negcoeff1.neg ();
rhs = XEXP (rhs, 0);
}
@@ -2207,11 +2028,9 @@ simplify_binary_operation_1 (enum rtx_co
{
rtx orig = gen_rtx_MINUS (mode, op0, op1);
rtx coeff;
- double_int val;
bool speed = optimize_function_for_speed_p (cfun);
- val = coeff0 + negcoeff1;
- coeff = immed_double_int_const (val, mode);
+ coeff = immed_wide_int_const (coeff0 + negcoeff1);
tem = simplify_gen_binary (MULT, mode, lhs, coeff);
return set_src_cost (tem, speed) <= set_src_cost (orig, speed)
@@ -2225,7 +2044,7 @@ simplify_binary_operation_1 (enum rtx_co
/* (-x - c) may be simplified as (-c - x). */
if (GET_CODE (op0) == NEG
- && (CONST_INT_P (op1) || CONST_DOUBLE_P (op1)))
+ && (CONST_SCALAR_INT_P (op1) || CONST_DOUBLE_AS_FLOAT_P (op1)))
{
tem = simplify_unary_operation (NEG, mode, op1, mode);
if (tem)
@@ -2363,8 +2182,21 @@ simplify_binary_operation_1 (enum rtx_co
&& trueop1 == CONST1_RTX (mode))
return op0;
- /* Convert multiply by constant power of two into shift unless
- we are still generating RTL. This test is a kludge. */
+ /* Convert multiply by constant power of two into shift. */
+#if TARGET_SUPPORTS_WIDE_INT
+ if (CONST_SCALAR_INT_P (trueop1))
+ {
+ val = wide_int::from_rtx (trueop1, mode).exact_log2 ();
+ if (val > 0)
+ {
+ unsigned int bitsize = GET_MODE_BITSIZE (mode);
+ if (SHIFT_COUNT_TRUNCATED && val >= bitsize)
+ val %= bitsize;
+ if (val < bitsize)
+ return simplify_gen_binary (ASHIFT, mode, op0, GEN_INT (val));
+ }
+ }
+#else
if (CONST_INT_P (trueop1)
&& (val = exact_log2 (UINTVAL (trueop1))) >= 0
/* If the mode is larger than the host word size, and the
@@ -2383,7 +2215,7 @@ simplify_binary_operation_1 (enum rtx_co
|| GET_MODE_BITSIZE (mode) <= HOST_BITS_PER_DOUBLE_INT))
return simplify_gen_binary (ASHIFT, mode, op0,
GEN_INT (val + HOST_BITS_PER_WIDE_INT));
-
+#endif
/* x*2 is x+x and x*(-1) is -x */
if (CONST_DOUBLE_AS_FLOAT_P (trueop1)
&& SCALAR_FLOAT_MODE_P (GET_MODE (trueop1))
@@ -2583,14 +2415,13 @@ simplify_binary_operation_1 (enum rtx_co
return CONST0_RTX (mode);
/* Canonicalize XOR of the most significant bit to PLUS. */
- if ((CONST_INT_P (op1) || CONST_DOUBLE_AS_INT_P (op1))
+ if (CONST_SCALAR_INT_P (op1)
&& mode_signbit_p (mode, op1))
return simplify_gen_binary (PLUS, mode, op0, op1);
/* (xor (plus X C1) C2) is (xor X (C1^C2)) if C1 is signbit. */
- if ((CONST_INT_P (op1) || CONST_DOUBLE_AS_INT_P (op1))
+ if (CONST_SCALAR_INT_P (op1)
&& GET_CODE (op0) == PLUS
- && (CONST_INT_P (XEXP (op0, 1))
- || CONST_DOUBLE_AS_INT_P (XEXP (op0, 1)))
+ && CONST_SCALAR_INT_P (XEXP (op0, 1))
&& mode_signbit_p (mode, XEXP (op0, 1)))
return simplify_gen_binary (XOR, mode, XEXP (op0, 0),
simplify_gen_binary (XOR, mode, op1,
@@ -3355,9 +3186,11 @@ simplify_binary_operation_1 (enum rtx_co
gcc_assert (GET_MODE_INNER (mode) == op1_mode);
if ((GET_CODE (trueop0) == CONST_VECTOR
- || CONST_INT_P (trueop0) || CONST_DOUBLE_P (trueop0))
+ || CONST_SCALAR_INT_P (trueop0)
+ || CONST_DOUBLE_AS_FLOAT_P (trueop0))
&& (GET_CODE (trueop1) == CONST_VECTOR
- || CONST_INT_P (trueop1) || CONST_DOUBLE_P (trueop1)))
+ || CONST_SCALAR_INT_P (trueop1)
+ || CONST_DOUBLE_AS_FLOAT_P (trueop1)))
{
int elt_size = GET_MODE_SIZE (GET_MODE_INNER (mode));
unsigned n_elts = (GET_MODE_SIZE (mode) / elt_size);
@@ -3420,9 +3253,9 @@ rtx
simplify_const_binary_operation (enum rtx_code code, enum machine_mode mode,
rtx op0, rtx op1)
{
- HOST_WIDE_INT arg0, arg1, arg0s, arg1s;
- HOST_WIDE_INT val;
+#if TARGET_SUPPORTS_WIDE_INT == 0
unsigned int width = GET_MODE_PRECISION (mode);
+#endif
if (VECTOR_MODE_P (mode)
&& code != VEC_CONCAT
@@ -3454,11 +3287,11 @@ simplify_const_binary_operation (enum rt
if (VECTOR_MODE_P (mode)
&& code == VEC_CONCAT
- && (CONST_INT_P (op0)
+ && (CONST_SCALAR_INT_P (op0)
|| GET_CODE (op0) == CONST_FIXED
- || CONST_DOUBLE_P (op0))
- && (CONST_INT_P (op1)
- || CONST_DOUBLE_P (op1)
+ || CONST_DOUBLE_AS_FLOAT_P (op0))
+ && (CONST_SCALAR_INT_P (op1)
+ || CONST_DOUBLE_AS_FLOAT_P (op1)
|| GET_CODE (op1) == CONST_FIXED))
{
unsigned n_elts = GET_MODE_NUNITS (mode);
@@ -3615,299 +3448,128 @@ simplify_const_binary_operation (enum rt
/* We can fold some multi-word operations. */
if (GET_MODE_CLASS (mode) == MODE_INT
- && width == HOST_BITS_PER_DOUBLE_INT
- && (CONST_DOUBLE_AS_INT_P (op0) || CONST_INT_P (op0))
- && (CONST_DOUBLE_AS_INT_P (op1) || CONST_INT_P (op1)))
+ && CONST_SCALAR_INT_P (op0)
+ && CONST_SCALAR_INT_P (op1))
{
- double_int o0, o1, res, tmp;
- bool overflow;
-
- o0 = rtx_to_double_int (op0);
- o1 = rtx_to_double_int (op1);
-
+ wide_int result;
+ wide_int wop0 = wide_int::from_rtx (op0, mode);
+ wide_int wop1 = wide_int::from_rtx (op1, mode);
+ bool overflow = false;
+
+#if TARGET_SUPPORTS_WIDE_INT == 0
+ /* This assert keeps the simplification from producing a result
+ that cannot be represented in a CONST_DOUBLE but a lot of
+ upstream callers expect that this function never fails to
+ simplify something and so you if you added this to the test
+ above the code would die later anyway. If this assert
+ happens, you just need to make the port support wide int. */
+ gcc_assert (width <= HOST_BITS_PER_DOUBLE_INT);
+#endif
switch (code)
{
case MINUS:
- /* A - B == A + (-B). */
- o1 = -o1;
-
- /* Fall through.... */
+ result = wop0 - wop1;
+ break;
case PLUS:
- res = o0 + o1;
+ result = wop0 + wop1;
break;
case MULT:
- res = o0 * o1;
+ result = wop0 * wop1;
break;
case DIV:
- res = o0.divmod_with_overflow (o1, false, TRUNC_DIV_EXPR,
- &tmp, &overflow);
+ result = wop0.div_trunc (wop1, wide_int::SIGNED, &overflow);
if (overflow)
- return 0;
+ return NULL_RTX;
break;
-
+
case MOD:
- tmp = o0.divmod_with_overflow (o1, false, TRUNC_DIV_EXPR,
- &res, &overflow);
+ result = wop0.mod_trunc (wop1, wide_int::SIGNED, &overflow);
if (overflow)
- return 0;
+ return NULL_RTX;
break;
case UDIV:
- res = o0.divmod_with_overflow (o1, true, TRUNC_DIV_EXPR,
- &tmp, &overflow);
+ result = wop0.div_trunc (wop1, wide_int::UNSIGNED, &overflow);
if (overflow)
- return 0;
+ return NULL_RTX;
break;
case UMOD:
- tmp = o0.divmod_with_overflow (o1, true, TRUNC_DIV_EXPR,
- &res, &overflow);
+ result = wop0.mod_trunc (wop1, wide_int::UNSIGNED, &overflow);
if (overflow)
- return 0;
+ return NULL_RTX;
break;
case AND:
- res = o0 & o1;
+ result = wop0 & wop1;
break;
case IOR:
- res = o0 | o1;
+ result = wop0 | wop1;
break;
case XOR:
- res = o0 ^ o1;
+ result = wop0 ^ wop1;
break;
case SMIN:
- res = o0.smin (o1);
+ result = wide_int_smin (wop0, wop1);
break;
case SMAX:
- res = o0.smax (o1);
+ result = wide_int_smax (wop0, wop1);
break;
case UMIN:
- res = o0.umin (o1);
+ result = wide_int_umin (wop0, wop1);
break;
case UMAX:
- res = o0.umax (o1);
- break;
-
- case LSHIFTRT: case ASHIFTRT:
- case ASHIFT:
- case ROTATE: case ROTATERT:
- {
- unsigned HOST_WIDE_INT cnt;
-
- if (SHIFT_COUNT_TRUNCATED)
- {
- o1.high = 0;
- o1.low &= GET_MODE_PRECISION (mode) - 1;
- }
-
- if (!o1.fits_uhwi ()
- || o1.to_uhwi () >= GET_MODE_PRECISION (mode))
- return 0;
-
- cnt = o1.to_uhwi ();
- unsigned short prec = GET_MODE_PRECISION (mode);
-
- if (code == LSHIFTRT || code == ASHIFTRT)
- res = o0.rshift (cnt, prec, code == ASHIFTRT);
- else if (code == ASHIFT)
- res = o0.alshift (cnt, prec);
- else if (code == ROTATE)
- res = o0.lrotate (cnt, prec);
- else /* code == ROTATERT */
- res = o0.rrotate (cnt, prec);
- }
- break;
-
- default:
- return 0;
- }
-
- return immed_double_int_const (res, mode);
- }
-
- if (CONST_INT_P (op0) && CONST_INT_P (op1)
- && width <= HOST_BITS_PER_WIDE_INT && width != 0)
- {
- /* Get the integer argument values in two forms:
- zero-extended in ARG0, ARG1 and sign-extended in ARG0S, ARG1S. */
-
- arg0 = INTVAL (op0);
- arg1 = INTVAL (op1);
-
- if (width < HOST_BITS_PER_WIDE_INT)
- {
- arg0 &= GET_MODE_MASK (mode);
- arg1 &= GET_MODE_MASK (mode);
-
- arg0s = arg0;
- if (val_signbit_known_set_p (mode, arg0s))
- arg0s |= ~GET_MODE_MASK (mode);
-
- arg1s = arg1;
- if (val_signbit_known_set_p (mode, arg1s))
- arg1s |= ~GET_MODE_MASK (mode);
- }
- else
- {
- arg0s = arg0;
- arg1s = arg1;
- }
-
- /* Compute the value of the arithmetic. */
-
- switch (code)
- {
- case PLUS:
- val = arg0s + arg1s;
- break;
-
- case MINUS:
- val = arg0s - arg1s;
- break;
-
- case MULT:
- val = arg0s * arg1s;
- break;
-
- case DIV:
- if (arg1s == 0
- || ((unsigned HOST_WIDE_INT) arg0s
- == (unsigned HOST_WIDE_INT) 1 << (HOST_BITS_PER_WIDE_INT - 1)
- && arg1s == -1))
- return 0;
- val = arg0s / arg1s;
- break;
-
- case MOD:
- if (arg1s == 0
- || ((unsigned HOST_WIDE_INT) arg0s
- == (unsigned HOST_WIDE_INT) 1 << (HOST_BITS_PER_WIDE_INT - 1)
- && arg1s == -1))
- return 0;
- val = arg0s % arg1s;
+ result = wide_int_umax (wop0, wop1);
break;
- case UDIV:
- if (arg1 == 0
- || ((unsigned HOST_WIDE_INT) arg0s
- == (unsigned HOST_WIDE_INT) 1 << (HOST_BITS_PER_WIDE_INT - 1)
- && arg1s == -1))
- return 0;
- val = (unsigned HOST_WIDE_INT) arg0 / arg1;
- break;
-
- case UMOD:
- if (arg1 == 0
- || ((unsigned HOST_WIDE_INT) arg0s
- == (unsigned HOST_WIDE_INT) 1 << (HOST_BITS_PER_WIDE_INT - 1)
- && arg1s == -1))
- return 0;
- val = (unsigned HOST_WIDE_INT) arg0 % arg1;
- break;
-
- case AND:
- val = arg0 & arg1;
- break;
+ case LSHIFTRT:
+ if (wop1.neg_p ())
+ return NULL_RTX;
- case IOR:
- val = arg0 | arg1;
+ result = wop0.rshiftu (wop1, wide_int::TRUNC);
break;
-
- case XOR:
- val = arg0 ^ arg1;
- break;
-
- case LSHIFTRT:
- case ASHIFT:
+
case ASHIFTRT:
- /* Truncate the shift if SHIFT_COUNT_TRUNCATED, otherwise make sure
- the value is in range. We can't return any old value for
- out-of-range arguments because either the middle-end (via
- shift_truncation_mask) or the back-end might be relying on
- target-specific knowledge. Nor can we rely on
- shift_truncation_mask, since the shift might not be part of an
- ashlM3, lshrM3 or ashrM3 instruction. */
- if (SHIFT_COUNT_TRUNCATED)
- arg1 = (unsigned HOST_WIDE_INT) arg1 % width;
- else if (arg1 < 0 || arg1 >= GET_MODE_BITSIZE (mode))
- return 0;
+ if (wop1.neg_p ())
+ return NULL_RTX;
- val = (code == ASHIFT
- ? ((unsigned HOST_WIDE_INT) arg0) << arg1
- : ((unsigned HOST_WIDE_INT) arg0) >> arg1);
-
- /* Sign-extend the result for arithmetic right shifts. */
- if (code == ASHIFTRT && arg0s < 0 && arg1 > 0)
- val |= ((unsigned HOST_WIDE_INT) (-1)) << (width - arg1);
+ result = wop0.rshifts (wop1, wide_int::TRUNC);
break;
+
+ case ASHIFT:
+ if (wop1.neg_p ())
+ return NULL_RTX;
- case ROTATERT:
- if (arg1 < 0)
- return 0;
-
- arg1 %= width;
- val = ((((unsigned HOST_WIDE_INT) arg0) << (width - arg1))
- | (((unsigned HOST_WIDE_INT) arg0) >> arg1));
+ result = wop0.lshift (wop1, wide_int::TRUNC);
break;
-
+
case ROTATE:
- if (arg1 < 0)
- return 0;
-
- arg1 %= width;
- val = ((((unsigned HOST_WIDE_INT) arg0) << arg1)
- | (((unsigned HOST_WIDE_INT) arg0) >> (width - arg1)));
- break;
-
- case COMPARE:
- /* Do nothing here. */
- return 0;
-
- case SMIN:
- val = arg0s <= arg1s ? arg0s : arg1s;
- break;
-
- case UMIN:
- val = ((unsigned HOST_WIDE_INT) arg0
- <= (unsigned HOST_WIDE_INT) arg1 ? arg0 : arg1);
- break;
+ if (wop1.neg_p ())
+ return NULL_RTX;
- case SMAX:
- val = arg0s > arg1s ? arg0s : arg1s;
+ result = wop0.lrotate (wop1);
break;
+
+ case ROTATERT:
+ if (wop1.neg_p ())
+ return NULL_RTX;
- case UMAX:
- val = ((unsigned HOST_WIDE_INT) arg0
- > (unsigned HOST_WIDE_INT) arg1 ? arg0 : arg1);
+ result = wop0.rrotate (wop1);
break;
- case SS_PLUS:
- case US_PLUS:
- case SS_MINUS:
- case US_MINUS:
- case SS_MULT:
- case US_MULT:
- case SS_DIV:
- case US_DIV:
- case SS_ASHIFT:
- case US_ASHIFT:
- /* ??? There are simplifications that can be done. */
- return 0;
-
default:
- gcc_unreachable ();
+ return NULL_RTX;
}
-
- return gen_int_mode (val, mode);
+ return immed_wide_int_const (result);
}
return NULL_RTX;
@@ -4482,9 +4144,8 @@ simplify_relational_operation_1 (enum rt
/* (eq/ne (xor x C1) C2) simplifies to (eq/ne x (C1^C2)). */
if ((code == EQ || code == NE)
&& op0code == XOR
- && (CONST_INT_P (op1) || CONST_DOUBLE_AS_INT_P (op1))
- && (CONST_INT_P (XEXP (op0, 1))
- || CONST_DOUBLE_AS_INT_P (XEXP (op0, 1))))
+ && CONST_SCALAR_INT_P (op1)
+ && CONST_SCALAR_INT_P (XEXP (op0, 1)))
return simplify_gen_relational (code, mode, cmp_mode, XEXP (op0, 0),
simplify_gen_binary (XOR, cmp_mode,
XEXP (op0, 1), op1));
@@ -4574,10 +4235,11 @@ comparison_result (enum rtx_code code, i
}
}
-/* Check if the given comparison (done in the given MODE) is actually a
- tautology or a contradiction.
- If no simplification is possible, this function returns zero.
- Otherwise, it returns either const_true_rtx or const0_rtx. */
+/* Check if the given comparison (done in the given MODE) is actually
+ a tautology or a contradiction. If the mode is VOID_mode, the
+ comparison is done in "infinite precision". If no simplification
+ is possible, this function returns zero. Otherwise, it returns
+ either const_true_rtx or const0_rtx. */
rtx
simplify_const_relational_operation (enum rtx_code code,
@@ -4701,59 +4363,25 @@ simplify_const_relational_operation (enu
/* Otherwise, see if the operands are both integers. */
if ((GET_MODE_CLASS (mode) == MODE_INT || mode == VOIDmode)
- && (CONST_DOUBLE_AS_INT_P (trueop0) || CONST_INT_P (trueop0))
- && (CONST_DOUBLE_AS_INT_P (trueop1) || CONST_INT_P (trueop1)))
+ && CONST_SCALAR_INT_P (trueop0) && CONST_SCALAR_INT_P (trueop1))
{
- int width = GET_MODE_PRECISION (mode);
- HOST_WIDE_INT l0s, h0s, l1s, h1s;
- unsigned HOST_WIDE_INT l0u, h0u, l1u, h1u;
-
- /* Get the two words comprising each integer constant. */
- if (CONST_DOUBLE_AS_INT_P (trueop0))
- {
- l0u = l0s = CONST_DOUBLE_LOW (trueop0);
- h0u = h0s = CONST_DOUBLE_HIGH (trueop0);
- }
- else
- {
- l0u = l0s = INTVAL (trueop0);
- h0u = h0s = HWI_SIGN_EXTEND (l0s);
- }
-
- if (CONST_DOUBLE_AS_INT_P (trueop1))
- {
- l1u = l1s = CONST_DOUBLE_LOW (trueop1);
- h1u = h1s = CONST_DOUBLE_HIGH (trueop1);
- }
- else
- {
- l1u = l1s = INTVAL (trueop1);
- h1u = h1s = HWI_SIGN_EXTEND (l1s);
- }
-
- /* If WIDTH is nonzero and smaller than HOST_BITS_PER_WIDE_INT,
- we have to sign or zero-extend the values. */
- if (width != 0 && width < HOST_BITS_PER_WIDE_INT)
- {
- l0u &= GET_MODE_MASK (mode);
- l1u &= GET_MODE_MASK (mode);
-
- if (val_signbit_known_set_p (mode, l0s))
- l0s |= ~GET_MODE_MASK (mode);
-
- if (val_signbit_known_set_p (mode, l1s))
- l1s |= ~GET_MODE_MASK (mode);
- }
- if (width != 0 && width <= HOST_BITS_PER_WIDE_INT)
- h0u = h1u = 0, h0s = HWI_SIGN_EXTEND (l0s), h1s = HWI_SIGN_EXTEND (l1s);
-
- if (h0u == h1u && l0u == l1u)
+ enum machine_mode cmode = mode;
+ wide_int wo0;
+ wide_int wo1;
+
+ /* It would be nice if we really had a mode here. However, the
+ largest int representable on the target is as good as
+ infinite. */
+ if (mode == VOIDmode)
+ cmode = MAX_MODE_INT;
+ wo0 = wide_int::from_rtx (trueop0, cmode);
+ wo1 = wide_int::from_rtx (trueop1, cmode);
+ if (wo0 == wo1)
return comparison_result (code, CMP_EQ);
else
{
- int cr;
- cr = (h0s < h1s || (h0s == h1s && l0u < l1u)) ? CMP_LT : CMP_GT;
- cr |= (h0u < h1u || (h0u == h1u && l0u < l1u)) ? CMP_LTU : CMP_GTU;
+ int cr = wo0.lts_p (wo1) ? CMP_LT : CMP_GT;
+ cr |= wo0.ltu_p (wo1) ? CMP_LTU : CMP_GTU;
return comparison_result (code, cr);
}
}
@@ -5168,9 +4796,9 @@ simplify_ternary_operation (enum rtx_cod
return 0;
}
-/* Evaluate a SUBREG of a CONST_INT or CONST_DOUBLE or CONST_FIXED
- or CONST_VECTOR,
- returning another CONST_INT or CONST_DOUBLE or CONST_FIXED or CONST_VECTOR.
+/* Evaluate a SUBREG of a CONST_INT or CONST_WIDE_INT or CONST_DOUBLE
+ or CONST_FIXED or CONST_VECTOR, returning another CONST_INT or
+ CONST_WIDE_INT or CONST_DOUBLE or CONST_FIXED or CONST_VECTOR.
Works by unpacking OP into a collection of 8-bit values
represented as a little-endian array of 'unsigned char', selecting by BYTE,
@@ -5180,13 +4808,11 @@ static rtx
simplify_immed_subreg (enum machine_mode outermode, rtx op,
enum machine_mode innermode, unsigned int byte)
{
- /* We support up to 512-bit values (for V8DFmode). */
enum {
- max_bitsize = 512,
value_bit = 8,
value_mask = (1 << value_bit) - 1
};
- unsigned char value[max_bitsize / value_bit];
+ unsigned char value [MAX_BITSIZE_MODE_ANY_MODE/value_bit];
int value_start;
int i;
int elem;
@@ -5198,6 +4824,7 @@ simplify_immed_subreg (enum machine_mode
rtvec result_v = NULL;
enum mode_class outer_class;
enum machine_mode outer_submode;
+ int max_bitsize;
/* Some ports misuse CCmode. */
if (GET_MODE_CLASS (outermode) == MODE_CC && CONST_INT_P (op))
@@ -5207,6 +4834,9 @@ simplify_immed_subreg (enum machine_mode
if (COMPLEX_MODE_P (outermode))
return NULL_RTX;
+ /* We support any size mode. */
+ max_bitsize = MAX (GET_MODE_BITSIZE (outermode), GET_MODE_BITSIZE (innermode));
+
/* Unpack the value. */
if (GET_CODE (op) == CONST_VECTOR)
@@ -5256,8 +4886,20 @@ simplify_immed_subreg (enum machine_mode
*vp++ = INTVAL (el) < 0 ? -1 : 0;
break;
+ case CONST_WIDE_INT:
+ {
+ wide_int val = wide_int::from_rtx (el, innermode);
+ unsigned char extend = val.sign_mask ();
+
+ for (i = 0; i < elem_bitsize; i += value_bit)
+ *vp++ = val.extract_to_hwi (i, value_bit);
+ for (; i < elem_bitsize; i += value_bit)
+ *vp++ = extend;
+ }
+ break;
+
case CONST_DOUBLE:
- if (GET_MODE (el) == VOIDmode)
+ if (TARGET_SUPPORTS_WIDE_INT == 0 && GET_MODE (el) == VOIDmode)
{
unsigned char extend = 0;
/* If this triggers, someone should have generated a
@@ -5280,7 +4922,8 @@ simplify_immed_subreg (enum machine_mode
}
else
{
- long tmp[max_bitsize / 32];
+ /* This is big enough for anything on the platform. */
+ long tmp[MAX_BITSIZE_MODE_ANY_MODE / 32];
int bitsize = GET_MODE_BITSIZE (GET_MODE (el));
gcc_assert (SCALAR_FLOAT_MODE_P (GET_MODE (el)));
@@ -5400,24 +5043,27 @@ simplify_immed_subreg (enum machine_mode
case MODE_INT:
case MODE_PARTIAL_INT:
{
- unsigned HOST_WIDE_INT hi = 0, lo = 0;
-
- for (i = 0;
- i < HOST_BITS_PER_WIDE_INT && i < elem_bitsize;
- i += value_bit)
- lo |= (unsigned HOST_WIDE_INT)(*vp++ & value_mask) << i;
- for (; i < elem_bitsize; i += value_bit)
- hi |= (unsigned HOST_WIDE_INT)(*vp++ & value_mask)
- << (i - HOST_BITS_PER_WIDE_INT);
+ int u;
+ int base = 0;
+ int units
+ = (GET_MODE_BITSIZE (outer_submode) + HOST_BITS_PER_WIDE_INT - 1)
+ / HOST_BITS_PER_WIDE_INT;
+ wide_int r;
+ for (u = 0; u < units; u++)
+ {
+ unsigned HOST_WIDE_INT buf = 0;
+ for (i = 0;
+ i < HOST_BITS_PER_WIDE_INT && base + i < elem_bitsize;
+ i += value_bit)
+ buf |= (unsigned HOST_WIDE_INT)(*vp++ & value_mask) << i;
- /* immed_double_const doesn't call trunc_int_for_mode. I don't
- know why. */
- if (elem_bitsize <= HOST_BITS_PER_WIDE_INT)
- elems[elem] = gen_int_mode (lo, outer_submode);
- else if (elem_bitsize <= HOST_BITS_PER_DOUBLE_INT)
- elems[elem] = immed_double_const (lo, hi, outer_submode);
- else
- return NULL_RTX;
+ r.elt_ref (u) = buf;
+ base += HOST_BITS_PER_WIDE_INT;
+ }
+ r.set_len (units);
+ r.set_mode (outer_submode);
+ r.canonize ();
+ elems[elem] = immed_wide_int_const (r);
}
break;
@@ -5425,7 +5071,7 @@ simplify_immed_subreg (enum machine_mode
case MODE_DECIMAL_FLOAT:
{
REAL_VALUE_TYPE r;
- long tmp[max_bitsize / 32];
+ long tmp[MAX_BITSIZE_MODE_ANY_INT / 32];
/* real_from_target wants its input in words affected by
FLOAT_WORDS_BIG_ENDIAN. However, we ignore this,
@@ -5501,8 +5147,8 @@ simplify_subreg (enum machine_mode outer
if (outermode == innermode && !byte)
return op;
- if (CONST_INT_P (op)
- || CONST_DOUBLE_P (op)
+ if (CONST_SCALAR_INT_P (op)
+ || CONST_DOUBLE_AS_FLOAT_P (op)
|| GET_CODE (op) == CONST_FIXED
|| GET_CODE (op) == CONST_VECTOR)
return simplify_immed_subreg (outermode, op, innermode, byte);
Index: gcc/gengenrtl.c
===================================================================
--- gcc/gengenrtl.c (revision 191978)
+++ gcc/gengenrtl.c (working copy)
@@ -143,6 +143,7 @@ static int
excluded_rtx (int idx)
{
return ((strcmp (defs[idx].enumname, "CONST_DOUBLE") == 0)
+ || (strcmp (defs[idx].enumname, "CONST_WIDE_INT") == 0)
|| (strcmp (defs[idx].enumname, "CONST_FIXED") == 0));
}
Index: gcc/expmed.c
===================================================================
--- gcc/expmed.c (revision 191978)
+++ gcc/expmed.c (working copy)
@@ -60,7 +60,6 @@ static rtx extract_fixed_bit_field (enum
unsigned HOST_WIDE_INT,
unsigned HOST_WIDE_INT,
unsigned HOST_WIDE_INT, rtx, int, bool);
-static rtx mask_rtx (enum machine_mode, int, int, int);
static rtx lshift_value (enum machine_mode, rtx, int, int);
static rtx extract_split_bit_field (rtx, unsigned HOST_WIDE_INT,
unsigned HOST_WIDE_INT, int);
@@ -68,6 +67,19 @@ static void do_cmp_and_jump (rtx, rtx, e
static rtx expand_smod_pow2 (enum machine_mode, rtx, HOST_WIDE_INT);
static rtx expand_sdiv_pow2 (enum machine_mode, rtx, HOST_WIDE_INT);
+/* Return a constant integer (CONST_INT or CONST_WIDE_INT) mask value
+ of mode MODE with BITSIZE ones followed by BITPOS zeros, or the
+ complement of that if COMPLEMENT. The mask is truncated if
+ necessary to the width of mode MODE. The mask is zero-extended if
+ BITSIZE+BITPOS is too small for MODE. */
+
+static inline rtx
+mask_rtx (enum machine_mode mode, int bitpos, int bitsize, bool complement)
+{
+ return immed_wide_int_const
+ (wide_int::shifted_mask (bitpos, bitsize, complement, mode));
+}
+
/* Test whether a value is zero of a power of two. */
#define EXACT_POWER_OF_2_OR_ZERO_P(x) (((x) & ((x) - 1)) == 0)
@@ -1961,39 +1973,16 @@ extract_fixed_bit_field (enum machine_mo
return expand_shift (RSHIFT_EXPR, mode, op0,
GET_MODE_BITSIZE (mode) - bitsize, target, 0);
}
-
-/* Return a constant integer (CONST_INT or CONST_DOUBLE) mask value
- of mode MODE with BITSIZE ones followed by BITPOS zeros, or the
- complement of that if COMPLEMENT. The mask is truncated if
- necessary to the width of mode MODE. The mask is zero-extended if
- BITSIZE+BITPOS is too small for MODE. */
-
-static rtx
-mask_rtx (enum machine_mode mode, int bitpos, int bitsize, int complement)
-{
- double_int mask;
-
- mask = double_int::mask (bitsize);
- mask = mask.llshift (bitpos, HOST_BITS_PER_DOUBLE_INT);
-
- if (complement)
- mask = ~mask;
-
- return immed_double_int_const (mask, mode);
-}
-
-/* Return a constant integer (CONST_INT or CONST_DOUBLE) rtx with the value
- VALUE truncated to BITSIZE bits and then shifted left BITPOS bits. */
+/* Return a constant integer (CONST_INT or CONST_WIDE_INT) rtx with the value
+ VALUE truncated to BITSIZE bits and then shifted left BITPOS bits. */
static rtx
lshift_value (enum machine_mode mode, rtx value, int bitpos, int bitsize)
{
- double_int val;
-
- val = double_int::from_uhwi (INTVAL (value)).zext (bitsize);
- val = val.llshift (bitpos, HOST_BITS_PER_DOUBLE_INT);
-
- return immed_double_int_const (val, mode);
+ return
+ immed_wide_int_const (wide_int::from_rtx (value, mode)
+ .zext (bitsize)
+ .lshift (bitpos, wide_int::NONE));
}
/* Extract a bit field that is split across two words
@@ -3199,34 +3188,41 @@ expand_mult (enum machine_mode mode, rtx
only if the constant value exactly fits in an `unsigned int' without
any truncation. This means that multiplying by negative values does
not work; results are off by 2^32 on a 32 bit machine. */
-
if (CONST_INT_P (scalar_op1))
{
coeff = INTVAL (scalar_op1);
is_neg = coeff < 0;
}
+#if TARGET_SUPPORTS_WIDE_INT
+ else if (CONST_WIDE_INT_P (scalar_op1))
+#else
else if (CONST_DOUBLE_AS_INT_P (scalar_op1))
+#endif
{
- /* If we are multiplying in DImode, it may still be a win
- to try to work with shifts and adds. */
- if (CONST_DOUBLE_HIGH (scalar_op1) == 0
- && CONST_DOUBLE_LOW (scalar_op1) > 0)
+ int p = GET_MODE_PRECISION (mode);
+ wide_int val = wide_int::from_rtx (scalar_op1, mode);
+ int shift = val.exact_log2 ();
+ /* Perfect power of 2. */
+ is_neg = false;
+ if (shift > 0)
{
- coeff = CONST_DOUBLE_LOW (scalar_op1);
- is_neg = false;
+ /* Do the shift count trucation against the bitsize, not
+ the precision. See the comment above
+ wide-int.c:trunc_shift for details. */
+ if (SHIFT_COUNT_TRUNCATED)
+ shift &= GET_MODE_BITSIZE (mode) - 1;
+ /* We could consider adding just a move of 0 to target
+ if the shift >= p */
+ if (shift < p)
+ return expand_shift (LSHIFT_EXPR, mode, op0,
+ shift, target, unsignedp);
+ /* Any positive number that fits in a word. */
+ coeff = CONST_WIDE_INT_ELT (scalar_op1, 0);
}
- else if (CONST_DOUBLE_LOW (scalar_op1) == 0)
+ else if (val.sign_mask () == 0)
{
- coeff = CONST_DOUBLE_HIGH (scalar_op1);
- if (EXACT_POWER_OF_2_OR_ZERO_P (coeff))
- {
- int shift = floor_log2 (coeff) + HOST_BITS_PER_WIDE_INT;
- if (shift < HOST_BITS_PER_DOUBLE_INT - 1
- || mode_bitsize <= HOST_BITS_PER_DOUBLE_INT)
- return expand_shift (LSHIFT_EXPR, mode, op0,
- shift, target, unsignedp);
- }
- goto skip_synth;
+ /* Any positive number that fits in a word. */
+ coeff = CONST_WIDE_INT_ELT (scalar_op1, 0);
}
else
goto skip_synth;
@@ -3716,9 +3712,10 @@ expmed_mult_highpart (enum machine_mode
static rtx
expand_smod_pow2 (enum machine_mode mode, rtx op0, HOST_WIDE_INT d)
{
- unsigned HOST_WIDE_INT masklow, maskhigh;
rtx result, temp, shift, label;
int logd;
+ wide_int mask;
+ int prec = GET_MODE_PRECISION (mode);
logd = floor_log2 (d);
result = gen_reg_rtx (mode);
@@ -3731,8 +3728,8 @@ expand_smod_pow2 (enum machine_mode mode
mode, 0, -1);
if (signmask)
{
+ HOST_WIDE_INT masklow = ((HOST_WIDE_INT) 1 << logd) - 1;
signmask = force_reg (mode, signmask);
- masklow = ((HOST_WIDE_INT) 1 << logd) - 1;
shift = GEN_INT (GET_MODE_BITSIZE (mode) - logd);
/* Use the rtx_cost of a LSHIFTRT instruction to determine
@@ -3777,19 +3774,11 @@ expand_smod_pow2 (enum machine_mode mode
modulus. By including the signbit in the operation, many targets
can avoid an explicit compare operation in the following comparison
against zero. */
-
- masklow = ((HOST_WIDE_INT) 1 << logd) - 1;
- if (GET_MODE_BITSIZE (mode) <= HOST_BITS_PER_WIDE_INT)
- {
- masklow |= (HOST_WIDE_INT) -1 << (GET_MODE_BITSIZE (mode) - 1);
- maskhigh = -1;
- }
- else
- maskhigh = (HOST_WIDE_INT) -1
- << (GET_MODE_BITSIZE (mode) - HOST_BITS_PER_WIDE_INT - 1);
+ mask = wide_int::mask (logd, false, mode);
+ mask = mask.set_bit (prec - 1);
temp = expand_binop (mode, and_optab, op0,
- immed_double_const (masklow, maskhigh, mode),
+ immed_wide_int_const (mask),
result, 1, OPTAB_LIB_WIDEN);
if (temp != result)
emit_move_insn (result, temp);
@@ -3799,10 +3788,10 @@ expand_smod_pow2 (enum machine_mode mode
temp = expand_binop (mode, sub_optab, result, const1_rtx, result,
0, OPTAB_LIB_WIDEN);
- masklow = (HOST_WIDE_INT) -1 << logd;
- maskhigh = -1;
+
+ mask = wide_int::mask (logd, true, mode);
temp = expand_binop (mode, ior_optab, temp,
- immed_double_const (masklow, maskhigh, mode),
+ immed_wide_int_const (mask),
result, 1, OPTAB_LIB_WIDEN);
temp = expand_binop (mode, add_optab, temp, const1_rtx, result,
0, OPTAB_LIB_WIDEN);
@@ -5056,8 +5045,12 @@ make_tree (tree type, rtx x)
return t;
}
+ case CONST_WIDE_INT:
+ t = wide_int_to_tree (type, wide_int::from_rtx (x, TYPE_MODE (type)));
+ return t;
+
case CONST_DOUBLE:
- if (GET_MODE (x) == VOIDmode)
+ if (TARGET_SUPPORTS_WIDE_INT == 0 && GET_MODE (x) == VOIDmode)
t = build_int_cst_wide (type,
CONST_DOUBLE_LOW (x), CONST_DOUBLE_HIGH (x));
else
Index: gcc/cselib.c
===================================================================
--- gcc/cselib.c (revision 191978)
+++ gcc/cselib.c (working copy)
@@ -534,17 +534,15 @@ entry_and_rtx_equal_p (const void *entry
rtx x = CONST_CAST_RTX ((const_rtx)x_arg);
enum machine_mode mode = GET_MODE (x);
- gcc_assert (!CONST_INT_P (x) && GET_CODE (x) != CONST_FIXED
- && (mode != VOIDmode || GET_CODE (x) != CONST_DOUBLE));
+ gcc_assert (!CONST_SCALAR_INT_P (x) && GET_CODE (x) != CONST_FIXED);
if (mode != GET_MODE (v->val_rtx))
return 0;
/* Unwrap X if necessary. */
if (GET_CODE (x) == CONST
- && (CONST_INT_P (XEXP (x, 0))
- || GET_CODE (XEXP (x, 0)) == CONST_FIXED
- || GET_CODE (XEXP (x, 0)) == CONST_DOUBLE))
+ && (CONST_SCALAR_INT_P (XEXP (x, 0))
+ || GET_CODE (XEXP (x, 0)) == CONST_FIXED))
x = XEXP (x, 0);
/* We don't guarantee that distinct rtx's have different hash values,
@@ -911,6 +913,20 @@ rtx_equal_for_cselib_1 (rtx x, rtx y, en
case DEBUG_EXPR:
return 0;
+ case CONST_WIDE_INT:
+ {
+ int i;
+ /* It would have been nice to have had a mode. */
+ if (CONST_WIDE_INT_NUNITS (x) != CONST_WIDE_INT_NUNITS (y))
+ return 0;
+
+ for (i = 0; i < CONST_WIDE_INT_NUNITS (x); i++)
+ if (CONST_WIDE_INT_ELT (x, i) != CONST_WIDE_INT_ELT (y, i))
+ return 0;
+
+ return 1;
+ }
+
case DEBUG_IMPLICIT_PTR:
return DEBUG_IMPLICIT_PTR_DECL (x)
== DEBUG_IMPLICIT_PTR_DECL (y);
@@ -1009,9 +1025,7 @@ rtx_equal_for_cselib_1 (rtx x, rtx y, en
static rtx
wrap_constant (enum machine_mode mode, rtx x)
{
- if (!CONST_INT_P (x)
- && GET_CODE (x) != CONST_FIXED
- && !CONST_DOUBLE_AS_INT_P (x))
+ if ((!CONST_SCALAR_INT_P (x)) && GET_CODE (x) != CONST_FIXED)
return x;
gcc_assert (mode != VOIDmode);
return gen_rtx_CONST (mode, x);
@@ -1103,15 +1117,23 @@ cselib_hash_rtx (rtx x, int create, enum
hash += ((unsigned) CONST_INT << 7) + INTVAL (x);
return hash ? hash : (unsigned int) CONST_INT;
+ case CONST_WIDE_INT:
+ {
+ int i;
+ for (i = 0; i < CONST_WIDE_INT_NUNITS (x); i++)
+ hash += CONST_WIDE_INT_ELT (x, i);
+ }
+ return hash;
+
case CONST_DOUBLE:
/* This is like the general case, except that it only counts
the integers representing the constant. */
hash += (unsigned) code + (unsigned) GET_MODE (x);
- if (GET_MODE (x) != VOIDmode)
- hash += real_hash (CONST_DOUBLE_REAL_VALUE (x));
- else
+ if (TARGET_SUPPORTS_WIDE_INT == 0 && GET_MODE (x) == VOIDmode)
hash += ((unsigned) CONST_DOUBLE_LOW (x)
+ (unsigned) CONST_DOUBLE_HIGH (x));
+ else
+ hash += real_hash (CONST_DOUBLE_REAL_VALUE (x));
return hash ? hash : (unsigned int) CONST_DOUBLE;
case CONST_FIXED:
Index: gcc/explow.c
===================================================================
--- gcc/explow.c (revision 191978)
+++ gcc/explow.c (working copy)
@@ -97,38 +97,9 @@ plus_constant (enum machine_mode mode, r
switch (code)
{
- case CONST_INT:
- if (GET_MODE_BITSIZE (mode) > HOST_BITS_PER_WIDE_INT)
- {
- double_int di_x = double_int::from_shwi (INTVAL (x));
- double_int di_c = double_int::from_shwi (c);
-
- bool overflow;
- double_int v = di_x.add_with_sign (di_c, false, &overflow);
- if (overflow)
- gcc_unreachable ();
-
- return immed_double_int_const (v, VOIDmode);
- }
-
- return GEN_INT (INTVAL (x) + c);
-
- case CONST_DOUBLE:
- {
- double_int di_x = double_int::from_pair (CONST_DOUBLE_HIGH (x),
- CONST_DOUBLE_LOW (x));
- double_int di_c = double_int::from_shwi (c);
-
- bool overflow;
- double_int v = di_x.add_with_sign (di_c, false, &overflow);
- if (overflow)
- /* Sorry, we have no way to represent overflows this wide.
- To fix, add constant support wider than CONST_DOUBLE. */
- gcc_assert (GET_MODE_BITSIZE (mode) <= HOST_BITS_PER_DOUBLE_INT);
-
- return immed_double_int_const (v, VOIDmode);
- }
-
+ CASE_CONST_SCALAR_INT:
+ return immed_wide_int_const (wide_int::from_rtx (x, mode)
+ + wide_int::from_shwi (c, mode));
case MEM:
/* If this is a reference to the constant pool, try replacing it with
a reference to a new constant. If the resulting address isn't
Index: gcc/varasm.c
===================================================================
--- gcc/varasm.c (revision 191978)
+++ gcc/varasm.c (working copy)
@@ -3358,6 +3358,7 @@ const_rtx_hash_1 (rtx *xp, void *data)
enum rtx_code code;
hashval_t h, *hp;
rtx x;
+ int i;
x = *xp;
code = GET_CODE (x);
@@ -3368,12 +3369,12 @@ const_rtx_hash_1 (rtx *xp, void *data)
{
case CONST_INT:
hwi = INTVAL (x);
+
fold_hwi:
{
int shift = sizeof (hashval_t) * CHAR_BIT;
const int n = sizeof (HOST_WIDE_INT) / sizeof (hashval_t);
- int i;
-
+
h ^= (hashval_t) hwi;
for (i = 1; i < n; ++i)
{
@@ -3383,8 +3384,17 @@ const_rtx_hash_1 (rtx *xp, void *data)
}
break;
+ case CONST_WIDE_INT:
+ hwi = GET_MODE_PRECISION (mode);
+ {
+ int i;
+ for (i = 0; i < CONST_WIDE_INT_NUNITS (x); i++)
+ hwi ^= CONST_WIDE_INT_ELT (x, i);
+ goto fold_hwi;
+ }
+
case CONST_DOUBLE:
- if (mode == VOIDmode)
+ if (TARGET_SUPPORTS_WIDE_INT == 0 && mode == VOIDmode)
{
hwi = CONST_DOUBLE_LOW (x) ^ CONST_DOUBLE_HIGH (x);
goto fold_hwi;
Index: gcc/hwint.c
===================================================================
--- gcc/hwint.c (revision 191978)
+++ gcc/hwint.c (working copy)
@@ -112,6 +112,29 @@ ffs_hwi (unsigned HOST_WIDE_INT x)
int
popcount_hwi (unsigned HOST_WIDE_INT x)
{
+ /* Compute the popcount of a HWI using the algorithm from
+ Hacker's Delight. */
+#if HOST_BITS_PER_WIDE_INT == 32
+ x = (x & 0x55555555) + ((x >> 1) & 0x55555555);
+ x = (x & 0x33333333) + ((x >> 2) & 0x33333333);
+ x = (x & 0x0F0F0F0F) + ((x >> 4) & 0x0F0F0F0F);
+ x = (x & 0x00FF00FF) + ((x >> 8) & 0x00FF00FF);
+ x = (x & 0x0000FFFF) + ((x >>16) & 0x0000FFFF);
+#elif HOST_BITS_PER_WIDE_INT == 64
+ x = (x & HOST_WIDE_INT_C (0x5555555555555555)
+ + ((x >> 1) & HOST_WIDE_INT_C (0x5555555555555555);
+ x = (x & HOST_WIDE_INT_C (0x3333333333333333)
+ + ((x >> 2) & HOST_WIDE_INT_C (0x3333333333333333);
+ x = (x & HOST_WIDE_INT_C (0x0F0F0F0F0F0F0F0F)
+ + ((x >> 4) & HOST_WIDE_INT_C (0x0F0F0F0F0F0F0F0F);
+ x = (x & HOST_WIDE_INT_C (0x00FF00FF00FF00FF)
+ + ((x >> 8) & HOST_WIDE_INT_C (0x00FF00FF00FF00FF);
+ x = (x & HOST_WIDE_INT_C (0x0000FFFF0000FFFF)
+ + ((x >>16) & HOST_WIDE_INT_C (0x0000FFFF0000FFFF);
+ x = (x & HOST_WIDE_INT_C (0x00000000FFFFFFFF)
+ + ((x >>32) & HOST_WIDE_INT_C (0x00000000FFFFFFFF);
+ return x;
+#else
int i, ret = 0;
size_t bits = sizeof (x) * CHAR_BIT;
@@ -122,6 +145,7 @@ popcount_hwi (unsigned HOST_WIDE_INT x)
}
return ret;
+#endif
}
#endif /* GCC_VERSION < 3004 */
Index: gcc/hwint.h
===================================================================
--- gcc/hwint.h (revision 191978)
+++ gcc/hwint.h (working copy)
@@ -77,6 +77,40 @@ extern char sizeof_long_long_must_be_8[s
# endif
#endif
+/* Print support for half a host wide int. */
+#define HOST_BITS_PER_HALF_WIDE_INT (HOST_BITS_PER_WIDE_INT / 2)
+#if HOST_BITS_PER_HALF_WIDE_INT == HOST_BITS_PER_LONG
+# define HOST_HALF_WIDE_INT long
+# define HOST_HALF_WIDE_INT_PRINT HOST_LONG_FORMAT
+# define HOST_HALF_WIDE_INT_PRINT_C "L"
+# define HOST_HALF_WIDE_INT_PRINT_DEC "%" HOST_HALF_WIDE_INT_PRINT "d"
+# define HOST_HALF_WIDE_INT_PRINT_DEC_C HOST_HALF_WIDE_INT_PRINT_DEC HOST_HALF_WIDE_INT_PRINT_C
+# define HOST_HALF_WIDE_INT_PRINT_UNSIGNED "%" HOST_HALF_WIDE_INT_PRINT "u"
+# define HOST_HALF_WIDE_INT_PRINT_HEX "%#" HOST_HALF_WIDE_INT_PRINT "x"
+# define HOST_HALF_WIDE_INT_PRINT_HEX_PURE "%" HOST_HALF_WIDE_INT_PRINT "x"
+#elif HOST_BITS_PER_HALF_WIDE_INT == HOST_BITS_PER_INT
+# define HOST_HALF_WIDE_INT int
+# define HOST_HALF_WIDE_INT_PRINT ""
+# define HOST_HALF_WIDE_INT_PRINT_C ""
+# define HOST_HALF_WIDE_INT_PRINT_DEC "%" HOST_HALF_WIDE_INT_PRINT "d"
+# define HOST_HALF_WIDE_INT_PRINT_DEC_C HOST_HALF_WIDE_INT_PRINT_DEC HOST_HALF_WIDE_INT_PRINT_C
+# define HOST_HALF_WIDE_INT_PRINT_UNSIGNED "%" HOST_HALF_WIDE_INT_PRINT "u"
+# define HOST_HALF_WIDE_INT_PRINT_HEX "%#" HOST_HALF_WIDE_INT_PRINT "x"
+# define HOST_HALF_WIDE_INT_PRINT_HEX_PURE "%" HOST_HALF_WIDE_INT_PRINT "x"
+#elif HOST_BITS_PER_HALF_WIDE_INT == HOST_BITS_PER_SHORT
+# define HOST_HALF_WIDE_INT short
+# define HOST_HALF_WIDE_INT_PRINT "h"
+# define HOST_HALF_WIDE_INT_PRINT_C ""
+# define HOST_HALF_WIDE_INT_PRINT_DEC "%" HOST_HALF_WIDE_INT_PRINT "d"
+# define HOST_HALF_WIDE_INT_PRINT_DEC_C HOST_HALF_WIDE_INT_PRINT_DEC HOST_HALF_WIDE_INT_PRINT_C
+# define HOST_HALF_WIDE_INT_PRINT_UNSIGNED "%" HOST_HALF_WIDE_INT_PRINT "u"
+# define HOST_HALF_WIDE_INT_PRINT_HEX "%#" HOST_HALF_WIDE_INT_PRINT "x"
+# define HOST_HALF_WIDE_INT_PRINT_HEX_PURE "%" HOST_HALF_WIDE_INT_PRINT "x"
+#else
+#error Please add support for HOST_HALF_WIDE_INT
+#endif
+
+
#define HOST_WIDE_INT_1 HOST_WIDE_INT_C(1)
/* This is a magic identifier which allows GCC to figure out the type
@@ -94,9 +128,13 @@ typedef HOST_WIDE_INT __gcc_host_wide_in
# if HOST_BITS_PER_WIDE_INT == 64
# define HOST_WIDE_INT_PRINT_DOUBLE_HEX \
"0x%" HOST_LONG_FORMAT "x%016" HOST_LONG_FORMAT "x"
+# define HOST_WIDE_INT_PRINT_PADDED_HEX \
+ "%016" HOST_LONG_FORMAT "x"
# else
# define HOST_WIDE_INT_PRINT_DOUBLE_HEX \
"0x%" HOST_LONG_FORMAT "x%08" HOST_LONG_FORMAT "x"
+# define HOST_WIDE_INT_PRINT_PADDED_HEX \
+ "%08" HOST_LONG_FORMAT "x"
# endif
#else
# define HOST_WIDE_INT_PRINT HOST_LONG_LONG_FORMAT
@@ -104,6 +142,8 @@ typedef HOST_WIDE_INT __gcc_host_wide_in
/* 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"
+# define HOST_WIDE_INT_PRINT_PADDED_HEX \
+ "%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"
Index: gcc/postreload.c
===================================================================
--- gcc/postreload.c (revision 191978)
+++ gcc/postreload.c (working copy)
@@ -286,27 +286,25 @@ reload_cse_simplify_set (rtx set, rtx in
#ifdef LOAD_EXTEND_OP
if (extend_op != UNKNOWN)
{
- HOST_WIDE_INT this_val;
+ wide_int result;
- /* ??? I'm lazy and don't wish to handle CONST_DOUBLE. Other
- constants, such as SYMBOL_REF, cannot be extended. */
- if (!CONST_INT_P (this_rtx))
+ if (!CONST_SCALAR_INT_P (this_rtx))
continue;
- this_val = INTVAL (this_rtx);
switch (extend_op)
{
case ZERO_EXTEND:
- this_val &= GET_MODE_MASK (GET_MODE (src));
+ result = (wide_int::from_rtx (this_rtx, GET_MODE (src))
+ .zext (word_mode));
break;
case SIGN_EXTEND:
- /* ??? In theory we're already extended. */
- if (this_val == trunc_int_for_mode (this_val, GET_MODE (src)))
- break;
+ result = (wide_int::from_rtx (this_rtx, GET_MODE (src))
+ .sext (word_mode));
+ break;
default:
gcc_unreachable ();
}
- this_rtx = GEN_INT (this_val);
+ this_rtx = immed_wide_int_const (result);
}
#endif
this_cost = set_src_cost (this_rtx, speed);
Index: gcc/var-tracking.c
===================================================================
--- gcc/var-tracking.c (revision 191978)
+++ gcc/var-tracking.c (working copy)
@@ -3386,6 +3386,23 @@ loc_cmp (rtx x, rtx y)
default:
gcc_unreachable ();
}
+ if (CONST_WIDE_INT_P (x))
+ {
+ /* Compare the vector length first. */
+ if (CONST_WIDE_INT_NUNITS (x) >= CONST_WIDE_INT_NUNITS (y))
+ return 1;
+ else if (CONST_WIDE_INT_NUNITS (x) < CONST_WIDE_INT_NUNITS (y))
+ return -1;
+
+ /* Compare the vectors elements. */;
+ for (j = CONST_WIDE_INT_NUNITS (x) - 1; j >= 0 ; j--)
+ {
+ if (CONST_WIDE_INT_ELT (x, j) < CONST_WIDE_INT_ELT (y, j))
+ return -1;
+ if (CONST_WIDE_INT_ELT (x, j) > CONST_WIDE_INT_ELT (y, j))
+ return 1;
+ }
+ }
return 0;
}
Index: gcc/tree.c
===================================================================
--- gcc/tree.c (revision 191978)
+++ gcc/tree.c (working copy)
@@ -1067,6 +1067,21 @@ double_int_to_tree (tree type, double_in
return build_int_cst_wide (type, cst.low, cst.high);
}
+/* Constructs tree in type TYPE from with value given by CST. Signedness
+ of CST is assumed to be the same as the signedness of TYPE. */
+
+tree
+wide_int_to_tree (tree type, const wide_int &cst)
+{
+ wide_int v;
+ if (TYPE_UNSIGNED (type))
+ v = cst.zext (TYPE_PRECISION (type));
+ else
+ v = cst.sext (TYPE_PRECISION (type));
+
+ return build_int_cst_wide (type, v.elt (0), v.elt (1));
+}
+
/* Returns true if CST fits into range of TYPE. Signedness of CST is assumed
to be the same as the signedness of TYPE. */
Index: gcc/tree.h
===================================================================
--- gcc/tree.h (revision 191978)
+++ gcc/tree.h (working copy)
@@ -29,6 +29,7 @@ along with GCC; see the file COPYING3.
#include "vec.h"
#include "vecir.h"
#include "double-int.h"
+#include "wide-int.h"
#include "real.h"
#include "fixed-value.h"
#include "alias.h"
@@ -4719,6 +4720,10 @@ tree_to_double_int (const_tree cst)
}
extern tree double_int_to_tree (tree, double_int);
+#ifndef GENERATOR_FILE
+extern tree wide_int_to_tree (tree type, const wide_int &cst);
+#endif
+
extern bool double_int_fits_to_tree_p (const_tree, double_int);
extern tree force_fit_type_double (tree, double_int, int, bool);
Index: gcc/gensupport.c
===================================================================
--- gcc/gensupport.c (revision 191978)
+++ gcc/gensupport.c (working copy)
@@ -1671,7 +1671,13 @@ static const struct std_pred_table std_p
{"scratch_operand", false, false, {SCRATCH, REG}},
{"immediate_operand", false, true, {UNKNOWN}},
{"const_int_operand", false, false, {CONST_INT}},
+#if TARGET_SUPPORTS_WIDE_INT
+ {"const_wide_int_operand", false, false, {CONST_WIDE_INT}},
+ {"const_scalar_int_operand", false, false, {CONST_INT, CONST_WIDE_INT}},
+ {"const_double_operand", false, false, {CONST_DOUBLE}},
+#else
{"const_double_operand", false, false, {CONST_INT, CONST_DOUBLE}},
+#endif
{"nonimmediate_operand", false, false, {SUBREG, REG, MEM}},
{"nonmemory_operand", false, true, {SUBREG, REG}},
{"push_operand", false, false, {MEM}},
Index: gcc/read-rtl.c
===================================================================
--- gcc/read-rtl.c (revision 191978)
+++ gcc/read-rtl.c (working copy)
@@ -679,6 +679,29 @@ validate_const_int (const char *string)
fatal_with_file_and_line ("invalid decimal constant \"%s\"\n", string);
}
+static void
+validate_const_wide_int (const char *string)
+{
+ const char *cp;
+ int valid = 1;
+
+ cp = string;
+ while (*cp && ISSPACE (*cp))
+ cp++;
+ /* Skip the leading 0x. */
+ if (cp[0] == '0' || cp[1] == 'x')
+ cp += 2;
+ else
+ valid = 0;
+ if (*cp == 0)
+ valid = 0;
+ for (; *cp; cp++)
+ if (! ISXDIGIT (*cp))
+ valid = 0;
+ if (!valid)
+ fatal_with_file_and_line ("invalid hex constant \"%s\"\n", string);
+}
+
/* Record that PTR uses iterator ITERATOR. */
static void
@@ -1064,6 +1087,56 @@ read_rtx_code (const char *code_name)
gcc_unreachable ();
}
+ if (CONST_WIDE_INT_P (return_rtx))
+ {
+ read_name (&name);
+ validate_const_wide_int (name.string);
+ {
+ hwivec hwiv;
+ const char *s = name.string;
+ int len;
+ int index = 0;
+ int gs = HOST_BITS_PER_WIDE_INT/4;
+ int pos;
+ char * buf = XALLOCAVEC (char, gs + 1);
+ unsigned HOST_WIDE_INT wi;
+ int wlen;
+
+ /* Skip the leading spaces. */
+ while (*s && ISSPACE (*s))
+ s++;
+
+ /* Skip the leading 0x. */
+ gcc_assert (s[0] == '0');
+ gcc_assert (s[1] == 'x');
+ s += 2;
+
+ len = strlen (s);
+ pos = len - gs;
+ wlen = (len + gs - 1)/gs; /* Number of words needed */
+
+ return_rtx = const_wide_int_alloc (wlen);
+
+ hwiv = CONST_WIDE_INT_VEC (return_rtx);
+ while (pos > 0)
+ {
+#if HOST_BITS_PER_WIDE_INT == 64
+ sscanf (s + pos, "%16" HOST_WIDE_INT_PRINT "x", &wi);
+#else
+ sscanf (s + pos, "%8" HOST_WIDE_INT_PRINT "x", &wi);
+#endif
+ XHWIVEC_ELT (hwiv, index++) = wi;
+ pos -= gs;
+ }
+ strncpy (buf, s, gs - pos);
+ buf [gs - pos] = 0;
+ sscanf (buf, "%" HOST_WIDE_INT_PRINT "x", &wi);
+ XHWIVEC_ELT (hwiv, index++) = wi;
+ /* TODO: After reading, do we want to canonicalize with:
+ value = lookup_const_wide_int (value); ? */
+ }
+ }
+
c = read_skip_spaces ();
/* Syntactic sugar for AND and IOR, allowing Lisp-like
arbitrary number of arguments for them. */
Index: gcc/cse.c
===================================================================
--- gcc/cse.c (revision 191978)
+++ gcc/cse.c (working copy)
@@ -2335,15 +2335,23 @@ hash_rtx_cb (const_rtx x, enum machine_m
+ (unsigned int) INTVAL (x));
return hash;
+ case CONST_WIDE_INT:
+ {
+ int i;
+ for (i = 0; i < CONST_WIDE_INT_NUNITS (x); i++)
+ hash += CONST_WIDE_INT_ELT (x, i);
+ }
+ return hash;
+
case CONST_DOUBLE:
/* This is like the general case, except that it only counts
the integers representing the constant. */
hash += (unsigned int) code + (unsigned int) GET_MODE (x);
- if (GET_MODE (x) != VOIDmode)
- hash += real_hash (CONST_DOUBLE_REAL_VALUE (x));
- else
+ if (TARGET_SUPPORTS_WIDE_INT == 0 && GET_MODE (x) == VOIDmode)
hash += ((unsigned int) CONST_DOUBLE_LOW (x)
+ (unsigned int) CONST_DOUBLE_HIGH (x));
+ else
+ hash += real_hash (CONST_DOUBLE_REAL_VALUE (x));
return hash;
case CONST_FIXED:
@@ -3759,6 +3767,7 @@ equiv_constant (rtx x)
/* See if we previously assigned a constant value to this SUBREG. */
if ((new_rtx = lookup_as_function (x, CONST_INT)) != 0
+ || (new_rtx = lookup_as_function (x, CONST_WIDE_INT)) != 0
|| (new_rtx = lookup_as_function (x, CONST_DOUBLE)) != 0
|| (new_rtx = lookup_as_function (x, CONST_FIXED)) != 0)
return new_rtx;
Index: gcc/dwarf2out.c
===================================================================
--- gcc/dwarf2out.c (revision 191978)
+++ gcc/dwarf2out.c (working copy)
@@ -1327,6 +1327,9 @@ dw_val_equal_p (dw_val_node *a, dw_val_n
return (a->v.val_double.high == b->v.val_double.high
&& a->v.val_double.low == b->v.val_double.low);
+ case dw_val_class_wide_int:
+ return a->v.val_wide == b->v.val_wide;
+
case dw_val_class_vec:
{
size_t a_len = a->v.val_vec.elt_size * a->v.val_vec.length;
@@ -1578,6 +1581,10 @@ size_of_loc_descr (dw_loc_descr_ref loc)
case dw_val_class_const_double:
size += HOST_BITS_PER_DOUBLE_INT / BITS_PER_UNIT;
break;
+ case dw_val_class_wide_int:
+ size += (loc->dw_loc_oprnd2.v.val_wide.full_len ()
+ * HOST_BITS_PER_WIDE_INT / BITS_PER_UNIT);
+ break;
default:
gcc_unreachable ();
}
@@ -1755,6 +1762,20 @@ output_loc_operands (dw_loc_descr_ref lo
second, NULL);
}
break;
+ case dw_val_class_wide_int:
+ {
+ int i;
+ int len = val2->v.val_wide.full_len ();
+ if (WORDS_BIG_ENDIAN)
+ for (i = len; i >= 0; --i)
+ dw2_asm_output_data (HOST_BITS_PER_WIDE_INT / HOST_BITS_PER_CHAR,
+ val2->v.val_wide.elt (i), NULL);
+ else
+ for (i = 0; i < len; ++i)
+ dw2_asm_output_data (HOST_BITS_PER_WIDE_INT / HOST_BITS_PER_CHAR,
+ val2->v.val_wide.elt (i), NULL);
+ }
+ break;
case dw_val_class_addr:
gcc_assert (val1->v.val_unsigned == DWARF2_ADDR_SIZE);
dw2_asm_output_addr_rtx (DWARF2_ADDR_SIZE, val2->v.val_addr, NULL);
@@ -1957,6 +1978,21 @@ output_loc_operands (dw_loc_descr_ref lo
dw2_asm_output_data (l, second, NULL);
}
break;
+ case dw_val_class_wide_int:
+ {
+ int i;
+ int len = val2->v.val_wide.full_len ();
+ l = HOST_BITS_PER_WIDE_INT / HOST_BITS_PER_CHAR;
+
+ dw2_asm_output_data (1, len * l, NULL);
+ if (WORDS_BIG_ENDIAN)
+ for (i = len; i >= 0; --i)
+ dw2_asm_output_data (l, val2->v.val_wide.elt (i), NULL);
+ else
+ for (i = 0; i < len; ++i)
+ dw2_asm_output_data (l, val2->v.val_wide.elt (i), NULL);
+ }
+ break;
default:
gcc_unreachable ();
}
@@ -3060,7 +3096,7 @@ static void add_AT_location_description
static void add_data_member_location_attribute (dw_die_ref, tree);
static bool add_const_value_attribute (dw_die_ref, rtx);
static void insert_int (HOST_WIDE_INT, unsigned, unsigned char *);
-static void insert_double (double_int, unsigned char *);
+static void insert_wide_int (wide_int *, unsigned char *);
static void insert_float (const_rtx, unsigned char *);
static rtx rtl_for_decl_location (tree);
static bool add_location_or_const_value_attribute (dw_die_ref, tree, bool,
@@ -3557,6 +3593,20 @@ AT_unsigned (dw_attr_ref a)
/* Add an unsigned double integer attribute value to a DIE. */
static inline void
+add_AT_wide (dw_die_ref die, enum dwarf_attribute attr_kind,
+ wide_int w)
+{
+ dw_attr_node attr;
+
+ attr.dw_attr = attr_kind;
+ attr.dw_attr_val.val_class = dw_val_class_wide_int;
+ attr.dw_attr_val.v.val_wide = w;
+ add_dwarf_attr (die, &attr);
+}
+
+/* Add an unsigned double integer attribute value to a DIE. */
+
+static inline void
add_AT_double (dw_die_ref die, enum dwarf_attribute attr_kind,
HOST_WIDE_INT high, unsigned HOST_WIDE_INT low)
{
@@ -4867,6 +4917,19 @@ print_die (dw_die_ref die, FILE *outfile
a->dw_attr_val.v.val_double.high,
a->dw_attr_val.v.val_double.low);
break;
+ case dw_val_class_wide_int:
+ {
+ int i = a->dw_attr_val.v.val_wide.get_len ();
+ fprintf (outfile, "constant (");
+ gcc_assert (i > 0);
+ if (a->dw_attr_val.v.val_wide.elt (i) == 0)
+ fprintf (outfile, "0x");
+ fprintf (outfile, HOST_WIDE_INT_PRINT_HEX, a->dw_attr_val.v.val_wide.elt (--i));
+ while (-- i >= 0)
+ fprintf (outfile, HOST_WIDE_INT_PRINT_PADDED_HEX, a->dw_attr_val.v.val_wide.elt (i));
+ fprintf (outfile, ")");
+ break;
+ }
case dw_val_class_vec:
fprintf (outfile, "floating-point or vector constant");
break;
@@ -5022,6 +5085,9 @@ attr_checksum (dw_attr_ref at, struct md
case dw_val_class_const_double:
CHECKSUM (at->dw_attr_val.v.val_double);
break;
+ case dw_val_class_wide_int:
+ CHECKSUM (at->dw_attr_val.v.val_wide);
+ break;
case dw_val_class_vec:
CHECKSUM (at->dw_attr_val.v.val_vec);
break;
@@ -5292,6 +5358,12 @@ attr_checksum_ordered (enum dwarf_tag ta
CHECKSUM (at->dw_attr_val.v.val_double);
break;
+ case dw_val_class_wide_int:
+ CHECKSUM_ULEB128 (DW_FORM_block);
+ CHECKSUM_ULEB128 (sizeof (at->dw_attr_val.v.val_wide));
+ CHECKSUM (at->dw_attr_val.v.val_wide);
+ break;
+
case dw_val_class_vec:
CHECKSUM_ULEB128 (DW_FORM_block);
CHECKSUM_ULEB128 (sizeof (at->dw_attr_val.v.val_vec));
@@ -5756,6 +5828,8 @@ same_dw_val_p (const dw_val_node *v1, co
case dw_val_class_const_double:
return v1->v.val_double.high == v2->v.val_double.high
&& v1->v.val_double.low == v2->v.val_double.low;
+ case dw_val_class_wide_int:
+ return v1->v.val_wide == v2->v.val_wide;
case dw_val_class_vec:
if (v1->v.val_vec.length != v2->v.val_vec.length
|| v1->v.val_vec.elt_size != v2->v.val_vec.elt_size)
@@ -7207,6 +7281,13 @@ size_of_die (dw_die_ref die)
if (HOST_BITS_PER_WIDE_INT >= 64)
size++; /* block */
break;
+ case dw_val_class_wide_int:
+ size += (a->dw_attr_val.v.val_wide.full_len ()
+ * HOST_BITS_PER_WIDE_INT / HOST_BITS_PER_CHAR);
+ if (a->dw_attr_val.v.val_wide.full_len () * HOST_BITS_PER_WIDE_INT
+ > 64)
+ size++; /* block */
+ break;
case dw_val_class_vec:
size += constant_size (a->dw_attr_val.v.val_vec.length
* a->dw_attr_val.v.val_vec.elt_size)
@@ -7531,6 +7612,20 @@ value_format (dw_attr_ref a)
default:
return DW_FORM_block1;
}
+ case dw_val_class_wide_int:
+ switch (a->dw_attr_val.v.val_wide.full_len () * HOST_BITS_PER_WIDE_INT)
+ {
+ case 8:
+ return DW_FORM_data1;
+ case 16:
+ return DW_FORM_data2;
+ case 32:
+ return DW_FORM_data4;
+ case 64:
+ return DW_FORM_data8;
+ default:
+ return DW_FORM_block1;
+ }
case dw_val_class_vec:
switch (constant_size (a->dw_attr_val.v.val_vec.length
* a->dw_attr_val.v.val_vec.elt_size))
@@ -7878,6 +7973,32 @@ output_die (dw_die_ref die)
}
break;
+ case dw_val_class_wide_int:
+ {
+ int i;
+ int len = a->dw_attr_val.v.val_wide.full_len ();
+ int l = HOST_BITS_PER_WIDE_INT / HOST_BITS_PER_CHAR;
+ if (len * HOST_BITS_PER_WIDE_INT > 64)
+ dw2_asm_output_data (1, a->dw_attr_val.v.val_wide.full_len () * l,
+ NULL);
+
+ if (WORDS_BIG_ENDIAN)
+ for (i = len; i >= 0; --i)
+ {
+ dw2_asm_output_data (l, a->dw_attr_val.v.val_wide.elt (i),
+ name);
+ name = NULL;
+ }
+ else
+ for (i = 0; i < len; ++i)
+ {
+ dw2_asm_output_data (l, a->dw_attr_val.v.val_wide.elt (i),
+ name);
+ name = NULL;
+ }
+ }
+ break;
+
case dw_val_class_vec:
{
unsigned int elt_size = a->dw_attr_val.v.val_vec.elt_size;
@@ -10846,9 +10967,8 @@ clz_loc_descriptor (rtx rtl, enum machin
msb = GEN_INT ((unsigned HOST_WIDE_INT) 1
<< (GET_MODE_BITSIZE (mode) - 1));
else
- msb = immed_double_const (0, (unsigned HOST_WIDE_INT) 1
- << (GET_MODE_BITSIZE (mode)
- - HOST_BITS_PER_WIDE_INT - 1), mode);
+ msb = immed_wide_int_const
+ (wide_int::set_bit_in_zero (GET_MODE_PRECISION (mode) - 1, mode));
if (GET_CODE (msb) == CONST_INT && INTVAL (msb) < 0)
tmp = new_loc_descr (HOST_BITS_PER_WIDE_INT == 32
? DW_OP_const4u : HOST_BITS_PER_WIDE_INT == 64
@@ -11784,7 +11904,16 @@ mem_loc_descriptor (rtx rtl, enum machin
mem_loc_result->dw_loc_oprnd1.val_class = dw_val_class_die_ref;
mem_loc_result->dw_loc_oprnd1.v.val_die_ref.die = type_die;
mem_loc_result->dw_loc_oprnd1.v.val_die_ref.external = 0;
- if (SCALAR_FLOAT_MODE_P (mode))
+#if TARGET_SUPPORTS_WIDE_INT == 0
+ if (!SCALAR_FLOAT_MODE_P (mode))
+ {
+ mem_loc_result->dw_loc_oprnd2.val_class
+ = dw_val_class_const_double;
+ mem_loc_result->dw_loc_oprnd2.v.val_double
+ = rtx_to_double_int (rtl);
+ }
+ else
+#endif
{
unsigned int length = GET_MODE_SIZE (mode);
unsigned char *array
@@ -11796,13 +11925,26 @@ mem_loc_descriptor (rtx rtl, enum machin
mem_loc_result->dw_loc_oprnd2.v.val_vec.elt_size = 4;
mem_loc_result->dw_loc_oprnd2.v.val_vec.array = array;
}
- else
- {
- mem_loc_result->dw_loc_oprnd2.val_class
- = dw_val_class_const_double;
- mem_loc_result->dw_loc_oprnd2.v.val_double
- = rtx_to_double_int (rtl);
- }
+ }
+ break;
+
+ case CONST_WIDE_INT:
+ if (!dwarf_strict)
+ {
+ dw_die_ref type_die;
+
+ type_die = base_type_for_mode (mode,
+ GET_MODE_CLASS (mode) == MODE_INT);
+ if (type_die == NULL)
+ return NULL;
+ mem_loc_result = new_loc_descr (DW_OP_GNU_const_type, 0, 0);
+ mem_loc_result->dw_loc_oprnd1.val_class = dw_val_class_die_ref;
+ mem_loc_result->dw_loc_oprnd1.v.val_die_ref.die = type_die;
+ mem_loc_result->dw_loc_oprnd1.v.val_die_ref.external = 0;
+ mem_loc_result->dw_loc_oprnd2.val_class
+ = dw_val_class_wide_int;
+ mem_loc_result->dw_loc_oprnd2.v.val_wide
+ = wide_int::from_rtx (rtl, mode);
}
break;
@@ -12273,7 +12415,15 @@ loc_descriptor (rtx rtl, enum machine_mo
adequately represented. We output CONST_DOUBLEs as blocks. */
loc_result = new_loc_descr (DW_OP_implicit_value,
GET_MODE_SIZE (mode), 0);
- if (SCALAR_FLOAT_MODE_P (mode))
+#if TARGET_SUPPORTS_WIDE_INT == 0
+ if (!SCALAR_FLOAT_MODE_P (mode))
+ {
+ loc_result->dw_loc_oprnd2.val_class = dw_val_class_const_double;
+ loc_result->dw_loc_oprnd2.v.val_double
+ = rtx_to_double_int (rtl);
+ }
+ else
+#endif
{
unsigned int length = GET_MODE_SIZE (mode);
unsigned char *array
@@ -12285,12 +12435,26 @@ loc_descriptor (rtx rtl, enum machine_mo
loc_result->dw_loc_oprnd2.v.val_vec.elt_size = 4;
loc_result->dw_loc_oprnd2.v.val_vec.array = array;
}
- else
- {
- loc_result->dw_loc_oprnd2.val_class = dw_val_class_const_double;
- loc_result->dw_loc_oprnd2.v.val_double
- = rtx_to_double_int (rtl);
- }
+ }
+ break;
+
+ case CONST_WIDE_INT:
+ if (mode == VOIDmode)
+ mode = GET_MODE (rtl);
+
+ if (mode != VOIDmode && (dwarf_version >= 4 || !dwarf_strict))
+ {
+ gcc_assert (mode == GET_MODE (rtl) || VOIDmode == GET_MODE (rtl));
+
+ /* Note that a CONST_DOUBLE rtx could represent either an integer
+ or a floating-point constant. A CONST_DOUBLE is used whenever
+ the constant requires more than one word in order to be
+ adequately represented. We output CONST_DOUBLEs as blocks. */
+ loc_result = new_loc_descr (DW_OP_implicit_value,
+ GET_MODE_SIZE (mode), 0);
+ loc_result->dw_loc_oprnd2.val_class = dw_val_class_wide_int;
+ loc_result->dw_loc_oprnd2.v.val_wide
+ = wide_int::from_rtx (rtl, mode);
}
break;
@@ -12306,6 +12470,7 @@ loc_descriptor (rtx rtl, enum machine_mo
ggc_alloc_atomic (length * elt_size);
unsigned int i;
unsigned char *p;
+ enum machine_mode imode = GET_MODE_INNER (mode);
gcc_assert (mode == GET_MODE (rtl) || VOIDmode == GET_MODE (rtl));
switch (GET_MODE_CLASS (mode))
@@ -12314,15 +12479,8 @@ loc_descriptor (rtx rtl, enum machine_mo
for (i = 0, p = array; i < length; i++, p += elt_size)
{
rtx elt = CONST_VECTOR_ELT (rtl, i);
- double_int val = rtx_to_double_int (elt);
-
- if (elt_size <= sizeof (HOST_WIDE_INT))
- insert_int (val.to_shwi (), elt_size, p);
- else
- {
- gcc_assert (elt_size == 2 * sizeof (HOST_WIDE_INT));
- insert_double (val, p);
- }
+ wide_int val = wide_int::from_rtx (elt, imode);
+ insert_wide_int (&val, p);
}
break;
@@ -12349,8 +12507,8 @@ loc_descriptor (rtx rtl, enum machine_mo
case CONST:
if (mode == VOIDmode
- || GET_CODE (XEXP (rtl, 0)) == CONST_INT
- || GET_CODE (XEXP (rtl, 0)) == CONST_DOUBLE
+ || CONST_SCALAR_INT_P (XEXP (rtl, 0))
+ || CONST_DOUBLE_AS_FLOAT_P (XEXP (rtl, 0))
|| GET_CODE (XEXP (rtl, 0)) == CONST_VECTOR)
{
loc_result = loc_descriptor (XEXP (rtl, 0), mode, initialized);
@@ -13960,22 +14118,27 @@ extract_int (const unsigned char *src, u
return val;
}
-/* Writes double_int values to dw_vec_const array. */
+/* Writes wide_int values to dw_vec_const array. */
static void
-insert_double (double_int val, unsigned char *dest)
+insert_wide_int (wide_int *val, unsigned char *dest)
{
- unsigned char *p0 = dest;
- unsigned char *p1 = dest + sizeof (HOST_WIDE_INT);
+ int i;
if (WORDS_BIG_ENDIAN)
- {
- p0 = p1;
- p1 = dest;
- }
-
- insert_int ((HOST_WIDE_INT) val.low, sizeof (HOST_WIDE_INT), p0);
- insert_int ((HOST_WIDE_INT) val.high, sizeof (HOST_WIDE_INT), p1);
+ for (i = val->full_len () - 1; i >= 0; i--)
+ {
+ insert_int ((HOST_WIDE_INT) val->elt (i),
+ sizeof (HOST_WIDE_INT), dest);
+ dest += sizeof (HOST_WIDE_INT);
+ }
+ else
+ for (i = 0; i < val->full_len (); i++)
+ {
+ insert_int ((HOST_WIDE_INT) val->elt (i),
+ sizeof (HOST_WIDE_INT), dest);
+ dest += sizeof (HOST_WIDE_INT);
+ }
}
/* Writes floating point values to dw_vec_const array. */
@@ -14020,6 +14183,11 @@ add_const_value_attribute (dw_die_ref di
}
return true;
+ case CONST_WIDE_INT:
+ add_AT_wide (die, DW_AT_const_value,
+ wide_int::from_rtx (rtl, GET_MODE (rtl)));
+ return true;
+
case CONST_DOUBLE:
/* Note that a CONST_DOUBLE rtx could represent either an integer or a
floating-point constant. A CONST_DOUBLE is used whenever the
@@ -14028,7 +14196,10 @@ add_const_value_attribute (dw_die_ref di
{
enum machine_mode mode = GET_MODE (rtl);
- if (SCALAR_FLOAT_MODE_P (mode))
+ if (TARGET_SUPPORTS_WIDE_INT == 0 && !SCALAR_FLOAT_MODE_P (mode))
+ add_AT_double (die, DW_AT_const_value,
+ CONST_DOUBLE_HIGH (rtl), CONST_DOUBLE_LOW (rtl));
+ else
{
unsigned int length = GET_MODE_SIZE (mode);
unsigned char *array = (unsigned char *) ggc_alloc_atomic (length);
@@ -14036,9 +14207,6 @@ add_const_value_attribute (dw_die_ref di
insert_float (rtl, array);
add_AT_vec (die, DW_AT_const_value, length / 4, 4, array);
}
- else
- add_AT_double (die, DW_AT_const_value,
- CONST_DOUBLE_HIGH (rtl), CONST_DOUBLE_LOW (rtl));
}
return true;
@@ -14051,6 +14219,7 @@ add_const_value_attribute (dw_die_ref di
(length * elt_size);
unsigned int i;
unsigned char *p;
+ enum machine_mode imode = GET_MODE_INNER (mode);
switch (GET_MODE_CLASS (mode))
{
@@ -14058,15 +14227,8 @@ add_const_value_attribute (dw_die_ref di
for (i = 0, p = array; i < length; i++, p += elt_size)
{
rtx elt = CONST_VECTOR_ELT (rtl, i);
- double_int val = rtx_to_double_int (elt);
-
- if (elt_size <= sizeof (HOST_WIDE_INT))
- insert_int (val.to_shwi (), elt_size, p);
- else
- {
- gcc_assert (elt_size == 2 * sizeof (HOST_WIDE_INT));
- insert_double (val, p);
- }
+ wide_int val = wide_int::from_rtx (elt, imode);
+ insert_wide_int (&val, p);
}
break;
@@ -21863,6 +22025,9 @@ hash_loc_operands (dw_loc_descr_ref loc,
hash = iterative_hash_object (val2->v.val_double.low, hash);
hash = iterative_hash_object (val2->v.val_double.high, hash);
break;
+ case dw_val_class_wide_int:
+ hash = iterative_hash_object (val2->v.val_wide, hash);
+ break;
case dw_val_class_addr:
hash = iterative_hash_rtx (val2->v.val_addr, hash);
break;
@@ -21941,6 +22106,9 @@ hash_loc_operands (dw_loc_descr_ref loc,
hash = iterative_hash_object (val2->v.val_double.low, hash);
hash = iterative_hash_object (val2->v.val_double.high, hash);
break;
+ case dw_val_class_wide_int:
+ hash = iterative_hash_object (val2->v.val_wide, hash);
+ break;
default:
gcc_unreachable ();
}
@@ -22086,6 +22254,8 @@ compare_loc_operands (dw_loc_descr_ref x
case dw_val_class_const_double:
return valx2->v.val_double.low == valy2->v.val_double.low
&& valx2->v.val_double.high == valy2->v.val_double.high;
+ case dw_val_class_wide_int:
+ return valx2->v.val_wide == valy2->v.val_wide;
case dw_val_class_addr:
return rtx_equal_p (valx2->v.val_addr, valy2->v.val_addr);
default:
@@ -22122,6 +22292,8 @@ compare_loc_operands (dw_loc_descr_ref x
case dw_val_class_const_double:
return valx2->v.val_double.low == valy2->v.val_double.low
&& valx2->v.val_double.high == valy2->v.val_double.high;
+ case dw_val_class_wide_int:
+ return valx2->v.val_wide == valy2->v.val_wide;
default:
gcc_unreachable ();
}
Index: gcc/dwarf2out.h
===================================================================
--- gcc/dwarf2out.h (revision 191978)
+++ gcc/dwarf2out.h (working copy)
@@ -22,6 +22,7 @@ along with GCC; see the file COPYING3.
#define GCC_DWARF2OUT_H 1
#include "dwarf2.h" /* ??? Remove this once only used by dwarf2foo.c. */
+#include "wide-int.h"
typedef struct die_struct *dw_die_ref;
typedef const struct die_struct *const_dw_die_ref;
@@ -143,6 +144,7 @@ enum dw_val_class
dw_val_class_const,
dw_val_class_unsigned_const,
dw_val_class_const_double,
+ dw_val_class_wide_int,
dw_val_class_vec,
dw_val_class_flag,
dw_val_class_die_ref,
@@ -181,6 +183,7 @@ typedef struct GTY(()) dw_val_struct {
HOST_WIDE_INT GTY ((default)) val_int;
unsigned HOST_WIDE_INT GTY ((tag ("dw_val_class_unsigned_const"))) val_unsigned;
double_int GTY ((tag ("dw_val_class_const_double"))) val_double;
+ wide_int GTY ((tag ("dw_val_class_wide_int"))) val_wide;
dw_vec_const GTY ((tag ("dw_val_class_vec"))) val_vec;
struct dw_val_die_union
{
Index: gcc/wide-int.c
===================================================================
--- gcc/wide-int.c (revision 0)
+++ gcc/wide-int.c (revision 0)
@@ -0,0 +1,4257 @@
+/* Operations with very long integers.
+ Copyright (C) 2012 Free Software Foundation, Inc.
+ Contributed by Kenneth Zadeck <zadeck@naturalbridge.com>
+
+This file is part of GCC.
+
+GCC 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 3, or (at your option) any
+later version.
+
+GCC 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 GCC; see the file COPYING3. If not see
+<http://www.gnu.org/licenses/>. */
+
+#include "config.h"
+#include "system.h"
+#include "coretypes.h"
+#include "tm.h"
+#include "hwint.h"
+#include "wide-int.h"
+#include "rtl.h"
+#include "tree.h"
+#include "dumpfile.h"
+
+#define DEBUG_WIDE_INT
+#ifdef DEBUG_WIDE_INT
+ /* Debugging routines. */
+ static void debug_vw (const char* name, int r, const wide_int& o0);
+ static void debug_vwh (const char* name, int r, const wide_int &o0,
+ HOST_WIDE_INT o1);
+ static void debug_vww (const char* name, int r, const wide_int &o0,
+ const wide_int &o1);
+ static void debug_wv (const char* name, const wide_int &r, int v0);
+ static void debug_wvv (const char* name, const wide_int &r, int v0,
+ int v1);
+ static void debug_wvvv (const char* name, const wide_int &r, int v0,
+ int v1, int v2);
+ static void debug_wwv (const char* name, const wide_int &r,
+ const wide_int &o0, int v0);
+ static void debug_wwwvv (const char* name, const wide_int &r,
+ const wide_int &o0, const wide_int &o1,
+ int v0, int v1);
+ static void debug_ww (const char* name, const wide_int &r,
+ const wide_int &o0);
+ static void debug_www (const char* name, const wide_int &r,
+ const wide_int &o0, const wide_int &o1);
+ static void debug_wwwv (const char* name, const wide_int &r,
+ const wide_int &o0, const wide_int &o1,
+ int v0);
+ static void debug_wwww (const char* name, const wide_int &r,
+ const wide_int &o0, const wide_int &o1,
+ const wide_int &o2);
+#endif
+// using wide_int::;
+
+/* Debugging routines. */
+
+/* This is the maximal size of the buffer needed for dump. */
+const int MAX = (MAX_BITSIZE_MODE_ANY_INT / 4
+ + MAX_BITSIZE_MODE_ANY_INT / HOST_BITS_PER_WIDE_INT + 32);
+
+#ifdef DEBUG_WIDE_INT
+
+/*
+ * Internal utilities.
+ */
+
+/* Quantities to deal with values that hold half of a wide int. Used
+ in multiply and divide. */
+#define HALF_INT_MASK (((HOST_WIDE_INT)1 << HOST_BITS_PER_HALF_WIDE_INT) - 1)
+
+#define BLOCK_OF(TARGET) ((TARGET) / HOST_BITS_PER_WIDE_INT)
+#define BLOCKS_NEEDED(PREC) \
+ (((PREC) + HOST_BITS_PER_WIDE_INT - 1) / HOST_BITS_PER_WIDE_INT)
+
+/*
+ * Conversion routines in and out of wide-int.
+ */
+
+/* Convert OP0 into a wide int. If the precision is less than
+ HOST_BITS_PER_WIDE_INT, zero extend the value of the word. */
+
+wide_int
+wide_int::from_shwi (HOST_WIDE_INT op0, enum machine_mode mode)
+{
+ wide_int result;
+ int prec = GET_MODE_PRECISION (mode);
+
+ result.mode = mode;
+
+ if (prec < HOST_BITS_PER_WIDE_INT)
+ op0 = sext (op0, prec);
+
+ result.val[0] = op0;
+ result.len = 1;
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ {
+ char buf0[MAX];
+ fprintf (dump_file, "%s: %s = " HOST_WIDE_INT_PRINT_HEX "\n",
+ "wide_int::from_shwi", result.dump (buf0), op0);
+ }
+#endif
+
+ return result;
+}
+
+/* Convert OP0 into a wide int. If the precision is less than
+ HOST_BITS_PER_WIDE_INT, zero extend the value of the word. The
+ overflow bit are set if the number was too large to fit in the
+ mode. */
+
+wide_int
+wide_int::from_shwi (HOST_WIDE_INT op0, enum machine_mode mode, bool *overflow)
+{
+ wide_int result;
+ int prec = GET_MODE_PRECISION (mode);
+
+ result.mode = mode;
+
+ if (prec < HOST_BITS_PER_WIDE_INT)
+ {
+ HOST_WIDE_INT t = sext (op0, prec);
+ if (t != op0)
+ *overflow = true;
+ op0 = t;
+ }
+
+ result.val[0] = op0;
+ result.len = 1;
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ {
+ char buf0[MAX];
+ fprintf (dump_file, "%s: %s = " HOST_WIDE_INT_PRINT_HEX "\n",
+ "wide_int::from_shwi", result.dump (buf0), op0);
+ }
+#endif
+
+ return result;
+}
+
+/* Convert OP0 into a wide int. If the precision is less than
+ HOST_BITS_PER_WIDE_INT, zero extend the value of the word. */
+
+wide_int
+wide_int::from_uhwi (unsigned HOST_WIDE_INT op0, enum machine_mode mode)
+{
+ wide_int result;
+ int prec = GET_MODE_PRECISION (mode);
+
+ result.mode = mode;
+
+ if (prec < HOST_BITS_PER_WIDE_INT)
+ op0 = zext (op0, prec);
+
+ result.val[0] = op0;
+
+ /* If the top bit is a 1, we need to add another word of 0s since
+ that would not expand the right value since the infinite
+ expansion of any unsigned number must have 0s at the top. */
+ if ((HOST_WIDE_INT)op0 < 0 && prec > HOST_BITS_PER_WIDE_INT)
+ {
+ result.val[1] = 0;
+ result.len = 2;
+ }
+ else
+ result.len = 1;
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ {
+ char buf0[MAX];
+ fprintf (dump_file, "%s: %s = " HOST_WIDE_INT_PRINT_HEX "\n",
+ "wide_int::from_uhwi", result.dump (buf0), op0);
+ }
+#endif
+
+ return result;
+}
+
+/* Convert OP0 into a wide int. If the precision is less than
+ HOST_BITS_PER_WIDE_INT, zero extend the value of the word. The
+ overflow bit are set if the number was too large to fit in the
+ mode. */
+
+wide_int
+wide_int::from_uhwi (unsigned HOST_WIDE_INT op0, enum machine_mode mode, bool *overflow)
+{
+ wide_int result;
+ int prec = GET_MODE_PRECISION (mode);
+
+ result.mode = mode;
+
+ if (prec < HOST_BITS_PER_WIDE_INT)
+ {
+ unsigned HOST_WIDE_INT t = zext (op0, prec);
+ if (t != op0)
+ *overflow = true;
+ op0 = t;
+ }
+
+ result.val[0] = op0;
+
+ /* If the top bit is a 1, we need to add another word of 0s since
+ that would not expand the right value since the infinite
+ expansion of any unsigned number must have 0s at the top. */
+ if ((HOST_WIDE_INT)op0 < 0 && prec > HOST_BITS_PER_WIDE_INT)
+ {
+ result.val[1] = 0;
+ result.len = 2;
+ }
+ else
+ result.len = 1;
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ {
+ char buf0[MAX];
+ fprintf (dump_file, "%s: %s = " HOST_WIDE_INT_PRINT_HEX "\n",
+ "wide_int::from_uhwi", result.dump (buf0), op0);
+ }
+#endif
+
+ return result;
+}
+
+/* Convert a double int into a wide int. */
+
+wide_int
+wide_int::from_double_int (enum machine_mode mode, double_int di)
+{
+ wide_int result;
+ result.mode = mode;
+ result.len = 2;
+ result.val[0] = di.low;
+ result.val[1] = di.high;
+ result.canonize ();
+ return result;
+}
+
+/* Convert a integer cst into a wide int. */
+
+wide_int
+wide_int::from_int_cst (const_tree tcst)
+{
+#if 1
+ wide_int result;
+ tree type = TREE_TYPE (tcst);
+ int prec = TYPE_PRECISION (type);
+ HOST_WIDE_INT op = TREE_INT_CST_LOW (tcst);
+
+ result.mode = TYPE_MODE (type);
+ result.len = (prec <= HOST_BITS_PER_WIDE_INT) ? 1 : 2;
+
+ if (prec < HOST_BITS_PER_WIDE_INT)
+ {
+ if (TYPE_UNSIGNED (type))
+ result.val[0] = zext (op, prec);
+ else
+ result.val[0] = sext (op, prec);
+ }
+ else
+ {
+ result.val[0] = op;
+ if (prec > HOST_BITS_PER_WIDE_INT)
+ {
+ if (prec < HOST_BITS_PER_DOUBLE_INT)
+ {
+ op = TREE_INT_CST_HIGH (tcst);
+ if (TYPE_UNSIGNED (type))
+ result.val[1] = zext (op, prec);
+ else
+ result.val[1] = sext (op, prec);
+ }
+ else
+ result.val[1] = TREE_INT_CST_HIGH (tcst);
+ }
+ }
+
+ if (result.len == 2)
+ result.canonize ();
+
+ return result;
+#endif
+ /* This is the code once the tree level is converted. */
+#if 0
+ wide_int result;
+ int i;
+
+ tree type = TREE_TYPE (tcst);
+
+ result.mode = TYPE_MODE (type);
+ result.len = TREE_INT_CST_LEN (tcst);
+ for (i = 0; i < result.len; i++)
+ result.val[i] = TREE_INT_CST_ELT (tcst, i);
+
+ return result;
+#endif
+}
+
+/* Extract a constant integer from the X. The bits of the integer are
+ returned. */
+
+wide_int
+wide_int::from_rtx (const_rtx x, enum machine_mode mode)
+{
+ wide_int result;
+ int prec = GET_MODE_PRECISION (mode);
+
+ gcc_assert (mode != VOIDmode);
+
+ result.mode = mode;
+
+ switch (GET_CODE (x))
+ {
+ case CONST_INT:
+ if ((prec & (HOST_BITS_PER_WIDE_INT - 1)) != 0)
+ result.val[0] = sext (INTVAL (x), prec);
+ else
+ result.val[0] = INTVAL (x);
+ result.len = 1;
+ break;
+
+#if TARGET_SUPPORTS_WIDE_INT
+ case CONST_WIDE_INT:
+ {
+ int i;
+ result.len = CONST_WIDE_INT_NUNITS (x);
+
+ for (i = 0; i < result.len; i++)
+ result.val[i] = CONST_WIDE_INT_ELT (x, i);
+ }
+ break;
+#else
+ case CONST_DOUBLE:
+ result.len = 2;
+ result.val[0] = CONST_DOUBLE_LOW (x);
+ result.val[1] = CONST_DOUBLE_HIGH (x);
+ result.canonize ();
+ break;
+#endif
+
+ default:
+ gcc_unreachable ();
+ }
+
+ return result;
+}
+
+/* Return THIS as a signed HOST_WIDE_INT. If THIS does not fit in
+ PREC, the information is lost. */
+
+HOST_WIDE_INT
+wide_int::to_shwi (int prec) const
+{
+ HOST_WIDE_INT result;
+
+ if (prec < HOST_BITS_PER_WIDE_INT)
+ result = sext (val[0], prec);
+ else
+ result = val[0];
+
+ return result;
+}
+
+/* Return THIS as a signed HOST_WIDE_INT. If THIS is too large for
+ the mode's precision, the information is lost. */
+
+HOST_WIDE_INT
+wide_int::to_shwi () const
+{
+ return to_shwi (precision ());
+}
+
+/* Return THIS as an unsigned HOST_WIDE_INT. If THIS does not fit in
+ PREC, the information is lost. */
+
+unsigned HOST_WIDE_INT
+wide_int::to_uhwi (int prec) const
+{
+ HOST_WIDE_INT result;
+
+ if (prec < HOST_BITS_PER_WIDE_INT)
+ result = zext (val[0], prec);
+ else
+ result = val[0];
+
+ return result;
+}
+
+/* Return THIS as an unsigned HOST_WIDE_INT. If THIS is too large for
+ the mode's precision, the information is lost. */
+
+unsigned HOST_WIDE_INT
+wide_int::to_uhwi () const
+{
+ return to_uhwi (precision ());
+}
+
+/*
+ * Largest and smallest values in a mode.
+ */
+
+/* Produce the largest number that is represented in MODE. The result
+ is a wide_int of MODE. SGN must be SIGNED or UNSIGNED. */
+
+wide_int
+wide_int::max_value (const enum machine_mode mode, Op sgn)
+{
+ return max_value (mode, GET_MODE_PRECISION (mode), sgn);
+}
+
+/* Produce the largest number that is represented in PREC. The result
+ is a wide_int of MODE. SGN must be SIGNED or UNSIGNED. */
+
+wide_int
+wide_int::max_value (const enum machine_mode mode, int prec, Op sgn)
+{
+ wide_int result;
+
+ result.mode = mode;
+
+ if (sgn == UNSIGNED)
+ {
+ /* The unsigned max is just all ones, for which the compressed
+ rep is just a single HWI. */
+ result.len = 1;
+ result.val[0] = (HOST_WIDE_INT)-1;
+ }
+ else
+ {
+ /* The signed max is all ones except the top bit. This must be
+ explicitly represented. */
+ int i;
+ int small_prec = prec & (HOST_BITS_PER_WIDE_INT - 1);
+ int shift = (small_prec == 0)
+ ? HOST_BITS_PER_WIDE_INT - 1 : small_prec - 1;
+
+ result.len = BLOCKS_NEEDED (prec);
+ for (i = 0; i < result.len - 1; i++)
+ result.val[i] = (HOST_WIDE_INT)-1;
+
+ result.val[result.len - 1] = ((HOST_WIDE_INT)1 << shift) - 1;
+ }
+
+ return result;
+}
+
+/* Produce the smallest number that is represented in MODE. The result
+ is a wide_int of MODE. SGN must be SIGNED or UNSIGNED. */
+
+wide_int
+wide_int::min_value (const enum machine_mode mode, Op sgn)
+{
+ return min_value (mode, GET_MODE_PRECISION (mode), sgn);
+}
+
+/* Produce the smallest number that is represented in PREC. The result
+ is a wide_int of MODE. SGN must be SIGNED or UNSIGNED. */
+
+wide_int
+wide_int::min_value (const enum machine_mode mode, int prec, Op sgn)
+{
+ if (sgn == UNSIGNED)
+ {
+ /* The unsigned min is just all zeros, for which the compressed
+ rep is just a single HWI. */
+ wide_int result;
+ result.len = 1;
+ result.mode = mode;
+ result.val[0] = 0;
+ return result;
+ }
+ else
+ {
+ /* The signed min is all zeros except the top bit. This must be
+ explicitly represented. */
+ return set_bit_in_zero (prec - 1, mode);
+ }
+}
+
+/*
+ * Public utilities.
+ */
+
+/* Check the upper HOST_WIDE_INTs of src to see if the length can be
+ shortened. An upper HOST_WIDE_INT is unnecessary if it is all ones
+ or zeros and the top bit of the next lower word matches.
+
+ This function may change the representation of THIS, but does not
+ change the value that THIS represents. It does not sign extend in
+ the case that the size of the mode is less than
+ HOST_BITS_PER_WIDE_INT. */
+
+void
+wide_int::canonize ()
+{
+ int prec = precision ();
+ int small_prec = prec & (HOST_BITS_PER_WIDE_INT - 1);
+ int blocks_needed = BLOCKS_NEEDED (prec);
+ HOST_WIDE_INT top;
+ int i;
+
+ if (len > blocks_needed)
+ len = blocks_needed;
+
+ /* Clean up the top bits for any mode that is not a multiple of a HWI. */
+ if (len == blocks_needed && small_prec)
+ val[len - 1] = sext (val[len - 1], small_prec);
+
+ if (len == 1)
+ return;
+
+ top = val[len - 1];
+ if (top != 0 && top != (HOST_WIDE_INT)-1)
+ return;
+
+ /* At this point we know that the top is either 0 or -1. Find the
+ first block that is not a copy of this. */
+ for (i = len - 2; i >= 0; i--)
+ {
+ HOST_WIDE_INT x = val[i];
+ if (x != top)
+ {
+ if (x >> (HOST_BITS_PER_WIDE_INT - 1) == top)
+ {
+ len = i + 1;
+ return;
+ }
+
+ /* We need an extra block because the top bit block i does
+ not match the extension. */
+ len = i + 2;
+ return;
+ }
+ }
+
+ /* The number is 0 or -1. */
+ len = 1;
+}
+
+/* Copy THIS replacing the mode with MODE. */
+
+wide_int
+wide_int::copy (enum machine_mode mode) const
+{
+ wide_int result;
+ int prec = GET_MODE_PRECISION (mode);
+ int small_prec = prec & (HOST_BITS_PER_WIDE_INT - 1);
+ int blocks_needed = BLOCKS_NEEDED (prec);
+ int i;
+
+ result.mode = mode;
+ result.len = blocks_needed < len ? blocks_needed : len;
+ for (i = 0; i < result.len; i++)
+ result.val[i] = val[i];
+
+ if (small_prec & (blocks_needed == len))
+ result.val[blocks_needed-1]
+ = sext (result.val[blocks_needed-1], small_prec);
+ return result;
+}
+
+/*
+ * public printing routines.
+ */
+
+/* Try to print the signed self in decimal to BUF if the number fits
+ in a HWI. Other print in hex. */
+
+void
+wide_int::print_decs (char *buf) const
+{
+ if ((precision () <= HOST_BITS_PER_WIDE_INT)
+ || (len == 1 && !neg_p ()))
+ sprintf (buf, HOST_WIDE_INT_PRINT_DEC, val[0]);
+ else
+ print_hex (buf);
+}
+
+/* Try to print the signed self in decimal to FILE if the number fits
+ in a HWI. Other print in hex. */
+
+void
+wide_int::print_decs (FILE *file) const
+{
+ char buf[(2 * MAX_BITSIZE_MODE_ANY_INT / BITS_PER_UNIT) + 4];
+ print_decs (buf);
+ fputs (buf, file);
+}
+
+/* Try to print the unsigned self in decimal to BUF if the number fits
+ in a HWI. Other print in hex. */
+
+void
+wide_int::print_decu (char *buf) const
+{
+ if ((precision () <= HOST_BITS_PER_WIDE_INT)
+ || (len == 1 && !neg_p ()))
+ sprintf (buf, HOST_WIDE_INT_PRINT_UNSIGNED, val[0]);
+ else
+ print_hex (buf);
+}
+
+/* Try to print the signed self in decimal to FILE if the number fits
+ in a HWI. Other print in hex. */
+
+void
+wide_int::print_decu (FILE *file) const
+{
+ char buf[(2 * MAX_BITSIZE_MODE_ANY_INT / BITS_PER_UNIT) + 4];
+ print_decu (buf);
+ fputs (buf, file);
+}
+
+void
+wide_int::print_hex (char *buf) const
+{
+ int i = len;
+
+ if (zero_p ())
+ sprintf (buf, "0x");
+ else
+ {
+ if (neg_p ())
+ {
+ int j;
+ /* If the number is negative, we may need to pad value with
+ 0xFFF... because the leading elements may be missing and
+ we do not print a '-' with hex. */
+ for (j = BLOCKS_NEEDED (precision ()); j > i; j--)
+ buf += sprintf (buf, HOST_WIDE_INT_PRINT_PADDED_HEX, (HOST_WIDE_INT) -1);
+
+ }
+ else
+ buf += sprintf (buf, HOST_WIDE_INT_PRINT_HEX, val [--i]);
+ while (-- i >= 0)
+ buf += sprintf (buf, HOST_WIDE_INT_PRINT_PADDED_HEX, val [i]);
+ }
+}
+
+/* Print one big hex number to FILE. Note that some assemblers may not
+ accept this for large modes. */
+void
+wide_int::print_hex (FILE *file) const
+{
+ char buf[(2 * MAX_BITSIZE_MODE_ANY_INT / BITS_PER_UNIT) + 4];
+ print_hex (buf);
+ fputs (buf, file);
+}
+
+/*
+ * Comparisons, note that only equality is an operator. The other
+ * comparisons cannot be operators since they are inherently singed or
+ * unsigned and C++ has no such operators.
+ */
+
+/* Return true if THIS == OP1. */
+
+bool
+wide_int::operator == (const wide_int &op1) const
+{
+ int l0 = len - 1;
+ int l1 = op1.len - 1;
+ int prec = precision ();
+ bool result;
+
+ gcc_assert (mode == op1.mode);
+
+ if (this == &op1)
+ {
+ result = true;
+ goto ex;
+ }
+
+ if (prec < HOST_BITS_PER_WIDE_INT)
+ {
+ unsigned HOST_WIDE_INT mask = ((HOST_WIDE_INT)1 << prec) - 1;
+ result = (val[0] & mask) == (op1.val[0] & mask);
+ goto ex;
+ }
+
+ while (l0 > l1)
+ if (val[l0--] != op1.sign_mask ())
+ {
+ result = false;
+ goto ex;
+ }
+
+ while (l1 > l0)
+ if (op1.val[l1--] != sign_mask ())
+ {
+ result = false;
+ goto ex;
+ }
+
+ while (l0 >= 0)
+ if (val[l0--] != op1.val[l1--])
+ {
+ result = false;
+ goto ex;
+ }
+
+ result = true;
+
+ ex:
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_vww ("operator ==", result, *this, op1);
+#endif
+
+ return result;
+}
+
+/* Return true if THIS > OP1 using signed comparisons. */
+
+bool
+wide_int::gts_p (const HOST_WIDE_INT op1) const
+{
+ int prec = precision ();
+ bool result;
+
+ if (prec <= HOST_BITS_PER_WIDE_INT || len == 1)
+ {
+ /* The values are already logically sign extended. */
+ result = val[0] > wide_int::sext(op1, prec);
+ goto ex;
+ }
+
+ result = !neg_p ();
+
+ ex:
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_vwh ("wide_int::gts_p", result, *this, op1);
+#endif
+
+ return result;
+}
+
+/* Return true if THIS > OP1 using unsigned comparisons. */
+
+bool
+wide_int::gtu_p (const unsigned HOST_WIDE_INT op1) const
+{
+ unsigned HOST_WIDE_INT x0;
+ unsigned HOST_WIDE_INT x1;
+ int prec = precision ();
+ bool result;
+
+ if (prec < HOST_BITS_PER_WIDE_INT || len == 1)
+ {
+ x0 = zext (val[0], prec);
+ x1 = zext (op1, prec);
+
+ result = x0 > x1;
+ }
+ else
+ result = true;
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_vwh ("wide_int::gtu_p", result, *this, op1);
+#endif
+
+ return result;
+}
+
+/* Return true if THIS < OP1 using signed comparisons. */
+
+bool
+wide_int::lts_p (const HOST_WIDE_INT op1) const
+{
+ int prec = precision ();
+ bool result;
+
+ if (prec <= HOST_BITS_PER_WIDE_INT || len == 1)
+ {
+ /* The values are already logically sign extended. */
+ result = val[0] < wide_int::sext(op1, prec);
+ goto ex;
+ }
+
+ result = neg_p ();
+
+ ex:
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_vwh ("wide_int::lts_p", result, *this, op1);
+#endif
+
+ return result;
+}
+
+/* Return true if THIS < OP1 using signed comparisons. */
+
+bool
+wide_int::lts_p (const wide_int &op1) const
+{
+ int l0 = len - 1;
+ int l1 = op1.len - 1;
+ int prec = precision ();
+ bool result;
+
+ gcc_assert (mode == op1.mode);
+
+ if (this == &op1)
+ {
+ result = false;
+ goto ex;
+ }
+
+ if (prec <= HOST_BITS_PER_WIDE_INT)
+ {
+ /* The values are already logically sign extended. */
+ result = val[0] < op1.val[0];
+ goto ex;
+ }
+
+ while (l0 > l1)
+ if (val[l0--] < op1.sign_mask ())
+ {
+ result = true;
+ goto ex;
+ }
+
+ while (l1 > l0)
+ if (sign_mask () < op1.val[l1--])
+ {
+ result = true;
+ goto ex;
+ }
+
+ while (l0 >= 0)
+ if (val[l0--] < op1.val[l1--])
+ {
+ result = true;
+ goto ex;
+ }
+
+ result = false;
+
+ ex:
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_vww ("wide_int::lts_p", result, *this, op1);
+#endif
+
+ return result;
+}
+
+/* Return true if THIS < OP1 using unsigned comparisons. */
+
+bool
+wide_int::ltu_p (const unsigned HOST_WIDE_INT op1) const
+{
+ unsigned HOST_WIDE_INT x0;
+ unsigned HOST_WIDE_INT x1;
+ int prec = precision ();
+ bool result;
+
+ if (prec < HOST_BITS_PER_WIDE_INT || len == 1)
+ {
+ x0 = zext (val[0], prec);
+ x1 = zext (op1, prec);
+
+ result = x0 < x1;
+ }
+ else
+ result = false;
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_vwh ("wide_int::ltu_p", result, *this, op1);
+#endif
+
+ return result;
+}
+
+/* Return true if THIS < OP1 using unsigned comparisons. */
+
+bool
+wide_int::ltu_p (const wide_int &op1) const
+{
+ unsigned HOST_WIDE_INT x0;
+ unsigned HOST_WIDE_INT x1;
+ int l0 = len - 1;
+ int l1 = op1.len - 1;
+ int prec = precision ();
+ bool result;
+
+ gcc_assert (mode == op1.mode);
+
+ if (this == &op1)
+ {
+ result = false;
+ goto ex;
+ }
+
+ if (prec < HOST_BITS_PER_WIDE_INT)
+ {
+ x0 = zext (val[0], prec);
+ x1 = zext (op1.val[0], prec);
+
+ result = x0 < x1;
+ goto ex;
+ }
+
+ while (l0 > l1)
+ {
+ x0 = val[l0--];
+ x1 = op1.sign_mask ();
+ if (x0 < x1)
+ {
+ result = true;
+ goto ex;
+ }
+ }
+
+ while (l1 > l0)
+ {
+ x0 = sign_mask ();
+ x1 = op1.val[l1--];
+ if (x0 < x1)
+ {
+ result = true;
+ goto ex;
+ }
+ }
+
+ while (l0 >= 0)
+ {
+ x0 = val[l0--];
+ x1 = op1.val[l1--];
+ if (x0 < x1)
+ {
+ result = true;
+ goto ex;
+ }
+ }
+
+ result = false;
+
+ ex:
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_vww ("wide_int::ltu_p", result, *this, op1);
+#endif
+
+ return result;
+}
+
+/* Return true if THIS has the sign bit set to 1 and all other bits are
+ zero. */
+
+bool
+wide_int::only_sign_bit_p (int prec) const
+{
+ int i;
+ HOST_WIDE_INT x;
+ int small_prec;
+ bool result;
+
+ if (BLOCKS_NEEDED (prec) != len)
+ {
+ result = false;
+ goto ex;
+ }
+
+ for (i=0; i < len - 1; i++)
+ if (val[i] != 0)
+ {
+ result = false;
+ goto ex;
+ }
+
+ x = val[len - 1];
+ small_prec = prec & (HOST_BITS_PER_WIDE_INT - 1);
+ if (small_prec)
+ x = x << (HOST_BITS_PER_WIDE_INT - small_prec);
+
+ result = x == ((HOST_WIDE_INT)1) << (HOST_BITS_PER_WIDE_INT - 1);
+
+ ex:
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_vw ("wide_int::only_sign_bit_p", result, *this);
+#endif
+
+ return result;
+}
+
+bool
+wide_int::only_sign_bit_p () const
+{
+ int prec = precision ();
+ return only_sign_bit_p (prec);
+}
+
+/* Returns true if THIS fits into range of TYPE. Signedness of OP0 is
+ assumed to be the same as the signedness of TYPE. */
+
+bool
+wide_int::fits_to_tree_p (const_tree type) const
+{
+ int type_prec = TYPE_PRECISION (type);
+
+ if (TYPE_UNSIGNED (type))
+ return fits_u_p (type_prec);
+ else
+ return fits_s_p (type_prec);
+}
+
+/* Returns true of THIS fits in the unsigned range of precision. */
+
+bool
+wide_int::fits_s_p (int prec) const
+{
+ if (len < BLOCKS_NEEDED (prec))
+ return true;
+
+ if (precision () <= prec)
+ return true;
+
+ return *this == sext (prec);
+}
+
+
+/* Returns true if THIS fits into range of TYPE. */
+
+bool
+wide_int::fits_u_p (int prec) const
+{
+ if (len < BLOCKS_NEEDED (prec))
+ return true;
+
+ if (precision () <= prec)
+ return true;
+
+ return *this == zext (prec);
+}
+
+/*
+ * Extension.
+ */
+
+/* Sign extend THIS starting at OFFSET within the precision of the mode. */
+
+wide_int
+wide_int::sext (int offset) const
+{
+ wide_int result;
+ int off;
+ int prec = precision ();
+
+ gcc_assert (prec >= offset);
+
+ result.mode = mode;
+ if (prec < HOST_BITS_PER_WIDE_INT)
+ {
+ result.val[0] = sext (val[0], offset);
+ result.len = 1;
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_wwv ("wide_int::sext", result, *this, offset);
+#endif
+
+ return result;
+ }
+
+ if (prec == offset)
+ {
+ result = copy (mode);
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_wwv ("wide_int::sext", result, *this, offset);
+#endif
+ return result;
+ }
+
+ result = decompress (offset, mode);
+
+ /* Now we can do the real sign extension. */
+ off = offset & (HOST_BITS_PER_WIDE_INT - 1);
+ if (off)
+ {
+ int block = BLOCK_OF (offset);
+ result.val[block] = sext (val[block], off);
+ result.len = block + 1;
+ }
+ /* We never need an extra element for sign extended values. */
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_wwv ("wide_int::sext", result, *this, offset);
+#endif
+
+ return result;
+}
+
+/* Sign extend THIS to mode M. */
+
+wide_int
+wide_int::sext (enum machine_mode m) const
+{
+ if (GET_MODE_PRECISION (m) >= precision ())
+ /* Assuming that MODE is larger than op0-> mode, the compressed
+ value of op0 and the result will be the same. The only thing
+ that is different is that the mode of the result will be
+ different. */
+ return copy (m);
+
+ return truncate (m);
+}
+
+/* Zero extend THIS starting at OFFSET within the precision of the mode. */
+
+wide_int
+wide_int::zext (int offset) const
+{
+ wide_int result;
+ int off;
+ int block;
+ int prec = precision ();
+
+ gcc_assert (prec >= offset);
+
+ result.mode = mode;
+ if (prec < HOST_BITS_PER_WIDE_INT)
+ {
+ result.val[0] = zext (val[0], offset);
+ result.len = 1;
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_wwv ("wide_int::zext", result, *this, offset);
+#endif
+
+ return result;
+ }
+
+ if (prec == offset)
+ {
+ result = copy (mode);
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_wwv ("wide_int::zext", result, *this, offset);
+#endif
+ return result;
+ }
+
+ result = decompress (offset, mode);
+
+ /* Now we can do the real zero extension. */
+ off = offset & (HOST_BITS_PER_WIDE_INT - 1);
+ block = BLOCK_OF (offset);
+ if (off)
+ {
+ result.val[block] = zext (val[block], off);
+ result.len = block + 1;
+ }
+ else
+ /* See if we need an extra zero element to satisfy the compression
+ rule. */
+ if (val[block - 1] < 0 && offset < prec)
+ {
+ result.val[block] = 0;
+ result.len += 1;
+ }
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_wwv ("wide_int::zext", result, *this, offset);
+#endif
+
+ return result;
+}
+
+/* Zero extend THIS to mode M. */
+
+wide_int
+wide_int::zext (enum machine_mode m) const
+{
+ wide_int result;
+ int off;
+ int block;
+ int op0_prec = precision ();
+ int res_prec = GET_MODE_PRECISION (m);
+
+ gcc_assert (res_prec >= op0_prec);
+
+ result.mode = m;
+
+ if (res_prec < HOST_BITS_PER_WIDE_INT)
+ {
+ result.val[0] = zext (val[0], op0_prec);
+ result.len = 1;
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_wwv ("wide_int::zext", result, *this, res_prec);
+#endif
+ return result;
+ }
+
+ result = decompress (op0_prec, m);
+
+ /* Now we can do the real zero extension. */
+ off = op0_prec & (HOST_BITS_PER_WIDE_INT - 1);
+ block = BLOCK_OF (op0_prec);
+ if (off)
+ {
+ result.val[block] = zext (val[block], off);
+ result.len = block + 1;
+ }
+ else
+ /* See if we need an extra zero element to satisfy the compression
+ rule. */
+ if (val[block - 1] < 0 && op0_prec < res_prec)
+ {
+ result.val[block] = 0;
+ result.len += 1;
+ }
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_wwv ("wide_int::zext", result, *this, res_prec);
+#endif
+
+ return result;
+}
+
+/*
+ * Masking, inserting, shifting, rotating.
+ */
+
+/* Return a value with a one bit inserted in THIS at BITPOS. */
+
+wide_int
+wide_int::set_bit (int bitpos) const
+{
+ wide_int result;
+ int i, j;
+
+ if (bitpos >= precision ())
+ result = copy (mode);
+ else
+ {
+ result = decompress (bitpos, mode);
+ j = bitpos / HOST_BITS_PER_WIDE_INT;
+ i = bitpos & (HOST_BITS_PER_WIDE_INT - 1);
+ result.val[j] |= ((HOST_WIDE_INT)1) << i;
+ }
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_wwv ("wide_int::set_bit", result, *this, bitpos);
+#endif
+
+ return result;
+}
+
+/* Insert a 1 bit into 0 at BITPOS producing an number with MODE. */
+
+wide_int
+wide_int::set_bit_in_zero (int bitpos, enum machine_mode mode)
+{
+ wide_int result;
+ int blocks_needed = BLOCKS_NEEDED (bitpos);
+ int i, j;
+
+ result.mode = mode;
+ if (bitpos >= GET_MODE_PRECISION (mode))
+ {
+ result.len = 1;
+ result.val[0] = 0;
+ }
+ else
+ {
+ result.len = blocks_needed;
+ for (i = 0; i < blocks_needed; i++)
+ result.val[i] = 0;
+
+ j = bitpos / HOST_BITS_PER_WIDE_INT;
+ i = bitpos & (HOST_BITS_PER_WIDE_INT - 1);
+ result.val[j] |= ((HOST_WIDE_INT)1) << i;
+ }
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_wv ("wide_int::set_bit_in_zero", result, bitpos);
+#endif
+
+ return result;
+}
+
+/* Insert WIDTH bits from OP0 into THIS starting at START. */
+
+wide_int
+wide_int::insert (const wide_int &op0, int start, int width) const
+{
+ wide_int result;
+ wide_int mask;
+ wide_int tmp;
+ int prec = precision ();
+
+ if (start + width >= prec)
+ {
+ width = prec - start;
+ if (width < 0)
+ {
+ width = 0;
+ start = prec;
+ }
+ }
+
+ mask = shifted_mask (start, width, false, mode);
+ tmp = op0.lshift (start, NONE, mode);
+ result = tmp & mask;
+
+ tmp = and_not (mask);
+ result = result | tmp;
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_wwwvv ("wide_int::insert", result, *this, op0, start, width);
+#endif
+
+ return result;
+}
+
+/* bswap THIS. */
+
+wide_int
+wide_int::bswap () const
+{
+ wide_int result;
+ int i, s;
+ int end;
+ int prec = precision ();
+ int len = BLOCKS_NEEDED (prec);
+ HOST_WIDE_INT mask = sign_mask ();
+
+ /* This is not a well defined operation if the precision is not a
+ multiple of 8. */
+ gcc_assert ((prec & 0x7) == 0);
+
+ result.mode = mode;
+ result.len = len;
+
+ for (i = 0; i < len; i++)
+ result.val[0] = mask;
+
+ /* Only swap the bytes that are not the padding. */
+ if ((prec & (HOST_BITS_PER_WIDE_INT - 1))
+ && (this->len == len))
+ end = prec;
+ else
+ end = this->len * HOST_BITS_PER_WIDE_INT;
+
+ for (s = 0; s < end; s += 8)
+ {
+ unsigned int d = prec - s - 8;
+ unsigned HOST_WIDE_INT byte;
+
+ int block = s / HOST_BITS_PER_WIDE_INT;
+ int offset = s & (HOST_BITS_PER_WIDE_INT - 1);
+
+ byte = (val[block] >> offset) & 0xff;
+
+ block = d / HOST_BITS_PER_WIDE_INT;
+ offset = d & (HOST_BITS_PER_WIDE_INT - 1);
+
+ result.val[block] &= ((((HOST_WIDE_INT)1 << offset) + 8)
+ - ((HOST_WIDE_INT)1 << offset));
+ result.val[block] |= byte << offset;
+ }
+
+ result.canonize ();
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_ww ("wide_int::bswap", result, *this);
+#endif
+
+ return result;
+}
+
+/* Return a result mask where the lower WIDTH bits are ones and the
+ bits above that up to the precision are zeros. The result is
+ inverted if NEGATE is true. */
+
+wide_int
+wide_int::mask (int width, bool negate, enum machine_mode mode)
+{
+ wide_int result;
+ int i = 0;
+ int shift;
+
+ if (width == 0)
+ {
+ if (negate)
+ result = wide_int_minus_one (mode);
+ else
+ result = wide_int_zero (mode);
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_wvv ("wide_int::mask", result, width, negate);
+#endif
+ return result;
+ }
+
+ result.mode = mode;
+
+ while (i < width / HOST_BITS_PER_WIDE_INT)
+ result.val[i++] = negate ? 0 : (HOST_WIDE_INT)-1;
+
+ shift = width & (HOST_BITS_PER_WIDE_INT - 1);
+ if (shift != 0)
+ {
+ HOST_WIDE_INT last = (((HOST_WIDE_INT)1) << shift) - 1;
+ result.val[i++] = negate ? ~last : last;
+ }
+ result.len = i;
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_wvv ("wide_int::mask", result, width, negate);
+#endif
+
+ return result;
+}
+
+/* Return a result mask of WIDTH ones starting at START and the
+ bits above that up to the precision are zeros. The result is
+ inverted if NEGATE is true. */
+
+wide_int
+wide_int::shifted_mask (int start, int width, bool negate,
+ enum machine_mode mode)
+{
+ wide_int result;
+ int i = 0;
+ int shift;
+ int end = start + width;
+ HOST_WIDE_INT block;
+ int prec = GET_MODE_PRECISION (mode);
+
+ if (start + width > prec)
+ {
+ width = prec - start;
+ if (width < 0)
+ {
+ width = 0;
+ start = prec;
+ }
+ }
+
+ if (width == 0)
+ {
+ if (negate)
+ result = wide_int_minus_one (mode);
+ else
+ result = wide_int_zero (mode);
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_wvv ("wide_int::shifted_mask", result, width, negate);
+#endif
+ return result;
+ }
+
+ result.mode = mode;
+
+ while (i < start / HOST_BITS_PER_WIDE_INT)
+ result.val[i++] = negate ? (HOST_WIDE_INT)-1 : 0;
+
+ shift = start & (HOST_BITS_PER_WIDE_INT - 1);
+ if (shift)
+ {
+ block = (((HOST_WIDE_INT)1) << shift) - 1;
+ shift = (end) & (HOST_BITS_PER_WIDE_INT - 1);
+ if (shift)
+ {
+ /* case 000111000 */
+ block = (((HOST_WIDE_INT)1) << shift) - block - 1;
+ result.val[i++] = negate ? ~block : block;
+ result.len = i;
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_wvvv ("wide_int::shifted_mask", result, start,
+ width, negate);
+#endif
+ return result;
+ }
+ else
+ /* ...111000 */
+ result.val[i++] = negate ? block : ~block;
+ }
+
+ while (i < end / HOST_BITS_PER_WIDE_INT)
+ /* 1111111 */
+ result.val[i++] = negate ? 0 : (HOST_WIDE_INT)-1;
+
+ shift = end & (HOST_BITS_PER_WIDE_INT - 1);
+ if (shift != 0)
+ {
+ /* 000011111 */
+ block = (((HOST_WIDE_INT)1) << shift) - 1;
+ result.val[i++] = negate ? ~block : block;
+ }
+
+ result.len = i;
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_wvvv ("wide_int::shifted_mask", result, start, width,
+ negate);
+#endif
+
+ return result;
+}
+
+
+/*
+ * logical operations.
+ */
+
+/* Return THIS & OP1. */
+
+wide_int
+wide_int::operator & (const wide_int &op1) const
+{
+ wide_int result;
+ int l0 = len - 1;
+ int l1 = op1.len - 1;
+ bool need_canon = true;
+
+ gcc_assert (mode == op1.mode);
+
+ result.len = len > op1.len ? len : op1.len;
+ result.mode = mode;
+
+ if (l0 > l1)
+ {
+ if (op1.sign_mask () == 0)
+ {
+ l0 = l1;
+ result.len = l1 + 1;
+ }
+ else
+ {
+ need_canon = false;
+ while (l0 > l1)
+ {
+ result.val[l0] = val[l0];
+ l0--;
+ }
+ }
+ }
+ else if (l1 > l0)
+ {
+ if (sign_mask () == 0)
+ result.len = l0 + 1;
+ else
+ {
+ need_canon = false;
+ while (l1 > l0)
+ {
+ result.val[l0] = op1.val[l0];
+ l1--;
+ }
+ }
+ }
+
+ while (l0 >= 0)
+ {
+ result.val[l0] = val[l0] & op1.val[l0];
+ l0--;
+ }
+
+ if (need_canon)
+ result.canonize ();
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_www ("wide_int::operator &", result, *this, op1);
+#endif
+ return result;
+}
+
+/* Return THIS & ~OP1. */
+
+wide_int
+wide_int::and_not (const wide_int &op1) const
+{
+ wide_int result;
+ int l0 = len - 1;
+ int l1 = op1.len - 1;
+ bool need_canon = true;
+
+ gcc_assert (mode == op1.mode);
+
+ result.len = len > op1.len ? len : op1.len;
+ result.mode = mode;
+
+ if (l0 > l1)
+ {
+ if (op1.sign_mask () != 0)
+ {
+ l0 = l1;
+ result.len = l1 + 1;
+ }
+ else
+ {
+ need_canon = false;
+ while (l0 > l1)
+ {
+ result.val[l0] = val[l0];
+ l0--;
+ }
+ }
+ }
+ else if (l1 > l0)
+ {
+ if (sign_mask () == 0)
+ result.len = l0 + 1;
+ else
+ {
+ need_canon = false;
+ while (l1 > l0)
+ {
+ result.val[l0] = ~op1.val[l0];
+ l1--;
+ }
+ }
+ }
+
+ while (l0 >= 0)
+ {
+ result.val[l0] = val[l0] & ~op1.val[l0];
+ l0--;
+ }
+
+ if (need_canon)
+ result.canonize ();
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_www ("wide_int::and_not", result, *this, op1);
+#endif
+ return result;
+}
+
+/* Return THIS | OP1. */
+
+wide_int
+wide_int::operator | (const wide_int &op1) const
+{
+ wide_int result;
+ int l0 = len - 1;
+ int l1 = op1.len - 1;
+ bool need_canon = true;
+
+ gcc_assert (mode == op1.mode);
+
+ result.len = len > op1.len ? len : op1.len;
+ result.mode = mode;
+
+ if (l0 > l1)
+ {
+ if (op1.sign_mask () != 0)
+ {
+ l0 = l1;
+ result.len = l1 + 1;
+ }
+ else
+ {
+ need_canon = false;
+ while (l0 > l1)
+ {
+ result.val[l0] = val[l0];
+ l0--;
+ }
+ }
+ }
+ else if (l1 > l0)
+ {
+ if (sign_mask () != 0)
+ result.len = l0 + 1;
+ else
+ {
+ need_canon = false;
+ while (l1 > l0)
+ {
+ result.val[l0] = op1.val[l0];
+ l1--;
+ }
+ }
+ }
+
+ while (l0 >= 0)
+ {
+ result.val[l0] = val[l0] | op1.val[l0];
+ l0--;
+ }
+
+ if (need_canon)
+ result.canonize ();
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_www ("wide_int::operator |", result, *this, op1);
+#endif
+ return result;
+}
+
+/* Return the logical negation (bitwise complement) of THIS. */
+
+wide_int
+wide_int::operator ~ () const
+{
+ wide_int result;
+ int l0 = len - 1;
+
+ result.len = len;
+ result.mode = mode;
+
+ while (l0 >= 0)
+ {
+ result.val[l0] = ~val[l0];
+ l0--;
+ }
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_ww ("wide_int::operator ~", result, *this);
+#endif
+ return result;
+}
+
+/* Return THIS | ~OP1. */
+
+wide_int
+wide_int::or_not (const wide_int &op1) const
+{
+ wide_int result;
+ int l0 = len - 1;
+ int l1 = op1.len - 1;
+ bool need_canon = true;
+
+ gcc_assert (mode == op1.mode);
+
+ result.len = len > op1.len ? len : op1.len;
+ result.mode = mode;
+
+ if (l0 > l1)
+ {
+ if (op1.sign_mask () == 0)
+ {
+ l0 = l1;
+ result.len = l1 + 1;
+ }
+ else
+ {
+ need_canon = false;
+ while (l0 > l1)
+ {
+ result.val[l0] = val[l0];
+ l0--;
+ }
+ }
+ }
+ else if (l1 > l0)
+ {
+ if (sign_mask () != 0)
+ result.len = l0 + 1;
+ else
+ {
+ need_canon = false;
+ while (l1 > l0)
+ {
+ result.val[l0] = ~op1.val[l0];
+ l1--;
+ }
+ }
+ }
+
+ while (l0 >= 0)
+ {
+ result.val[l0] = val[l0] | ~op1.val[l0];
+ l0--;
+ }
+
+ if (need_canon)
+ result.canonize ();
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_www ("wide_int::and_not", result, *this, op1);
+#endif
+ return result;
+}
+
+/* Return the exclusive ior (xor) of THIS and OP1. */
+
+wide_int
+wide_int::operator ^ (const wide_int &op1) const
+{
+ wide_int result;
+ int l0 = len - 1;
+ int l1 = op1.len - 1;
+
+ gcc_assert (mode == op1.mode);
+
+ result.len = len > op1.len ? len : op1.len;
+ result.mode = mode;
+
+ while (l0 > l1)
+ {
+ result.val[l0] = val[l0] ^ op1.sign_mask ();
+ l0--;
+ }
+
+ while (l1 > l0)
+ {
+ result.val[l0] = sign_mask () ^ op1.val[l0];
+ l1--;
+ }
+
+ while (l0 >= 0)
+ {
+ result.val[l0] = val[l0] ^ op1.val[l0];
+ l0--;
+ }
+
+ result.canonize ();
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_www ("wide_int::operator ^", result, *this, op1);
+#endif
+ return result;
+}
+
+/*
+ * math
+ */
+
+/* Absolute value of THIS. */
+
+wide_int
+wide_int::abs () const
+{
+ if (sign_mask ())
+ return neg ();
+
+ wide_int result = copy (mode);
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_ww ("wide_int::abs", result, *this);
+#endif
+ return result;
+}
+
+/* Add of THIS and OP1. No overflow is detected. */
+
+wide_int
+wide_int::operator + (const wide_int &op1) const
+{
+ wide_int result;
+ unsigned HOST_WIDE_INT o0, o1;
+ unsigned HOST_WIDE_INT x = 0;
+ unsigned HOST_WIDE_INT carry = 0;
+ unsigned HOST_WIDE_INT mask0, mask1;
+ int prec = precision ();
+ unsigned int i, small_prec, stop;
+
+ gcc_assert (mode == op1.mode);
+
+ result.mode = mode;
+
+ if (prec <= HOST_BITS_PER_WIDE_INT)
+ {
+ result.len = 1;
+ o0 = val[0];
+ o1 = op1.val[0];
+ result.val[0] = sext (o0 + o1, prec);
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_www ("wide_int::operator +", result, *this, op1);
+#endif
+ return result;
+ }
+
+ stop = len > op1.len ? len : op1.len;
+ /* Need to do one extra block just to handle the special cases. */
+ if (stop < (unsigned)BLOCKS_NEEDED (prec))
+ stop++;
+
+ result.len = stop;
+ mask0 = sign_mask ();
+ mask1 = op1.sign_mask ();
+ /* Add all of the explicitly defined elements. */
+ for (i = 0; i < stop; i++)
+ {
+ o0 = i < len ? (unsigned HOST_WIDE_INT)val[i] : mask0;
+ o1 = i < op1.len ? (unsigned HOST_WIDE_INT)op1.val[i] : mask1;
+ x = o0 + o1 + carry;
+ result.val[i] = x;
+ carry = x < o0;
+ }
+
+ small_prec = prec & (HOST_BITS_PER_WIDE_INT - 1);
+ if (small_prec != 0 && BLOCKS_NEEDED (prec) == result.len)
+ {
+ /* Modes with weird precisions. */
+ i = result.len - 1;
+ result.val[i] = sext (result.val[i], small_prec);
+ }
+
+ result.canonize ();
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_www ("wide_int::operator +", result, *this, op1);
+#endif
+ return result;
+}
+
+/* Add of THIS and signed OP1. No overflow is detected. */
+
+wide_int
+wide_int::operator + (HOST_WIDE_INT op1) const
+{
+ wide_int result;
+ unsigned HOST_WIDE_INT o0, o1;
+ unsigned HOST_WIDE_INT x = 0;
+ unsigned HOST_WIDE_INT carry = 0;
+ unsigned HOST_WIDE_INT mask0, mask1;
+ int prec = precision ();
+ unsigned int i, small_prec, stop;
+
+ result.mode = mode;
+
+ if (prec <= HOST_BITS_PER_WIDE_INT)
+ {
+ result.len = 1;
+ o0 = val[0];
+ result.val[0] = sext (o0 + op1, prec);
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_wwv ("wide_int::add", result, *this, op1);
+#endif
+ return result;
+ }
+
+ stop = len;
+ /* Need to do one extra block just to handle the special cases. */
+ if (stop < (unsigned)BLOCKS_NEEDED (prec))
+ stop++;
+
+ result.len = stop;
+ mask0 = sign_mask ();
+ mask1 = op1 >> (HOST_BITS_PER_WIDE_INT - 1);
+ /* Add all of the explicitly defined elements. */
+ for (i = 0; i < len; i++)
+ {
+ o0 = i < len ? (unsigned HOST_WIDE_INT)val[i] : mask0;
+ o1 = i < 1 ? (unsigned HOST_WIDE_INT)op1 : mask1;
+ x = o0 + o1 + carry;
+ result.val[i] = x;
+ carry = x < o0;
+ }
+
+ small_prec = prec & (HOST_BITS_PER_WIDE_INT - 1);
+ if (small_prec != 0 && BLOCKS_NEEDED (prec) == result.len)
+ {
+ /* Modes with weird precisions. */
+ i = result.len - 1;
+ result.val[i] = sext (result.val[i], small_prec);
+ }
+
+ result.canonize ();
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_wwv ("wide_int::operator +", result, *this, op1);
+#endif
+ return result;
+}
+
+/* Add of THIS and unsigned OP1. No overflow is detected. */
+
+wide_int
+wide_int::operator + (unsigned HOST_WIDE_INT op1) const
+{
+ wide_int result;
+ unsigned HOST_WIDE_INT o0, o1;
+ unsigned HOST_WIDE_INT x = 0;
+ unsigned HOST_WIDE_INT carry = 0;
+ unsigned HOST_WIDE_INT mask0;
+ int prec = precision ();
+ unsigned int i, small_prec, stop;
+
+ result.mode = mode;
+
+ if (prec <= HOST_BITS_PER_WIDE_INT)
+ {
+ result.len = 1;
+ o0 = val[0];
+ result.val[0] = sext (o0 + op1, prec);
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_wwv ("wide_int::operator +", result, *this, op1);
+#endif
+ return result;
+ }
+
+ stop = len;
+ /* Need to do one extra block just to handle the special cases. */
+ if (stop < (unsigned)BLOCKS_NEEDED (prec))
+ stop++;
+
+ result.len = stop;
+ mask0 = sign_mask ();
+ /* Add all of the explicitly defined elements. */
+ for (i = 0; i < stop; i++)
+ {
+ o0 = i < len ? (unsigned HOST_WIDE_INT)val[i] : mask0;
+ o1 = i < 1 ? (unsigned HOST_WIDE_INT)op1 : 0;
+ x = o0 + o1 + carry;
+ result.val[i] = x;
+ carry = x < o0;
+ }
+
+ small_prec = prec & (HOST_BITS_PER_WIDE_INT - 1);
+ if (small_prec != 0 && BLOCKS_NEEDED (prec) == result.len)
+ {
+ /* Modes with weird precisions. */
+ i = result.len - 1;
+ result.val[i] = sext (result.val[i], small_prec);
+ }
+
+ result.canonize ();
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_wwv ("wide_int::operator +", result, *this, op1);
+#endif
+ return result;
+}
+
+/* Add of OP0 and OP1 with overflow checking. If the result overflows
+ within the precision, set OVERFLOW. OVERFLOW is assumed to be
+ sticky so it should be initialized. SGN controls if signed or
+ unsigned overflow is checked. */
+
+wide_int
+wide_int::add_overflow (const wide_int *op0, const wide_int *op1,
+ wide_int::Op sgn, bool *overflow)
+{
+ wide_int result;
+ const wide_int *tmp;
+ unsigned HOST_WIDE_INT o0 = 0;
+ unsigned HOST_WIDE_INT o1 = 0;
+ unsigned HOST_WIDE_INT x = 0;
+ unsigned HOST_WIDE_INT carry = 0;
+ int prec = op0->precision ();
+ int i, small_prec;
+
+ gcc_assert (op0->get_mode () == op1->get_mode ());
+
+ result.set_mode (op0->get_mode ());
+
+ /* Put the longer one first. */
+ if (op0->get_len () > op1->get_len ())
+ {
+ tmp = op0;
+ op0 = op1;
+ op1 = tmp;
+ }
+
+ /* Add all of the explicitly defined elements. */
+ for (i = 0; i < op0->get_len (); i++)
+ {
+ o0 = op0->elt (i);
+ o1 = op1->elt (i);
+ x = o0 + o1 + carry;
+ result.elt_ref (i) = x;
+ carry = x < o0;
+ }
+
+ /* Uncompress the rest. */
+ if (op0->get_len () < op1->get_len ())
+ {
+ unsigned HOST_WIDE_INT mask = op1->sign_mask ();
+ for (i = op0->get_len (); i < op1->get_len (); i++)
+ {
+ o0 = op0->elt (i);
+ o1 = mask;
+ x = o0 + o1 + carry;
+ result.elt_ref (i) = x;
+ carry = x < o0;
+ }
+ }
+
+ result.set_len (op0->get_len ());
+ small_prec = prec & (HOST_BITS_PER_WIDE_INT - 1);
+ if (small_prec == 0)
+ {
+ if (op0->get_len () * HOST_BITS_PER_WIDE_INT < prec)
+ {
+ /* If the carry is 1, then we need another word. If the carry
+ is 0, we only need another word if the top bit is 1. */
+ if (carry == 1
+ || (x >> (HOST_BITS_PER_WIDE_INT - 1) == 1))
+ /* Check for signed overflow. */
+ {
+ result.elt_ref (result.get_len ()) = carry;
+ result.set_len (result.get_len () + 1);
+ }
+ if (sgn == wide_int::SIGNED)
+ {
+ if (((x ^ o0) & (x ^ o1)) >> (HOST_BITS_PER_WIDE_INT - 1))
+ *overflow = true;
+ }
+ else if (carry)
+ {
+ if ((~o0) < o1)
+ *overflow = true;
+ }
+ else
+ {
+ if ((~o0) <= o1)
+ *overflow = true;
+ }
+ }
+ }
+ else
+ {
+ /* Overflow in this case is easy since we can see bits beyond
+ the precision. If the value computed is not the sign
+ extended value, then we have overflow. */
+ unsigned HOST_WIDE_INT y;
+
+ if (sgn == wide_int::UNSIGNED)
+ {
+ /* The caveat for unsigned is to get rid of the bits above
+ the precision before doing the addition. To check the
+ overflow, clear these bits and then redo the last
+ addition. Then the rest of the code just works. */
+ o0 = wide_int::zext (o0, small_prec);
+ o1 = wide_int::zext (o1, small_prec);
+ x = o0 + o1 + carry;
+ }
+ /* Short integers and modes with weird precisions. */
+ y = wide_int::sext (x, small_prec);
+ result.set_len (op1->get_len ());
+ if (BLOCKS_NEEDED (prec) == result.get_len () && x != y)
+ *overflow = true;
+ /* Then put the sign extended form back because that is the
+ canonical form. */
+ result.elt_ref (result.get_len () - 1) = y;
+ }
+
+ result.canonize ();
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_www ("wide_int::add_overflow", result, *op0, *op1);
+#endif
+ return result;
+}
+
+/* Add this and X. If overflow occurs, set OVERFLOW. */
+
+wide_int
+wide_int::add (const wide_int &x, Op sgn, bool *overflow) const
+{
+ return add_overflow (this, &x, sgn, overflow);
+}
+
+/* Count leading zeros of THIS but only looking at the bits in the
+ smallest HWI of size mode. */
+
+wide_int
+wide_int::clz (enum machine_mode m) const
+{
+ return wide_int::from_shwi (clz (), m);
+}
+
+/* Count leading zeros of THIS. */
+
+HOST_WIDE_INT
+wide_int::clz () const
+{
+ int i;
+ int start;
+ int count;
+ HOST_WIDE_INT v;
+ int prec = precision ();
+ int small_prec = prec & (HOST_BITS_PER_WIDE_INT - 1);
+
+ if (zero_p ())
+ {
+ /* Even if the value at zero is undefined, we have to come up
+ with some replacement. Seems good enough. */
+ if (!CLZ_DEFINED_VALUE_AT_ZERO (mode, count))
+ count = prec;
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_vw ("wide_int::clz", count, *this);
+#endif
+ return count;
+ }
+
+ /* The high order block is special if it is the last block and the
+ precision is not an even multiple of HOST_BITS_PER_WIDE_INT. We
+ have to clear out any ones above the precision before doing clz
+ on this block. */
+ if (BLOCKS_NEEDED (prec) == len && small_prec)
+ {
+ v = zext (val[len - 1], small_prec);
+ count = clz_hwi (v) - (HOST_BITS_PER_WIDE_INT - small_prec);
+ start = len - 2;
+ if (v != 0)
+ {
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_vw ("wide_int::clz", count, *this);
+#endif
+ return count;
+ }
+ }
+ else
+ {
+ count = HOST_BITS_PER_WIDE_INT * (BLOCKS_NEEDED (prec) - len);
+ start = len - 1;
+ }
+
+ for (i = start; i >= 0; i--)
+ {
+ v = elt (i);
+ count += clz_hwi (v);
+ if (v != 0)
+ break;
+ }
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_vw ("wide_int::clz", count, *this);
+#endif
+ return count;
+}
+
+wide_int
+wide_int::clrsb (enum machine_mode m) const
+{
+ return wide_int::from_shwi (clrsb (), m);
+}
+
+/* Count the number of redundant leading bits of THIS. Return result
+ as a HOST_WIDE_INT. There is a wrapper to convert this into a
+ wide_int. */
+
+HOST_WIDE_INT
+wide_int::clrsb () const
+{
+ if (neg_p ())
+ return operator ~ ().clz () - 1;
+
+ return clz () - 1;
+}
+
+wide_int
+wide_int::ctz (enum machine_mode mode) const
+{
+ return wide_int::from_shwi (ctz (), mode);
+}
+
+/* Count zeros of THIS. Return result as a HOST_WIDE_INT. There is a
+ wrapper to convert this into a wide_int. */
+
+HOST_WIDE_INT
+wide_int::ctz () const
+{
+ int i;
+ int count = 0;
+ HOST_WIDE_INT v;
+ int prec = precision ();
+ int small_prec = prec & (HOST_BITS_PER_WIDE_INT - 1);
+ int end;
+ bool more_to_do;
+
+ if (zero_p ())
+ {
+ /* Even if the value at zero is undefined, we have to come up
+ with some replacement. Seems good enough. */
+ if (!CTZ_DEFINED_VALUE_AT_ZERO (mode, count))
+ count = prec;
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_vw ("wide_int::ctz", count, *this);
+#endif
+ return count;
+ }
+
+ /* The high order block is special if it is the last block and the
+ precision is not an even multiple of HOST_BITS_PER_WIDE_INT. We
+ have to clear out any ones above the precision before doing clz
+ on this block. */
+ if (BLOCKS_NEEDED (prec) == len && small_prec)
+ {
+ end = len - 1;
+ more_to_do = true;
+ }
+ else
+ {
+ end = len;
+ more_to_do = false;
+ }
+
+ for (i = 0; i < end; i++)
+ {
+ v = val[i];
+ count += ctz_hwi (v);
+ if (v != 0)
+ {
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_vw ("wide_int::ctz", count, *this);
+#endif
+ return count;
+ }
+ }
+
+ if (more_to_do)
+ {
+ v = zext (val[len - 1], small_prec);
+ count = ctz_hwi (v);
+ /* The top word was all zeros so we have to cut it back to prec,
+ because we are counting some of the zeros above the
+ interesting part. */
+ if (count > prec)
+ count = prec;
+ }
+ else
+ /* Skip over the blocks that are not represented. They must be
+ all zeros at this point. */
+ count = prec;
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_vw ("wide_int::ctz", count, *this);
+#endif
+ return count;
+}
+
+/* ffs of THIS. */
+
+wide_int
+wide_int::ffs () const
+{
+ int prec = precision ();
+ HOST_WIDE_INT count = ctz ();
+ if (count == prec)
+ count = 0;
+ else
+ count += 1;
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_vw ("wide_int::ffs", count, *this);
+#endif
+ return wide_int::from_shwi (count, word_mode);
+}
+
+/* Subroutines of the multiplication and division operations. Unpack
+ the first IN_LEN HOST_WIDE_INTs in INPUT into 2 * IN_LEN
+ HOST_HALF_WID_INTs of RESULT. The rest of RESULT is filled by
+ uncompressing the top bit of INPUT[IN_LEN - 1]. */
+
+static void
+wi_unpack (unsigned HOST_HALF_WIDE_INT *result,
+ const unsigned HOST_WIDE_INT *input,
+ int in_len, int out_len)
+{
+ int i;
+ int j = 0;
+ HOST_WIDE_INT mask;
+
+ for (i = 0; i <in_len; i++)
+ {
+ result[j++] = input[i];
+ result[j++] = input[i] >> HOST_BITS_PER_HALF_WIDE_INT;
+ }
+ mask = ((HOST_WIDE_INT)input[in_len - 1]) >> (HOST_BITS_PER_WIDE_INT - 1);
+ mask &= HALF_INT_MASK;
+
+ /* Smear the sign bit. */
+ while (j < out_len)
+ result[j++] = mask;
+}
+
+/* The inverse of wi_unpack. */
+
+static void
+wi_pack (unsigned HOST_WIDE_INT *result,
+ const unsigned HOST_HALF_WIDE_INT *input,
+ int in_len)
+{
+ int i = 0;
+ int j = 0;
+
+ while (i < in_len)
+ {
+ result[j++] = (unsigned HOST_WIDE_INT)input[i]
+ | ((unsigned HOST_WIDE_INT)input[i + 1] << HOST_BITS_PER_HALF_WIDE_INT);
+ i += 2;
+ }
+}
+
+/* Return an integer that is the exact log2 of THIS. */
+
+HOST_WIDE_INT
+wide_int::exact_log2 () const
+{
+ int prec = precision ();
+ int small_prec = prec & (HOST_BITS_PER_WIDE_INT - 1);
+ HOST_WIDE_INT count;
+ HOST_WIDE_INT result;
+
+ if (prec <= HOST_BITS_PER_WIDE_INT)
+ {
+ HOST_WIDE_INT v;
+ if (small_prec < HOST_BITS_PER_WIDE_INT)
+ v = sext (val[0], small_prec);
+ else
+ v = val[0];
+ result = ::exact_log2 (v);
+ goto ex;
+ }
+
+ count = ctz ();
+ if (clz () + count + 1 == prec)
+ {
+ result = count;
+ goto ex;
+ }
+
+ result = -1;
+
+ ex:
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_vw ("wide_int::exact_log2", result, *this);
+#endif
+ return result;
+}
+
+/* Multiply THIS and OP1. If HIGH is set, only the upper half of the
+ result is returned. If FULL is set, the entire result is returned
+ in a mode that is twice the width of the inputs. However, that
+ mode needs to exist if the value is to be usable. Clients that use
+ FULL need to check for this.
+
+ If HIGH or FULL are not setm throw away the upper half after the check
+ is made to see if it overflows. Unfortunately there is no better
+ way to check for overflow than to do this. OVERFLOW is assumed to
+ be sticky so it should be initialized. SGN controls the signess
+ and is used to check overflow or if HIGH or FULL is set. */
+
+wide_int
+wide_int::mul_internal (bool high, bool full,
+ const wide_int *op1, const wide_int *op2,
+ wide_int::Op sgn, bool *overflow, bool needs_overflow)
+{
+ wide_int result;
+ unsigned HOST_WIDE_INT o0, o1, k, t;
+ unsigned int i;
+ unsigned int j;
+ int prec = op1->precision ();
+ unsigned int blocks_needed = 2 * BLOCKS_NEEDED (prec);
+ unsigned HOST_HALF_WIDE_INT u[2 * MAX_BITSIZE_MODE_ANY_INT
+ / HOST_BITS_PER_WIDE_INT];
+ unsigned HOST_HALF_WIDE_INT v[2 * MAX_BITSIZE_MODE_ANY_INT
+ / HOST_BITS_PER_WIDE_INT];
+ unsigned HOST_HALF_WIDE_INT r[4 * MAX_BITSIZE_MODE_ANY_INT
+ / HOST_BITS_PER_WIDE_INT];
+ HOST_WIDE_INT mask = ((HOST_WIDE_INT)1 << (HOST_BITS_PER_WIDE_INT / 2)) - 1;
+
+ gcc_assert (op1->get_mode () == op2->get_mode ());
+ result.set_mode (op1->get_mode ());
+
+ if (high || full || needs_overflow)
+ {
+ /* If we need to check for overflow, we can only do half wide
+ multiplies quickly because we need to look at the top bits to
+ check for the overflow. */
+ if (prec <= HOST_BITS_PER_HALF_WIDE_INT)
+ {
+ HOST_WIDE_INT t;
+ result.set_len (1);
+ o0 = op1->elt (0);
+ o1 = op2->elt (0);
+ t = o0 * o1;
+ /* Signed shift down will leave 0 or -1 if there was no
+ overflow for signed or 0 for unsigned. */
+ t = t >> (HOST_BITS_PER_HALF_WIDE_INT - 1);
+ if (needs_overflow)
+ {
+ if (sgn == wide_int::SIGNED)
+ {
+ if (t != (HOST_WIDE_INT)-1 && t != 0)
+ *overflow = true;
+ }
+ else
+ {
+ if (t != 0)
+ *overflow = true;
+ }
+ }
+ if (full)
+ {
+ result.elt_ref (0) = wide_int::sext (t, prec << 1);
+ result.set_mode (GET_MODE_2XWIDER_MODE (op1->get_mode ()));
+ }
+ else if (high)
+ result.elt_ref (0) = wide_int::sext (t >> (prec >> 1), prec);
+ else
+ result.elt_ref (0) = wide_int::sext (t, prec);
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_www ("wide_int::mul_overflow", result, *op1, *op2);
+#endif
+ return result;
+ }
+ }
+ else
+ {
+ if (prec <= HOST_BITS_PER_WIDE_INT)
+ {
+ result.set_len (1);
+ o0 = op1->elt (0);
+ o1 = op2->elt (0);
+ result.elt_ref (0) = wide_int::sext (o0 * o1, prec);
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_www ("wide_int::mul_overflow", result, *op1, *op2);
+#endif
+ return result;
+ }
+ }
+
+ wi_unpack (u, &op1->uelt_ref (0), op1->get_len (), blocks_needed);
+ wi_unpack (v, &op2->uelt_ref (0), op2->get_len (), blocks_needed);
+
+ memset (r, 0, blocks_needed * 2 * HOST_BITS_PER_WIDE_INT / BITS_PER_UNIT);
+
+ for (j = 0; j < blocks_needed; j++)
+ {
+ k = 0;
+ for (i = 0; i < blocks_needed; i++)
+ {
+ t = ((unsigned HOST_WIDE_INT)u[i] * (unsigned HOST_WIDE_INT)v[j]
+ + r[i + j] + k);
+ r[i + j] = t & HALF_INT_MASK;
+ k = t >> HOST_BITS_PER_HALF_WIDE_INT;
+ }
+ r[j + blocks_needed] = k;
+ }
+
+ if (needs_overflow)
+ {
+ HOST_WIDE_INT top;
+
+ /* For unsigned, overflow is true if any of the top bits are set.
+ For signed, overflow is true if any of the top bits are not equal
+ to the sign bit. */
+ if (sgn == wide_int::UNSIGNED)
+ top = 0;
+ else
+ {
+ top = r[blocks_needed - 1];
+ top = ((top << (HOST_BITS_PER_WIDE_INT / 2))
+ >> (HOST_BITS_PER_WIDE_INT - 1));
+ top &= mask;
+ }
+
+ for (i = blocks_needed; i < 2 * blocks_needed; i++)
+ if (((HOST_WIDE_INT)(r[i] & mask)) != top)
+ *overflow = true;
+ }
+
+ if (full)
+ {
+ /* compute [2prec] <- [prec] * [prec] */
+ wi_pack (&result.uelt_ref (0), r, blocks_needed);
+ result.set_len (blocks_needed);
+ result.set_mode (GET_MODE_2XWIDER_MODE (op1->get_mode ()));
+ }
+ else if (high)
+ {
+ /* compute [prec] <- ([prec] * [prec]) >> [prec] */
+ wi_pack (&result.uelt_ref (blocks_needed >> 1), r, blocks_needed >> 1);
+ result.set_len (blocks_needed / 2);
+ }
+ else
+ {
+ /* compute [prec] <- ([prec] * [prec]) && ((1 << [prec]) - 1) */
+ wi_pack (&result.uelt_ref (0), r, blocks_needed >> 1);
+ result.set_len (blocks_needed / 2);
+ }
+
+ result.canonize ();
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_wwwv ("wide_int::mul_overflow", result, *op1, *op2, *overflow);
+#endif
+ return result;
+}
+
+/* Multiply THIS and OP1. The result is the same precision as the
+ operands, so there is no reason for signed or unsigned
+ versions. */
+
+wide_int
+wide_int::operator * (const wide_int &op1) const
+{
+ bool overflow;
+
+ return mul_internal (false, false, this, &op1, UNSIGNED, &overflow, false);
+}
+
+/* Multiply THIS and OP1. The signess is specified with SGN.
+ OVERFLOW is set true if the result overflows. */
+
+wide_int
+wide_int::mul (const wide_int &op1, Op sgn, bool *overflow) const
+{
+ return mul_internal (false, false, this, &op1, sgn, overflow, true);
+}
+
+/* Multiply THIS and OP1. The signess is specified with SGN. The
+ result is twice the precision as the operands. NOTE THAT A MODE
+ MUST EXIST ON THE TARGET THAT IS TWICE THE WIDTH OF THE MODES OF
+ THE OPERANDS. The signess is specified with SGN. */
+
+wide_int
+wide_int::mul_full (const wide_int &op1, Op sgn) const
+{
+ bool overflow;
+
+ return mul_internal (false, true, this, &op1, sgn, &overflow, false);
+}
+
+/* Multiply THIS and OP1 and return the high part of that result. The
+ signess is specified with SGN. The result is the same precision as
+ the operands. The mode is the same mode as the operands. The
+ signess is specified with y. */
+
+wide_int
+wide_int::mul_high (const wide_int &op1, Op sgn) const
+{
+ bool overflow;
+
+ return mul_internal (true, false, this, &op1, sgn, &overflow, false);
+}
+
+/* Negate THIS. */
+
+wide_int
+wide_int::neg () const
+{
+ wide_int z = wide_int::from_shwi (0, mode);
+ return z - *this;
+}
+
+static inline wide_int
+parity (const wide_int &x)
+{
+ return x.parity (x.get_mode ());
+}
+
+/* Compute the parity of THIS. */
+
+wide_int
+wide_int::parity (enum machine_mode mode) const
+{
+ int count = popcount ();
+ return wide_int::from_shwi (count & 1, mode);
+}
+
+static inline int
+popcount (const wide_int &x)
+{
+ return x.popcount ();
+}
+
+wide_int
+wide_int::popcount (enum machine_mode m) const
+{
+ return wide_int::from_shwi (popcount (), m);
+}
+
+/* Compute the population count of THIS. */
+
+int
+wide_int::popcount () const
+{
+ int i;
+ int start;
+ int count;
+ HOST_WIDE_INT v;
+ int prec = precision ();
+ int small_prec = prec & (HOST_BITS_PER_WIDE_INT - 1);
+
+ /* The high order block is special if it is the last block and the
+ precision is not an even multiple of HOST_BITS_PER_WIDE_INT. We
+ have to clear out any ones above the precision before doing clz
+ on this block. */
+ if (BLOCKS_NEEDED (prec) == len && small_prec)
+ {
+ v = zext (val[len - 1], small_prec);
+ count = popcount_hwi (v);
+ start = len - 2;
+ }
+ else
+ {
+ if (sign_mask ())
+ count = HOST_BITS_PER_WIDE_INT * (BLOCKS_NEEDED (prec) - len);
+ else
+ count = 0;
+ start = len - 1;
+ }
+
+ for (i = start; i >= 0; i--)
+ {
+ v = val[i];
+ count += popcount_hwi (v);
+ }
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_vw ("wide_int::popcount", count, *this);
+#endif
+ return count;
+}
+
+/* Subtract of THIS and OP1. No overflow is detected. */
+
+wide_int
+wide_int::operator - (const wide_int &op1) const
+{
+ wide_int result;
+ unsigned HOST_WIDE_INT o0, o1;
+ unsigned HOST_WIDE_INT x = 0;
+ /* We implement subtraction as an in place negate and add. Negation
+ is just inversion and add 1, so we can do the add of 1 by just
+ starting the carry in of the first element at 1. */
+ unsigned HOST_WIDE_INT carry = 1;
+ unsigned HOST_WIDE_INT mask0, mask1;
+ int prec = precision ();
+ unsigned int i, small_prec, stop;
+
+ gcc_assert (mode == op1.mode);
+
+ result.mode = mode;
+ if (prec <= HOST_BITS_PER_WIDE_INT)
+ {
+ result.len = 1;
+ o0 = val[0];
+ o1 = op1.val[0];
+ result.val[0] = sext (o0 - o1, prec);
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_www ("wide_int::operator -", result, *this, op1);
+#endif
+ return result;
+ }
+
+ stop = len > op1.len ? len : op1.len;
+ /* Need to do one extra block just to handle the special cases. */
+ if (stop < (unsigned)BLOCKS_NEEDED (prec))
+ stop++;
+
+ result.len = stop;
+ mask0 = sign_mask ();
+ mask1 = ~op1.sign_mask ();
+
+ /* Subtract all of the explicitly defined elements. */
+ for (i = 0; i < stop; i++)
+ {
+ o0 = i < len ? (unsigned HOST_WIDE_INT)val[i] : mask0;
+ o1 = i < op1.len ? (unsigned HOST_WIDE_INT)~op1.val[i] : mask1;
+ x = o0 + o1 + carry;
+ result.val[i] = x;
+ carry = x < o0;
+ }
+
+ small_prec = prec & (HOST_BITS_PER_WIDE_INT - 1);
+ if (small_prec != 0 && BLOCKS_NEEDED (prec) == result.len)
+ {
+ /* Modes with weird precisions. */
+ i = result.len - 1;
+ result.val[i] = sext (result.val[i], small_prec);
+ }
+
+ result.canonize ();
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_www ("wide_int::operator -", result, *this, op1);
+#endif
+ return result;
+}
+
+/* Subtract of signed OP1 from THIS. No overflow is detected. */
+
+wide_int
+wide_int::operator - (HOST_WIDE_INT op1) const
+{
+ wide_int result;
+ unsigned HOST_WIDE_INT o0, o1;
+ unsigned HOST_WIDE_INT x = 0;
+ /* We implement subtraction as an in place negate and add. Negation
+ is just inversion and add 1, so we can do the add of 1 by just
+ starting the carry in of the first element at 1. */
+ unsigned HOST_WIDE_INT carry = 1;
+ unsigned HOST_WIDE_INT mask0, mask1;
+ int prec = precision ();
+ unsigned int i, small_prec, stop;
+
+ result.mode = mode;
+
+ if (prec <= HOST_BITS_PER_WIDE_INT)
+ {
+ result.len = 1;
+ o0 = val[0];
+ result.val[0] = sext (o0 - op1, prec);
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_wwv ("wide_int::operator -", result, *this, op1);
+#endif
+ return result;
+ }
+
+ stop = len;
+ /* Need to do one extra block just to handle the special cases. */
+ if (stop < (unsigned)BLOCKS_NEEDED (prec))
+ stop++;
+
+ result.len = stop;
+ mask0 = sign_mask ();
+ mask1 = ~(op1 >> (HOST_BITS_PER_WIDE_INT - 1));
+
+ /* Subtract all of the explicitly defined elements. */
+ for (i = 0; i < stop; i++)
+ {
+ o0 = i < len ? (unsigned HOST_WIDE_INT)val[i] : mask0;
+ o1 = i < 1 ? (unsigned HOST_WIDE_INT)~op1 : mask1;
+ x = o0 + o1 + carry;
+ result.val[i] = x;
+ carry = x < o0;
+ }
+
+ small_prec = prec & (HOST_BITS_PER_WIDE_INT - 1);
+ if (small_prec != 0 && BLOCKS_NEEDED (prec) == result.len)
+ {
+ /* Modes with weird precisions. */
+ i = result.len - 1;
+ result.val[i] = sext (result.val[i], small_prec);
+ }
+
+ result.canonize ();
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_wwv ("wide_int::operator -", result, *this, op1);
+#endif
+ return result;
+}
+
+/* Subtract of unsigned OP1 from THIS. No overflow is detected. */
+
+wide_int
+wide_int::operator - (unsigned HOST_WIDE_INT op1) const
+{
+ wide_int result;
+ unsigned HOST_WIDE_INT o0, o1;
+ unsigned HOST_WIDE_INT x = 0;
+ /* We implement subtraction as an in place negate and add. Negation
+ is just inversion and add 1, so we can do the add of 1 by just
+ starting the carry in of the first element at 1. */
+ unsigned HOST_WIDE_INT carry = 1;
+ unsigned HOST_WIDE_INT mask0, mask1;
+ int prec = precision ();
+ unsigned int i, small_prec, stop;
+
+ result.mode = mode;
+
+ if (prec <= HOST_BITS_PER_WIDE_INT)
+ {
+ result.len = 1;
+ o0 = val[0];
+ result.val[0] = sext (o0 - op1, prec);
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_wwv ("wide_int::operator -", result, *this, op1);
+#endif
+ return result;
+ }
+
+ stop = len;
+ /* Need to do one extra block just to handle the special cases. */
+ if (stop < (unsigned)BLOCKS_NEEDED (prec))
+ stop++;
+
+ result.len = stop;
+ mask0 = sign_mask ();
+ mask1 = (HOST_WIDE_INT) -1;
+
+ /* Subtract all of the explicitly defined elements. */
+ for (i = 0; i < stop; i++)
+ {
+ o0 = i < len ? (unsigned HOST_WIDE_INT)val[i] : mask0;
+ o1 = i < 1 ? (unsigned HOST_WIDE_INT)~op1 : mask1;
+ x = o0 + o1 + carry;
+ result.val[i] = x;
+ carry = x < o0;
+ }
+
+ small_prec = prec & (HOST_BITS_PER_WIDE_INT - 1);
+ if (small_prec != 0 && BLOCKS_NEEDED (prec) == result.len)
+ {
+ /* Modes with weird precisions. */
+ i = result.len - 1;
+ result.val[i] = sext (result.val[i], small_prec);
+ }
+
+ result.canonize ();
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_wwv ("wide_int::operator -", result, *this, op1);
+#endif
+ return result;
+}
+
+/* Subtract of THIS and OP1 with overflow checking. If the result
+ overflows within the precision, set OVERFLOW. OVERFLOW is assumed
+ to be sticky so it should be initialized. SGN controls if signed or
+ unsigned overflow is checked. */
+
+wide_int
+wide_int::sub_overflow (const wide_int *op0, const wide_int *op1,
+ wide_int::Op sgn, bool *overflow)
+{
+ wide_int result;
+ unsigned HOST_WIDE_INT o0 = 0;
+ unsigned HOST_WIDE_INT o1 = 0;
+ unsigned HOST_WIDE_INT x = 0;
+ /* We implement subtraction as an in place negate and add. Negation
+ is just inversion and add 1, so we can do the add of 1 by just
+ starting the carry in of the first element at 1. */
+ unsigned HOST_WIDE_INT carry = 1;
+ int prec = op1->precision ();
+ int i, small_prec;
+
+ gcc_assert (op0->get_mode () == op1->get_mode ());
+
+ result.set_mode (op0->get_mode ());
+
+ /* Subtract all of the explicitly defined elements. */
+ for (i = 0; i < op0->get_len (); i++)
+ {
+ o0 = op0->elt (i);
+ o1 = ~op1->elt (i);
+ x = o0 + o1 + carry;
+ result.elt_ref (i) = x;
+ carry = x < o0;
+ }
+
+ /* Uncompress the rest. */
+ if (op1->get_len () < op1->get_len ())
+ {
+ unsigned HOST_WIDE_INT mask = op1->sign_mask ();
+ for (i = op0->get_len (); i < op1->get_len (); i++)
+ {
+ o0 = op0->elt (i);
+ o1 = ~mask;
+ x = o0 + o1 + carry;
+ result.elt_ref (i) = x;
+ carry = x < o0;
+ }
+ }
+ else if (op0->get_len () > op1->get_len ())
+ {
+ unsigned HOST_WIDE_INT mask = op1->sign_mask ();
+ for (i = op0->get_len (); i < op1->get_len (); i++)
+ {
+ o0 = mask;
+ o1 = ~op1->elt (i);
+ x = o0 + o1 + carry;
+ result.elt_ref (i) = x;
+ carry = x < o0;
+ }
+ }
+
+ result.set_len (op0->get_len ());
+ small_prec = prec & (HOST_BITS_PER_WIDE_INT - 1);
+ if (small_prec == 0)
+ {
+ if (op0->get_len () * HOST_BITS_PER_WIDE_INT < prec)
+ {
+ /* If the carry is 1, then we need another word. If the carry
+ is 0, we only need another word if the top bit is 1. */
+ if (carry == 1
+ || (x >> (HOST_BITS_PER_WIDE_INT - 1) == 1))
+ {
+ /* Check for signed overflow. */
+ result.elt_ref (result.get_len ()) = carry;
+ result.set_len (result.get_len () + 1);
+ }
+ if (sgn == wide_int::SIGNED)
+ {
+ if (((x ^ o0) & (x ^ o1)) >> (HOST_BITS_PER_WIDE_INT - 1))
+ *overflow = true;
+ }
+ else if (carry)
+ {
+ if ((~o0) < o1)
+ *overflow = true;
+ }
+ else
+ {
+ if ((~o0) <= o1)
+ *overflow = true;
+ }
+ }
+ }
+ else
+ {
+ /* Overflow in this case is easy since we can see bits beyond
+ the precision. If the value computed is not the sign
+ extended value, then we have overflow. */
+ unsigned HOST_WIDE_INT y;
+
+ if (sgn == wide_int::UNSIGNED)
+ {
+ /* The caveat for unsigned is to get rid of the bits above
+ the precision before doing the addition. To check the
+ overflow, clear these bits and then redo the last
+ addition. Then the rest of the code just works. */
+ o0 = wide_int::zext (o0, small_prec);
+ o1 = wide_int::zext (o1, small_prec);
+ x = o0 + o1 + carry;
+ }
+ /* Short integers and modes with weird precisions. */
+ y = wide_int::sext (x, small_prec);
+ result.set_len (op1->get_len ());
+ if (BLOCKS_NEEDED (prec) == result.get_len () && x != y)
+ *overflow = true;
+ /* Then put the sign extended form back because that is the
+ canonical form. */
+ result.elt_ref (result.get_len () - 1) = y;
+ }
+
+ result.canonize ();
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_www ("wide_int::sub_overflow", result, *op0, *op1);
+#endif
+ return result;
+}
+
+/* sub X from THIS. If overflow occurs, set OVERFLOW. */
+
+wide_int
+wide_int::sub (const wide_int &x, Op sgn, bool *overflow) const
+{
+ return sub_overflow (this, &x, sgn, overflow);
+}
+
+/* Truncate THIS to MODE. */
+
+wide_int
+wide_int::truncate (enum machine_mode m) const
+{
+ gcc_assert (GET_MODE_PRECISION (m) <= precision ());
+ return copy (m);
+}
+
+/*
+ * Division and Mod
+ */
+
+/* Compute B_QUOTIENT and B_REMAINDER from B_DIVIDEND/B_DIVISOR. The
+ algorithm is a small modification of the algorithm in Hacker's
+ Delight by Warren, which itself is a small modification of Knuth's
+ algorithm. M is the number of significant elements of U however
+ there needs to be at least one extra element of B_DIVIDEND
+ allocated, N is the number of elements of B_DIVISOR. */
+
+static void
+divmod_internal_2 (unsigned HOST_HALF_WIDE_INT *b_quotient,
+ unsigned HOST_HALF_WIDE_INT *b_remainder,
+ unsigned HOST_HALF_WIDE_INT *b_dividend,
+ unsigned HOST_HALF_WIDE_INT *b_divisor,
+ int m, int n)
+{
+ /* The "digits" are a HOST_HALF_WIDE_INT which the size of half of a
+ HOST_WIDE_INT and stored in the lower bits of each word. This
+ algorithm should work properly on both 32 and 64 bit
+ machines. */
+ unsigned HOST_WIDE_INT b
+ = (unsigned HOST_WIDE_INT)1 << HOST_BITS_PER_HALF_WIDE_INT;
+ unsigned HOST_WIDE_INT qhat; /* Estimate of quotient digit. */
+ unsigned HOST_WIDE_INT rhat; /* A remainder. */
+ unsigned HOST_WIDE_INT p; /* Product of two digits. */
+ HOST_WIDE_INT s, i, j, t, k;
+
+ /* Single digit divisor. */
+ if (n == 1)
+ {
+ k = 0;
+ for (j = m - 1; j >= 0; j--)
+ {
+ b_quotient[j] = (k * b + b_dividend[j])/b_divisor[0];
+ k = ((k * b + b_dividend[j])
+ - ((unsigned HOST_WIDE_INT)b_quotient[j]
+ * (unsigned HOST_WIDE_INT)b_divisor[0]));
+ }
+ b_remainder[0] = k;
+ return;
+ }
+
+ s = clz_hwi (b_divisor[n-1]) - HOST_BITS_PER_HALF_WIDE_INT; /* CHECK clz */
+
+ /* Normalize B_DIVIDEND and B_DIVISOR. Unlike the published
+ algorithm, we can overwrite b_dividend and b_divisor, so we do
+ that. */
+ for (i = n - 1; i > 0; i--)
+ b_divisor[i] = (b_divisor[i] << s)
+ | (b_divisor[i-1] >> (HOST_BITS_PER_HALF_WIDE_INT - s));
+ b_divisor[0] = b_divisor[0] << s;
+
+ b_dividend[m] = b_dividend[m-1] >> (HOST_BITS_PER_HALF_WIDE_INT - s);
+ for (i = m - 1; i > 0; i--)
+ b_dividend[i] = (b_dividend[i] << s)
+ | (b_dividend[i-1] >> (HOST_BITS_PER_HALF_WIDE_INT - s));
+ b_dividend[0] = b_dividend[0] << s;
+
+ /* Main loop. */
+ for (j = m - n; j >= 0; j--)
+ {
+ qhat = (b_dividend[j+n] * b + b_dividend[j+n-1]) / b_divisor[n-1];
+ rhat = (b_dividend[j+n] * b + b_dividend[j+n-1]) - qhat * b_divisor[n-1];
+ again:
+ if (qhat >= b || qhat * b_divisor[n-2] > b * rhat + b_dividend[j+n-2])
+ {
+ qhat -= 1;
+ rhat += b_divisor[n-1];
+ if (rhat < b)
+ goto again;
+ }
+
+ /* Multiply and subtract. */
+ k = 0;
+ for (i = 0; i < n; i++)
+ {
+ p = qhat * b_divisor[i];
+ t = b_dividend[i+j] - k - (p & HALF_INT_MASK);
+ b_dividend[i + j] = t;
+ k = ((p >> HOST_BITS_PER_HALF_WIDE_INT)
+ - (t >> HOST_BITS_PER_HALF_WIDE_INT));
+ }
+ t = b_dividend[j+n] - k;
+ b_dividend[j+n] = t;
+
+ b_quotient[j] = qhat;
+ if (t < 0)
+ {
+ b_quotient[j] -= 1;
+ k = 0;
+ for (i = 0; i < n; i++)
+ {
+ t = (HOST_WIDE_INT)b_dividend[i+j] + b_divisor[i] + k;
+ b_dividend[i+j] = t;
+ k = t >> HOST_BITS_PER_HALF_WIDE_INT;
+ }
+ b_dividend[j+n] += k;
+ }
+ }
+ for (i = 0; i < n; i++)
+ b_remainder[i] = (b_dividend[i] >> s)
+ | (b_dividend[i+1] << (HOST_BITS_PER_HALF_WIDE_INT - s));
+}
+
+
+/* Do a truncating divide DIVISOR into DIVIDEND. The result is the
+ same size as the operands. SIGN is either wide_int::SIGNED or
+ wide_int::UNSIGNED. */
+
+static wide_int
+divmod_internal (bool compute_quotient,
+ const wide_int *dividend, const wide_int *divisor,
+ wide_int::Op sgn, wide_int *remainder, bool compute_remainder,
+ bool *overflow)
+{
+ wide_int quotient, u0, u1;
+ int prec = dividend->precision ();
+ int blocks_needed = 2 * BLOCKS_NEEDED (prec);
+ unsigned HOST_HALF_WIDE_INT b_quotient[2 * MAX_BITSIZE_MODE_ANY_INT
+ / HOST_BITS_PER_WIDE_INT];
+ unsigned HOST_HALF_WIDE_INT b_remainder[2 * MAX_BITSIZE_MODE_ANY_INT
+ / HOST_BITS_PER_WIDE_INT];
+ unsigned HOST_HALF_WIDE_INT b_dividend[(2 * MAX_BITSIZE_MODE_ANY_INT
+ / HOST_BITS_PER_WIDE_INT) + 1];
+ unsigned HOST_HALF_WIDE_INT b_divisor[2 * MAX_BITSIZE_MODE_ANY_INT
+ / HOST_BITS_PER_WIDE_INT];
+ int m, n;
+ bool dividend_neg = false;
+ bool divisor_neg = false;
+
+ if ((*divisor).zero_p ())
+ *overflow = true;
+
+ /* The smallest signed number / -1 causes overflow. */
+ if (sgn == wide_int::SIGNED)
+ {
+ wide_int t = wide_int::set_bit_in_zero ((*dividend).precision () - 1,
+ (*dividend).get_mode ());
+ if (*dividend == t && (*divisor).minus_one_p ())
+ *overflow = true;
+ }
+
+ gcc_assert (dividend->get_mode () == divisor->get_mode ());
+ quotient.set_mode (dividend->get_mode ());
+ remainder->set_mode (dividend->get_mode ());
+
+ /* If overflow is set, just get out. There will only be grief by
+ continuing. */
+ if (*overflow)
+ {
+ if (compute_remainder)
+ {
+ remainder->set_len (1);
+ remainder->elt_ref (0) = 0;
+ }
+ return wide_int_zero (quotient.get_mode ());
+ }
+
+ /* Do it on the host if you can. */
+ if (prec <= HOST_BITS_PER_WIDE_INT)
+ {
+ quotient.set_len (1);
+ remainder->set_len (1);
+ if (sgn == wide_int::SIGNED)
+ {
+ quotient.elt_ref (0) = wide_int::sext (dividend->elt (0) / divisor->elt (0), prec);
+ remainder->elt_ref (0) = wide_int::sext (dividend->elt (0) % divisor->elt (0), prec);
+ }
+ else
+ {
+ unsigned HOST_WIDE_INT o0 = dividend->elt (0);
+ unsigned HOST_WIDE_INT o1 = divisor->elt (0);
+
+ if (prec < HOST_BITS_PER_WIDE_INT)
+ {
+ o0 = wide_int::zext (o0, prec);
+ o1 = wide_int::zext (o1, prec);
+ }
+ quotient.elt_ref (0) = wide_int::sext (o0 / o1, prec);
+ remainder->elt_ref (0) = wide_int::sext (o0 % o1, prec);
+ }
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_wwww ("wide_int::divmod", quotient, *remainder, *dividend, *divisor);
+#endif
+ return quotient;
+ }
+
+ /* Make the divisor and divident positive and remember what we
+ did. */
+ if (sgn == wide_int::SIGNED)
+ {
+ if (dividend->sign_mask ())
+ {
+ u0 = dividend->neg ();
+ dividend = &u0;
+ dividend_neg = true;
+ }
+ if (divisor->sign_mask ())
+ {
+ u1 = divisor->neg ();
+ divisor = &u1;
+ divisor_neg = true;
+ }
+ }
+
+ wi_unpack (b_dividend, ÷nd->uelt_ref (0), dividend->get_len (),
+ blocks_needed);
+ wi_unpack (b_divisor, &divisor->uelt_ref (0), divisor->get_len (),
+ blocks_needed);
+
+ if (dividend->sign_mask ())
+ m = blocks_needed;
+ else
+ m = 2 * dividend->get_len ();
+
+ if (divisor->sign_mask ())
+ n = blocks_needed;
+ else
+ n = 2 * divisor->get_len ();
+
+ divmod_internal_2 (b_quotient, b_remainder, b_dividend, b_divisor, m, n);
+
+ if (compute_quotient)
+ {
+ wi_pack ("ient.uelt_ref (0), b_quotient, m);
+ quotient.set_len (m / 2);
+ quotient.canonize ();
+ /* The quotient is neg if exactly one of the divisor or dividend is
+ neg. */
+ if (dividend_neg != divisor_neg)
+ quotient = quotient.neg ();
+ }
+
+ if (compute_remainder)
+ {
+ wi_pack (&remainder->uelt_ref (0), b_remainder, n);
+ remainder->set_len (n / 2);
+ (*remainder).canonize ();
+ /* The remainder is always the same sign as the dividend. */
+ if (dividend_neg)
+ *remainder = (*remainder).neg ();
+ }
+
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_wwww ("wide_int::divmod", quotient, *remainder, *dividend, *divisor);
+#endif
+ return quotient;
+}
+
+
+/* Divide DIVISOR into THIS. The result is the same size as the
+ operands. The sign is specified in SGN. The output is
+ truncated. */
+
+wide_int
+wide_int::div_trunc (const wide_int &divisor, Op sgn) const
+{
+ wide_int remainder;
+ bool overflow;
+
+ return divmod_internal (true, this, &divisor, sgn,
+ &remainder, false, &overflow);
+}
+
+/* Divide DIVISOR into THIS. The result is the same size as the
+ operands. The sign is specified in SGN. The output is truncated.
+ Overflow is set to true if the result overflows, otherwise it is
+ not set. */
+wide_int
+wide_int::div_trunc (const wide_int &divisor, Op sgn, bool *overflow) const
+{
+ wide_int remainder;
+
+ return divmod_internal (true, this, &divisor, sgn,
+ &remainder, false, overflow);
+}
+
+/* Divide DIVISOR into THIS producing both the quotient and remainder.
+ The result is the same size as the operands. The sign is specified
+ in SGN. The output is truncated. */
+
+wide_int
+wide_int::divmod_trunc (const wide_int &divisor, wide_int *remainder, Op sgn) const
+{
+ bool overflow;
+
+ return divmod_internal (true, this, &divisor, sgn,
+ remainder, true, &overflow);
+}
+
+/* Divide DIVISOR into THIS producing the remainder. The result is
+ the same size as the operands. The sign is specified in SGN. The
+ output is truncated. */
+
+wide_int
+wide_int::mod_trunc (const wide_int &divisor, Op sgn) const
+{
+ bool overflow;
+ wide_int remainder;
+
+ divmod_internal (false, this, &divisor, sgn,
+ &remainder, true, &overflow);
+ return remainder;
+}
+
+/* Divide DIVISOR into THIS producing the remainder. The result is
+ the same size as the operands. The sign is specified in SGN. The
+ output is truncated. Overflow is set to true if the result
+ overflows, otherwise it is not set. */
+
+wide_int
+wide_int::mod_trunc (const wide_int &divisor, Op sgn, bool *overflow) const
+{
+ wide_int remainder;
+
+ divmod_internal (true, this, &divisor, sgn,
+ &remainder, true, overflow);
+ return remainder;
+}
+
+/* Divide DIVISOR into THIS. The result is the same size as the
+ operands. The sign is specified in SGN. The output is floor
+ truncated. Overflow is set to true if the result overflows,
+ otherwise it is not set. */
+
+wide_int
+wide_int::div_floor (const wide_int &divisor, Op sgn, bool *overflow) const
+{
+ wide_int remainder;
+ wide_int quotient;
+
+ quotient = divmod_internal (true, this, &divisor, sgn,
+ &remainder, true, overflow);
+ if (sgn == SIGNED && quotient.neg_p () && !remainder.zero_p ())
+ return quotient - (HOST_WIDE_INT)1;
+ return quotient;
+}
+
+
+/* Divide DIVISOR into THIS. The remainder is also produced in
+ REMAINDER. The result is the same size as the operands. The sign
+ is specified in SGN. The output is floor truncated. Overflow is
+ set to true if the result overflows, otherwise it is not set. */
+
+wide_int
+wide_int::divmod_floor (const wide_int &divisor, wide_int *remainder, Op sgn) const
+{
+ wide_int quotient;
+ bool overflow;
+
+ quotient = divmod_internal (true, this, &divisor, sgn,
+ remainder, true, &overflow);
+ if (sgn == SIGNED && quotient.neg_p () && !(*remainder).zero_p ())
+ {
+ *remainder = *remainder - divisor;
+ return quotient - (HOST_WIDE_INT)1;
+ }
+ return quotient;
+}
+
+
+
+/* Divide DIVISOR into THIS producing the remainder. The result is
+ the same size as the operands. The sign is specified in SGN. The
+ output is floor truncated. Overflow is set to true if the result
+ overflows, otherwise it is not set. */
+
+wide_int
+wide_int::mod_floor (const wide_int &divisor, Op sgn, bool *overflow) const
+{
+ wide_int remainder;
+ wide_int quotient;
+
+ quotient = divmod_internal (true, this, &divisor, sgn,
+ &remainder, true, overflow);
+
+ if (sgn == SIGNED && quotient.neg_p () && !remainder.zero_p ())
+ return remainder - divisor;
+ return remainder;
+}
+
+/* Divide DIVISOR into THIS. The result is the same size as the
+ operands. The sign is specified in SGN. The output is ceil
+ truncated. Overflow is set to true if the result overflows,
+ otherwise it is not set. */
+
+wide_int
+wide_int::div_ceil (const wide_int &divisor, Op sgn, bool *overflow) const
+{
+ wide_int remainder;
+ wide_int quotient;
+
+ quotient = divmod_internal (true, this, &divisor, sgn,
+ &remainder, true, overflow);
+
+ if (!remainder.zero_p ())
+ {
+ if (sgn == UNSIGNED || quotient.neg_p ())
+ return quotient;
+ else
+ return quotient + (HOST_WIDE_INT)1;
+ }
+ return quotient;
+}
+
+/* Divide DIVISOR into THIS producing the remainder. The result is the
+ same size as the operands. The sign is specified in SGN. The
+ output is ceil truncated. Overflow is set to true if the result
+ overflows, otherwise it is not set. */
+
+wide_int
+wide_int::mod_ceil (const wide_int &divisor, Op sgn, bool *overflow) const
+{
+ wide_int remainder;
+ wide_int quotient;
+
+ quotient = divmod_internal (true, this, &divisor, sgn,
+ &remainder, true, overflow);
+
+ if (!remainder.zero_p ())
+ {
+ if (sgn == UNSIGNED || quotient.neg_p ())
+ return remainder;
+ else
+ return remainder - divisor;
+ }
+ return remainder;
+}
+
+/* Divide DIVISOR into THIS. The result is the same size as the
+ operands. The sign is specified in SGN. The output is round
+ truncated. Overflow is set to true if the result overflows,
+ otherwise it is not set. */
+
+wide_int
+wide_int::div_round (const wide_int &divisor, Op sgn, bool *overflow) const
+{
+ wide_int remainder;
+ wide_int quotient;
+
+ quotient = divmod_internal (true, this, &divisor, sgn,
+ &remainder, true, overflow);
+ if (!remainder.zero_p ())
+ {
+ if (sgn == SIGNED)
+ {
+ wide_int p_remainder = remainder.neg_p () ? remainder.neg () : remainder;
+ wide_int p_divisor = divisor.neg_p () ? divisor.neg () : divisor;
+ p_divisor = p_divisor.rshiftu (1);
+
+ if (p_divisor.gts_p (p_remainder))
+ {
+ if (quotient.neg_p ())
+ return quotient - (HOST_WIDE_INT)1;
+ else
+ return quotient + (HOST_WIDE_INT)1;
+ }
+ }
+ else
+ {
+ wide_int p_divisor = divisor.rshiftu (1);
+ if (p_divisor.gtu_p (remainder))
+ return quotient + (unsigned HOST_WIDE_INT)1;
+ }
+ }
+ return quotient;
+}
+
+/* Divide DIVISOR into THIS producing the remainder. The result is
+ the same size as the operands. The sign is specified in SGN. The
+ output is round truncated. Overflow is set to true if the result
+ overflows, otherwise it is not set. */
+
+wide_int
+wide_int::mod_round (const wide_int &divisor, Op sgn, bool *overflow) const
+{
+ wide_int remainder;
+ wide_int quotient;
+
+ quotient = divmod_internal (true, this, &divisor, sgn,
+ &remainder, true, overflow);
+
+ if (!remainder.zero_p ())
+ {
+ if (sgn == SIGNED)
+ {
+ wide_int p_remainder = remainder.neg_p () ? remainder.neg () : remainder;
+ wide_int p_divisor = divisor.neg_p () ? divisor.neg () : divisor;
+ p_divisor = p_divisor.rshiftu (1);
+
+ if (p_divisor.gts_p (p_remainder))
+ {
+ if (quotient.neg_p ())
+ return remainder + divisor;
+ else
+ return remainder - divisor;
+ }
+ }
+ else
+ {
+ wide_int p_divisor = divisor.rshiftu (1);
+ if (p_divisor.gtu_p (remainder))
+ return remainder - divisor;
+ }
+ }
+ return remainder;
+}
+
+/*
+ * Shifting, rotating and extraction.
+ */
+
+/* If SHIFT_COUNT_TRUNCATED is defined, truncate CNT.
+
+ At first look, the shift truncation code does not look right.
+ Shifts (and rotates) are done according to the precision of the
+ mode but the shift count is truncated according to the bitsize
+ of the mode. This is how real hardware works.
+
+ On an ideal machine, like Knuth's mix machine, a shift count is a
+ word long and all of the bits of that word are examined to compute
+ the shift amount. But on real hardware, especially on machines
+ with fast (single cycle shifts) that takes too long. On these
+ machines, the amount of time to perform a shift dictates the cycle
+ time of the machine so corners are cut to keep this fast. A
+ comparison of an entire 64 bit word would take something like 6
+ gate delays before the shifting can even start.
+
+ So real hardware only looks at a small part of the shift amount.
+ On ibm machines, this tends to be 1 more than what is necessary to
+ encode the shift amount. The rest of the world looks at only the
+ minimum number of bits. This means that only 3 gate delays are
+ necessary to set up the shifter.
+
+ On the other hand, right shifts and rotates must be according to
+ the precision or the operation does not make any sense. */
+static inline int
+trunc_shift (const enum machine_mode mode, int cnt)
+{
+#ifdef SHIFT_COUNT_TRUNCATED
+ cnt = cnt & (GET_MODE_BITSIZE (mode) - 1);
+#endif
+ return cnt;
+}
+
+/* This function is called in two contexts. If OP == TRUNC, this
+ function provides a count that matches the semantics of the target
+ machine depending on the value of SHIFT_COUNT_TRUNCATED. Note that
+ if SHIFT_COUNT_TRUNCATED is not defined, this function may produce
+ -1 as a value if the shift amount is greater than the bitsize of
+ the mode. -1 is a surrogate for a very large amount.
+
+ If OP == NONE, then this function always truncates the shift value
+ to the bitsize because this shifting operation is a function that
+ is internal to GCC. */
+
+static inline int
+trunc_shift (const enum machine_mode mode, const wide_int *cnt, wide_int::Op z)
+{
+ int bitsize = GET_MODE_BITSIZE (mode);
+
+ if (z == wide_int::TRUNC)
+ {
+#ifdef SHIFT_COUNT_TRUNCATED
+ return cnt->elt (0) & (bitsize - 1);
+#else
+ if (cnt.ltu (bitsize))
+ return cnt->elt (0) & (bitsize - 1);
+ else
+ return -1;
+#endif
+ }
+ else
+ return cnt->elt (0) & (bitsize - 1);
+}
+
+/* Extract WIDTH bits from THIS starting at OFFSET. The result is
+ assumed to fit in a HOST_WIDE_INT. This function is safe in that
+ it can properly access elements that may not be explicitly
+ represented. */
+
+HOST_WIDE_INT
+wide_int::extract_to_hwi (int offset, int width) const
+{
+ int start_elt, end_elt, shift;
+ HOST_WIDE_INT x;
+
+ /* Get rid of the easy cases first. */
+ if (offset >= len * HOST_BITS_PER_WIDE_INT)
+ return sign_mask ();
+ if (offset + width <= 0)
+ return 0;
+
+ shift = offset & (HOST_BITS_PER_WIDE_INT - 1);
+ if (offset < 0)
+ {
+ start_elt = -1;
+ end_elt = 0;
+ x = 0;
+ }
+ else
+ {
+ start_elt = offset / HOST_BITS_PER_WIDE_INT;
+ end_elt = (offset + width - 1) / HOST_BITS_PER_WIDE_INT;
+ x = start_elt >= len ? sign_mask () : val[start_elt] >> shift;
+ }
+
+ if (start_elt != end_elt)
+ {
+ HOST_WIDE_INT y = end_elt == len
+ ? sign_mask () : val[end_elt];
+
+ x = (unsigned HOST_WIDE_INT)x >> shift;
+ x |= y << (HOST_BITS_PER_WIDE_INT - shift);
+ }
+
+ if (width != HOST_BITS_PER_WIDE_INT)
+ x &= ((HOST_WIDE_INT)1 << width) - 1;
+
+ return x;
+}
+
+
+/* Left shift by an integer Y. See the definition of Op.TRUNC for how
+ to set Z. */
+
+wide_int
+wide_int::lshift (int y, Op z) const
+{
+ return lshift (y, z, mode);
+}
+
+/* Left shifting by an wide_int shift amount. See the definition of
+ Op.TRUNC for how to set Z. */
+
+wide_int
+wide_int::lshift (const wide_int &y, Op z) const
+{
+ if (z == TRUNC)
+ {
+ HOST_WIDE_INT shift = trunc_shift (mode, &y, TRUNC);
+ if (shift == -1)
+ return wide_int_zero (mode);
+ return lshift (shift, NONE, mode);
+ }
+ else
+ return lshift (trunc_shift (mode, &y, NONE), NONE, mode);
+}
+
+/* Left shift THIS by CNT. See the definition of Op.TRUNC for how to
+ set Z. Since this is used internally, it has the ability to
+ specify the MODE independently. This is useful when inserting a
+ small value into a larger one. */
+
+wide_int
+wide_int::lshift (int cnt, Op op, enum machine_mode m) const
+{
+ wide_int result;
+ int res_prec = GET_MODE_PRECISION (m);
+ int i;
+
+ result.mode = m;
+
+ if (op == TRUNC)
+ cnt = trunc_shift (mode, cnt);
+
+ /* Handle the simple case quickly. */
+ if (res_prec <= HOST_BITS_PER_WIDE_INT)
+ {
+ result.val[0] = val[0] << cnt;
+ result.len = 1;
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_wwv ("wide_int::lshift", result, *this, cnt);
+#endif
+
+ return result;
+ }
+
+ if (cnt >= res_prec)
+ {
+ result.val[0] = 0;
+ result.len = 1;
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_wwv ("wide_int::lshift", result, *this, cnt);
+#endif
+ return result;
+ }
+
+ for (i = 0; i < res_prec; i += HOST_BITS_PER_WIDE_INT)
+ result.val[i / HOST_BITS_PER_WIDE_INT]
+ = extract_to_hwi (i - cnt, HOST_BITS_PER_WIDE_INT);
+
+ result.len = BLOCKS_NEEDED (res_prec);
+
+ result.canonize ();
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_wwv ("wide_int::lshift", result, *this, cnt);
+#endif
+
+ return result;
+}
+
+/* Rotate THIS left by Y within its precision. */
+
+wide_int
+wide_int::lrotate (const wide_int &y) const
+{
+ return lrotate (y.extract_to_hwi (0, HOST_BITS_PER_WIDE_INT));
+}
+
+/* Rotate THIS left by CNT within its precision. */
+
+wide_int
+wide_int::lrotate (int cnt) const
+{
+ wide_int left, right, result;
+ int prec = precision ();
+
+ left = lshift (cnt, NONE);
+ right = rshiftu (prec - cnt, NONE);
+ result = left | right;
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_wwv ("wide_int::lrotate", result, *this, cnt);
+#endif
+ return result;
+}
+
+/* Unsigned right shift by Y. See the definition of Op.TRUNC for how
+ to set Z. */
+
+wide_int
+wide_int::rshiftu (const wide_int &y, Op z) const
+{
+ if (z == TRUNC)
+ {
+ HOST_WIDE_INT shift = trunc_shift (mode, &y, TRUNC);
+ if (shift == -1)
+ return wide_int_zero (mode);
+ return rshiftu (shift, NONE);
+ }
+ else
+ return rshiftu (trunc_shift (mode, &y, NONE), NONE);
+}
+
+/* Unsigned right shift THIS by CNT. See the definition of Op.TRUNC
+ for how to set Z. */
+
+wide_int
+wide_int::rshiftu (int cnt, Op trunc_op) const
+{
+ wide_int result;
+ int prec = precision ();
+ int stop_block, offset, i;
+
+ result.mode = mode;
+
+ if (trunc_op == TRUNC)
+ cnt = trunc_shift (mode, cnt);
+
+ if (cnt == 0)
+ {
+ result = copy (mode);
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_wwv ("wide_int::rshiftu", result, *this, cnt);
+#endif
+ return result;
+ }
+
+ /* Handle the simple case quickly. */
+ if (prec <= HOST_BITS_PER_WIDE_INT)
+ {
+ unsigned HOST_WIDE_INT x = val[0];
+
+ if (prec < HOST_BITS_PER_WIDE_INT)
+ x = zext (x, prec);
+
+ result.val[0] = x >> cnt;
+ result.len = 1;
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_wwv ("wide_int::rshiftu", result, *this, cnt);
+#endif
+ return result;
+ }
+
+ if (cnt >= prec)
+ {
+ result.val[0] = 0;
+ result.len = 1;
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_wwv ("wide_int::rshiftu", result, *this, cnt);
+#endif
+ return result;
+ }
+
+ stop_block = BLOCKS_NEEDED (prec - cnt);
+ for (i = 0; i < stop_block; i++)
+ result.val[i]
+ = extract_to_hwi ((i * HOST_BITS_PER_WIDE_INT) + cnt,
+ HOST_BITS_PER_WIDE_INT);
+
+ result.len = stop_block;
+
+ offset = (prec - cnt) & (HOST_BITS_PER_WIDE_INT - 1);
+ if (offset)
+ result.val[stop_block - 1] = zext (result.val[stop_block - 1], offset);
+ else
+ /* The top block had a 1 at the top position so it will decompress
+ wrong unless a zero block is added. This only works because we
+ know the shift was greater than 0. */
+ if (result.val[stop_block - 1] < 0)
+ result.val[result.len++] = 0;
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_wwv ("wide_int:rshiftu", result, *this, cnt);
+#endif
+ return result;
+}
+
+/* Signed right shift by Y. See the definition of Op.TRUNC for how to
+ set Z. */
+wide_int
+wide_int::rshifts (const wide_int &y, Op z) const
+{
+ if (z == TRUNC)
+ {
+ HOST_WIDE_INT shift = trunc_shift (mode, &y, TRUNC);
+ if (shift == -1)
+ {
+ /* The value of the shift was larger than the bitsize and this
+ machine does not truncate the value, so the result is
+ a smeared sign bit. */
+ if (neg_p ())
+ return wide_int_minus_one (mode);
+ else
+ return wide_int_zero (mode);
+ }
+ return rshifts (shift, NONE);
+ }
+ else
+ return rshifts (trunc_shift (mode, &y, NONE), NONE);
+}
+
+/* Signed right shift THIS by CNT. See the definition of Op.TRUNC for
+ how to set Z. */
+
+wide_int
+wide_int::rshifts (int cnt, Op trunc_op) const
+{
+ wide_int result;
+ int prec = precision ();
+ int stop_block, i;
+
+ result.mode = mode;
+
+ if (trunc_op == TRUNC)
+ cnt = trunc_shift (result.mode, cnt);
+
+ if (cnt == 0)
+ {
+ result = copy (mode);
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_wwv ("wide_int::rshifts", result, *this, cnt);
+#endif
+ return result;
+ }
+ /* Handle the simple case quickly. */
+ if (prec <= HOST_BITS_PER_WIDE_INT)
+ {
+ HOST_WIDE_INT x = val[0];
+ result.val[0] = x >> cnt;
+ result.len = 1;
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_wwv ("wide_int::rshifts", result, *this, cnt);
+#endif
+ return result;
+ }
+
+ if (cnt >= prec)
+ {
+ HOST_WIDE_INT m = sign_mask ();
+ result.val[0] = m;
+ result.len = 1;
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_wwv ("wide_int::rshifts", result, *this, cnt);
+#endif
+ return result;
+ }
+
+ stop_block = BLOCKS_NEEDED (prec - cnt);
+ for (i = 0; i < stop_block; i++)
+ result.val[i]
+ = extract_to_hwi ((i * HOST_BITS_PER_WIDE_INT) + cnt,
+ HOST_BITS_PER_WIDE_INT);
+
+ result.len = stop_block;
+
+ /* No need to sign extend the last block, since it extract_to_hwi
+ already did that. */
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_wwv ("wide_int::rshifts", result, *this, cnt);
+#endif
+
+ return result;
+}
+
+/* Rotate THIS right by Y within its precision. */
+
+wide_int
+wide_int::rrotate (const wide_int &y) const
+{
+ return rrotate (y.extract_to_hwi (0, HOST_BITS_PER_WIDE_INT));
+}
+
+/* Rotate THIS right by CNT within its precision. */
+
+wide_int
+wide_int::rrotate (int cnt) const
+{
+ wide_int left, right, result;
+ int prec = precision ();
+
+ left = lshift (prec - cnt, NONE);
+ right = rshiftu (cnt, NONE);
+ result = left | right;
+
+#ifdef DEBUG_WIDE_INT
+ if (dump_file)
+ debug_wwv ("wide_int::rrotate", result, *this, cnt);
+#endif
+ return result;
+}
+
+/*
+ * Private utilities.
+ */
+/* Decompress THIS for at least TARGET bits into a result with MODE. */
+
+wide_int
+wide_int::decompress (int target, enum machine_mode mode) const
+{
+ wide_int result;
+ int blocks_needed = BLOCKS_NEEDED (target);
+ HOST_WIDE_INT mask;
+ int len, i;
+
+ result.mode = mode;
+ result.len = blocks_needed;
+
+ for (i = 0; i < this->len; i++)
+ result.val[i] = val[i];
+
+ len = this->len;
+
+ /* One could argue that this should just ice. */
+ if (target > GET_MODE_PRECISION (mode))
+ return result;
+
+ /* The extension that we are doing here is not sign extension, it is
+ decompression. */
+ mask = sign_mask ();
+ while (len < blocks_needed)
+ result.val[len++] = mask;
+
+ return result;
+}
+
+
+/*
+ * Private debug printing routines.
+ */
+
+/* The debugging routines print results of wide operations into the
+ dump files of the respective passes in which they were called. */
+char *
+wide_int::dump (char* buf) const
+{
+ int i;
+ int l;
+ const char * sep = "";
+
+ l = sprintf (buf, "[%s (", GET_MODE_NAME (mode));
+ for (i = len - 1; i >= 0; i--)
+ {
+ l += sprintf (&buf[l], "%s" HOST_WIDE_INT_PRINT_HEX, sep, val[i]);
+ sep = " ";
+ }
+
+ gcc_assert (len != 0);
+
+ l += sprintf (&buf[l], ")]");
+
+ gcc_assert (l < MAX);
+ return buf;
+}
+
+void
+debug_vw (const char* name, int r, const wide_int& o0)
+{
+ char buf0[MAX];
+ fprintf (dump_file, "%s: %d = %s\n", name, r, o0.dump (buf0));
+}
+
+void
+debug_vwh (const char* name, int r, const wide_int &o0,
+ HOST_WIDE_INT o1)
+{
+ char buf0[MAX];
+ fprintf (dump_file, "%s: %d = %s 0x"HOST_WIDE_INT_PRINT_HEX" \n", name, r,
+ o0.dump (buf0), o1);
+}
+
+void
+debug_vww (const char* name, int r, const wide_int &o0,
+ const wide_int &o1)
+{
+ char buf0[MAX];
+ char buf1[MAX];
+ fprintf (dump_file, "%s: %d = %s OP %s\n", name, r,
+ o0.dump (buf0), o1.dump (buf1));
+}
+
+void
+debug_wv (const char* name, const wide_int &r, int v0)
+{
+ char buf0[MAX];
+ fprintf (dump_file, "%s: %s = %d\n",
+ name, r.dump (buf0), v0);
+}
+
+void
+debug_wvv (const char* name, const wide_int &r, int v0, int v1)
+{
+ char buf0[MAX];
+ fprintf (dump_file, "%s: %s = %d %d\n",
+ name, r.dump (buf0), v0, v1);
+}
+
+void
+debug_wvvv (const char* name, const wide_int &r, int v0,
+ int v1, int v2)
+{
+ char buf0[MAX];
+ fprintf (dump_file, "%s: %s = %d %d %d\n",
+ name, r.dump (buf0), v0, v1, v2);
+}
+
+void
+debug_wwv (const char* name, const wide_int &r,
+ const wide_int &o0, int v0)
+{
+ char buf0[MAX];
+ char buf1[MAX];
+ fprintf (dump_file, "%s: %s = %s %d\n",
+ name, r.dump (buf0),
+ o0.dump (buf1), v0);
+}
+
+void
+debug_wwwvv (const char* name, const wide_int &r,
+ const wide_int &o0, const wide_int &o1, int v0, int v1)
+{
+ char buf0[MAX];
+ char buf1[MAX];
+ char buf2[MAX];
+ fprintf (dump_file, "%s: %s = %s OP %s %d %d\n",
+ name, r.dump (buf0),
+ o0.dump (buf1), o1.dump (buf2), v0, v1);
+}
+
+void
+debug_ww (const char* name, const wide_int &r, const wide_int &o0)
+{
+ char buf0[MAX];
+ char buf1[MAX];
+ fprintf (dump_file, "%s: %s = %s\n",
+ name, r.dump (buf0),
+ o0.dump (buf1));
+}
+
+void
+debug_www (const char* name, const wide_int &r,
+ const wide_int &o0, const wide_int &o1)
+{
+ char buf0[MAX];
+ char buf1[MAX];
+ char buf2[MAX];
+ fprintf (dump_file, "%s: %s = %s OP %s\n",
+ name, r.dump (buf0),
+ o0.dump (buf1), o1.dump (buf2));
+}
+
+void
+debug_wwwv (const char* name, const wide_int &r,
+ const wide_int &o0, const wide_int &o1, int v0)
+{
+ char buf0[MAX];
+ char buf1[MAX];
+ char buf2[MAX];
+ fprintf (dump_file, "%s: %s = %s OP %s %d\n",
+ name, r.dump (buf0),
+ o0.dump (buf1), o1.dump (buf2), v0);
+}
+
+void
+debug_wwww (const char* name, const wide_int &r,
+ const wide_int &o0, const wide_int &o1, const wide_int &o2)
+{
+ char buf0[MAX];
+ char buf1[MAX];
+ char buf2[MAX];
+ char buf3[MAX];
+ fprintf (dump_file, "%s: %s = %s OP %s OP %s\n",
+ name, r.dump (buf0),
+ o0.dump (buf1), o1.dump (buf2), o2.dump (buf3));
+}
+#endif
+
Index: gcc/wide-int.h
===================================================================
--- gcc/wide-int.h (revision 0)
+++ gcc/wide-int.h (revision 0)
@@ -0,0 +1,718 @@
+/* Operations with very long integers.
+ Copyright (C) 2012 Free Software Foundation, Inc.
+
+This file is part of GCC.
+
+GCC 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 3, or (at your option) any
+later version.
+
+GCC 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 GCC; see the file COPYING3. If not see
+<http://www.gnu.org/licenses/>. */
+
+#ifndef WIDE_INT_H
+#define WIDE_INT_H
+
+/* A wide integer is currently represented as a vector of
+ HOST_WIDE_INTs. The vector contains enough elements to hold a
+ value of MAX_BITSIZE_MODE_ANY_INT / HOST_BITS_PER_WIDE_INT which is
+ a derived for each host target combination. The values are stored
+ in the vector with the least signicant HOST_BITS_PER_WIDE_INT bits
+ of the value stored in element 0.
+
+ A wide_int contains four fields: the vector (VAL), the mode and a
+ length, (LEN). The length is the number of HWIs needed to
+ represent the value.
+
+ Since most integers used in a compiler are small values, it is
+ generally profitable to use a representation of the value that is
+ shorter than the modes precision. LEN is used to indicate the
+ number of elements of the vector that are in use. When LEN *
+ HOST_BITS_PER_WIDE_INT < the precision, the value has been
+ compressed. The values of the elements of the vector greater than
+ LEN - 1. are all equal to the highest order bit of LEN.
+
+ The representation does not contain any information about
+ signedness of the represented value, so it can be used to represent
+ both signed and unsigned numbers. For operations where the results
+ depend on signedness (division, comparisons), the signedness must
+ be specified separately. For operations where the signness
+ matters, one of the operands to the operation specifies either
+ wide_int::SIGNED or wide_int::UNSIGNED.
+
+ All constructors for wide_int take either an enum machine_mode or
+ tree_type. */
+
+
+#ifndef GENERATOR_FILE
+#include "hwint.h"
+#include "options.h"
+#include "tm.h"
+#include "insn-modes.h"
+#include "machmode.h"
+#include "double-int.h"
+#include <gmp.h>
+#include "insn-modes.h"
+
+/* Some useful constants. */
+
+#define wide_int_minus_one(MODE) (wide_int::from_shwi (-1, MODE))
+#define wide_int_zero(MODE) (wide_int::from_shwi (0, MODE))
+#define wide_int_one(MODE) (wide_int::from_shwi (1, MODE))
+#define wide_int_two(MODE) (wide_int::from_shwi (2, MODE))
+#define wide_int_ten(MODE) (wide_int::from_shwi (10, MODE))
+
+class wide_int {
+ /* Internal representation. */
+ HOST_WIDE_INT val[MAX_BITSIZE_MODE_ANY_INT / HOST_BITS_PER_WIDE_INT];
+ unsigned short len;
+ enum machine_mode mode;
+
+ public:
+ enum Op {
+ NONE,
+ /* There are two uses for the wide-int shifting functions. The
+ first use is as an emulation of the target hardware. The
+ second use is as service routines for other optimizations. The
+ first case needs to be identified by passing TRUNC as the value
+ of Op so that shift amount is properly handled according to the
+ SHIFT_COUNT_TRUNCATED flag. For the second case, the shift
+ amount is always truncated by the bytesize of the mode of
+ THIS. */
+ TRUNC,
+
+ /* Many of the math functions produce different results depending
+ on if they are SIGNED or UNSIGNED. In general, there are two
+ different functions, whose names are prefixed with an 'S" and
+ or an 'U'. However, for some math functions there is also a
+ routine that does not have the prefix and takes an Op parameter
+ of SIGNED or UNSIGNED. */
+ SIGNED,
+ UNSIGNED
+ };
+
+ /* Conversions. */
+
+ static wide_int from_shwi (HOST_WIDE_INT op0, enum machine_mode mode);
+ static wide_int from_shwi (HOST_WIDE_INT op0, enum machine_mode mode, bool *overflow);
+ static wide_int from_uhwi (unsigned HOST_WIDE_INT op0, enum machine_mode mode);
+ static wide_int from_uhwi (unsigned HOST_WIDE_INT op0, enum machine_mode mode, bool *overflow);
+
+ static wide_int from_double_int (enum machine_mode, double_int);
+ static wide_int from_int_cst (const_tree);
+ static wide_int from_rtx (const_rtx, enum machine_mode);
+
+ HOST_WIDE_INT to_shwi () const;
+ HOST_WIDE_INT to_shwi (int prec) const;
+ unsigned HOST_WIDE_INT to_uhwi () const;
+ unsigned HOST_WIDE_INT to_uhwi (int prec) const;
+
+ /* Largest and smallest values that are represented in modes or precisions. */
+
+ static wide_int max_value (const enum machine_mode mode, Op sgn);
+ static wide_int max_value (const enum machine_mode mode, int prec, Op sgn);
+ static wide_int min_value (const enum machine_mode mode, Op sgn);
+ static wide_int min_value (const enum machine_mode mode, int prec, Op sgn);
+
+ /* Accessors. */
+
+ inline unsigned short get_len () const;
+ inline void set_len (unsigned int);
+ inline int full_len () const;
+ inline enum machine_mode get_mode () const;
+ inline void set_mode (enum machine_mode m);
+ inline HOST_WIDE_INT& elt_ref (unsigned int i);
+ inline unsigned HOST_WIDE_INT& uelt_ref (unsigned int i);
+ inline const unsigned HOST_WIDE_INT& uelt_ref (unsigned int i) const;
+ inline HOST_WIDE_INT elt (unsigned int i) const;
+ inline int precision () const;
+
+ /* Utility routines. */
+
+ void canonize ();
+ wide_int copy (enum machine_mode mode) const;
+ static inline HOST_WIDE_INT sext (HOST_WIDE_INT src, int prec);
+ static inline HOST_WIDE_INT zext (HOST_WIDE_INT src, int prec);
+
+ /* Printing functions. */
+
+ void print_dec (char *buf, Op sgn) const;
+ void print_dec (FILE *file, Op sgn) const;
+ void print_decs (char *buf) const;
+ void print_decs (FILE *file) const;
+ void print_decu (char *buf) const;
+ void print_decu (FILE *file) const;
+ void print_hex (char *buf) const;
+ void print_hex (FILE *file) const;
+
+ /* Comparative functions. */
+
+ inline bool minus_one_p () const;
+ inline bool zero_p () const;
+ inline bool one_p () const;
+ inline bool neg_p () const;
+
+ bool operator == (const wide_int &y) const;
+ inline bool operator != (const wide_int &y) const;
+ inline bool gt_p (const HOST_WIDE_INT x, Op sgn) const;
+ inline bool gt_p (const wide_int &x, Op sgn) const;
+ bool gts_p (const HOST_WIDE_INT y) const;
+ inline bool gts_p (const wide_int &y) const;
+ bool gtu_p (const unsigned HOST_WIDE_INT y) const;
+ inline bool gtu_p (const wide_int &y) const;
+
+ inline bool lt_p (const HOST_WIDE_INT x, Op sgn) const;
+ inline bool lt_p (const wide_int &x, Op sgn) const;
+ bool lts_p (const HOST_WIDE_INT y) const;
+ bool lts_p (const wide_int &y) const;
+ bool ltu_p (const unsigned HOST_WIDE_INT y) const;
+ bool ltu_p (const wide_int &y) const;
+
+ bool only_sign_bit_p (int prec) const;
+ bool only_sign_bit_p () const;
+ inline bool fits_uhwi_p () const;
+ inline bool fits_shwi_p () const;
+ bool fits_to_tree_p (const_tree type) const;
+ bool fits_u_p (int prec) const;
+ bool fits_s_p (int prec) const;
+
+ /* Extension */
+
+ inline wide_int ext (int, Op sgn) const;
+ wide_int sext (int) const;
+ wide_int sext (enum machine_mode mode) const;
+ wide_int zext (int offset) const;
+ wide_int zext (enum machine_mode mode) const;
+
+ /* Masking, and Insertion */
+
+ wide_int set_bit (int bitpos) const;
+ static wide_int set_bit_in_zero (int, enum machine_mode mode);
+ wide_int insert (const wide_int &op0, int offset, int width) const;
+ static wide_int mask (int, bool, enum machine_mode);
+ wide_int bswap () const;
+ static wide_int shifted_mask (int, int, bool, enum machine_mode);
+ inline HOST_WIDE_INT sign_mask () const;
+
+ /* Logicals */
+
+ wide_int operator & (const wide_int &y) const;
+ wide_int and_not (const wide_int &y) const;
+ wide_int operator ~ () const;
+ wide_int or_not (const wide_int &y) const;
+ wide_int operator | (const wide_int &y) const;
+ wide_int operator ^ (const wide_int &y) const;
+
+ /* Arithmetic operation functions, alpha sorted. */
+ wide_int abs () const;
+ wide_int operator + (const wide_int &y) const;
+ wide_int operator + (HOST_WIDE_INT y) const;
+ wide_int operator + (unsigned HOST_WIDE_INT y) const;
+ wide_int add (const wide_int &x, Op sgn, bool *overflow) const;
+ wide_int clz (enum machine_mode mode) const;
+ HOST_WIDE_INT clz () const;
+ wide_int clrsb (enum machine_mode mode) const;
+ HOST_WIDE_INT clrsb () const;
+ int cmp (const wide_int &y, Op sgn) const;
+ int cmps (const wide_int &y) const;
+ int cmpu (const wide_int &y) const;
+ wide_int ctz (enum machine_mode mode) const;
+ HOST_WIDE_INT ctz () const;
+ HOST_WIDE_INT exact_log2 () const;
+ HOST_WIDE_INT floor_log2 () const;
+ wide_int ffs () const;
+ wide_int max (const wide_int &y, Op sgn) const;
+ wide_int umax (const wide_int &y) const;
+ wide_int smax (const wide_int &y) const;
+ wide_int min (const wide_int &y, Op sgn) const;
+ wide_int umin (const wide_int &y) const;
+ wide_int smin (const wide_int &y) const;
+ wide_int operator * (const wide_int &y) const;
+ wide_int mul (const wide_int &x, Op sgn, bool *overflow) const;
+ inline wide_int smul (const wide_int &x, bool *overflow) const;
+ inline wide_int umul (const wide_int &x, bool *overflow) const;
+ wide_int mul_full (const wide_int &x, Op sgn) const;
+ inline wide_int umul_full (const wide_int &x) const;
+ inline wide_int smul_full (const wide_int &x) const;
+ wide_int mul_high (const wide_int &x, Op sgn) const;
+ wide_int neg () const;
+ wide_int neg_overflow (bool *z) const;
+ wide_int parity (enum machine_mode m) const;
+ int popcount () const;
+ wide_int popcount (enum machine_mode m) const;
+ wide_int operator - (const wide_int &y) const;
+ wide_int operator - (HOST_WIDE_INT y) const;
+ wide_int operator - (unsigned HOST_WIDE_INT y) const;
+ wide_int sub (const wide_int &x, Op sgn, bool *overflow) const;
+ wide_int truncate (enum machine_mode mode) const;
+
+ /* Divison and mod. These are the ones that are actually used, but
+ there are a lot of them. */
+
+ wide_int div_trunc (const wide_int &divisor, Op sgn) const;
+ wide_int div_trunc (const wide_int &divisor, Op sgn, bool *overflow) const;
+ inline wide_int sdiv_trunc (const wide_int &divisor) const;
+ inline wide_int udiv_trunc (const wide_int &divisor) const;
+
+ wide_int div_floor (const wide_int &divisor, Op sgn, bool *overflow) const;
+ inline wide_int udiv_floor (const wide_int &divisor) const;
+ inline wide_int sdiv_floor (const wide_int &divisor) const;
+ wide_int div_ceil (const wide_int &divisor, Op sgn, bool *overflow) const;
+ wide_int div_round (const wide_int &divisor, Op sgn, bool *overflow) const;
+
+ wide_int divmod_trunc (const wide_int &divisor, wide_int *mod, Op sgn) const;
+ inline wide_int sdivmod_trunc (const wide_int &divisor, wide_int *mod) const;
+ inline wide_int udivmod_trunc (const wide_int &divisor, wide_int *mod) const;
+
+ wide_int divmod_floor (const wide_int &divisor, wide_int *mod, Op sgn) const;
+ inline wide_int sdivmod_floor (const wide_int &divisor, wide_int *mod) const;
+
+ wide_int mod_trunc (const wide_int &divisor, Op sgn) const;
+ wide_int mod_trunc (const wide_int &divisor, Op sgn, bool *overflow) const;
+ inline wide_int smod_trunc (const wide_int &divisor) const;
+ inline wide_int umod_trunc (const wide_int &divisor) const;
+
+ wide_int mod_floor (const wide_int &divisor, Op sgn, bool *overflow) const;
+ inline wide_int umod_floor (const wide_int &divisor) const;
+ wide_int mod_ceil (const wide_int &divisor, Op sgn, bool *overflow) const;
+ wide_int mod_round (const wide_int &divisor, Op sgn, bool *overflow) const;
+
+
+ /* Shifting rotating and extracting. */
+ HOST_WIDE_INT extract_to_hwi (int offset, int width) const;
+
+ wide_int lshift (const wide_int &y, Op z = NONE) const;
+ wide_int lshift (int y, Op z, enum machine_mode m) const;
+ wide_int lshift (int y, Op z = NONE) const;
+
+ wide_int lrotate (const wide_int &y) const;
+ wide_int lrotate (int y) const;
+
+ wide_int rshift (int y, Op sgn) const;
+ inline wide_int rshift (const wide_int &y, Op sgn, Op z = NONE) const;
+ wide_int rshiftu (const wide_int &y, Op z = NONE) const;
+ wide_int rshiftu (int y, Op z = NONE) const;
+ wide_int rshifts (const wide_int &y, Op z = NONE) const;
+ wide_int rshifts (int y, Op z = NONE) const;
+
+ wide_int rrotate (const wide_int &y) const;
+ wide_int rrotate (int y) const;
+
+ static const int DUMP_MAX = (MAX_BITSIZE_MODE_ANY_INT / 4
+ + MAX_BITSIZE_MODE_ANY_INT / HOST_BITS_PER_WIDE_INT + 32);
+ char *dump (char* buf) const;
+ private:
+
+ /* Private utility routines. */
+ wide_int decompress (int target, enum machine_mode mode) const;
+ static wide_int add_overflow (const wide_int *op0, const wide_int *op1,
+ wide_int::Op sgn, bool *overflow);
+ static wide_int sub_overflow (const wide_int *op0, const wide_int *op1,
+ wide_int::Op sgn, bool *overflow);
+ static wide_int mul_internal (bool high, bool full,
+ const wide_int *op1, const wide_int *op2, wide_int::Op op,
+ bool *overflow, bool needs_overflow);
+};
+
+
+/* Produce 0 or -1 that is the smear of the sign bit. */
+
+HOST_WIDE_INT
+wide_int::sign_mask () const
+{
+ int prec = GET_MODE_PRECISION (mode);
+ int i = len - 1;
+ if (prec < HOST_BITS_PER_WIDE_INT)
+ return ((val[0] << (HOST_BITS_PER_WIDE_INT - prec))
+ >> (HOST_BITS_PER_WIDE_INT - 1));
+
+ /* VRP appears to be badly broken and this is a very ugly fix. */
+ if (i >= 0)
+ return val[i] >> (HOST_BITS_PER_WIDE_INT - 1);
+
+ gcc_unreachable ();
+}
+
+#define wide_int_smin(OP0,OP1) ((OP0).lts_p (OP1) ? (OP0) : (OP1))
+#define wide_int_smax(OP0,OP1) ((OP0).lts_p (OP1) ? (OP1) : (OP0))
+#define wide_int_umin(OP0,OP1) ((OP0).ltu_p (OP1) ? (OP0) : (OP1))
+#define wide_int_umax(OP0,OP1) ((OP0).ltu_p (OP1) ? (OP1) : (OP0))
+
+
+/* Public accessors for the interior of a wide int. */
+
+/* Get the number of host wide ints actually represented within the
+ wide int. */
+
+unsigned short
+wide_int::get_len () const
+{
+ return len;
+}
+
+/* Set the number of host wide ints actually represented within the
+ wide int. */
+
+void
+wide_int::set_len (unsigned int l)
+{
+ gcc_assert (l < MAX_BITSIZE_MODE_ANY_INT / HOST_BITS_PER_WIDE_INT);
+ len = l;
+}
+
+/* Get the mode of the wide int. */
+
+enum machine_mode
+wide_int::get_mode () const
+{
+ return mode;
+}
+
+/* Set the mode of the wide int. */
+
+void
+wide_int::set_mode (enum machine_mode m)
+{
+ mode = m;
+}
+
+/* Get the number of host wide ints needed to represent the precision
+ of the number. */
+
+int
+wide_int::full_len () const
+{
+ return ((GET_MODE_PRECISION (mode) + HOST_BITS_PER_WIDE_INT - 1)
+ / HOST_BITS_PER_WIDE_INT);
+}
+
+/* Get a reference to a particular element of the wide int. Does not
+ check I against len as during construction we might want to set len
+ after creating the value. */
+
+HOST_WIDE_INT&
+wide_int::elt_ref (unsigned int i)
+{
+ /* We check maximal size, not len. */
+ gcc_assert (i < MAX_BITSIZE_MODE_ANY_INT / HOST_BITS_PER_WIDE_INT);
+
+ return val[i];
+}
+
+/* Get a reference to a particular element of the wide int as an
+ unsigned quantity. Does not check I against len as during
+ construction we might want to set len after creating the value. */
+
+unsigned HOST_WIDE_INT&
+wide_int::uelt_ref (unsigned int i)
+{
+ return *(unsigned HOST_WIDE_INT *)&elt_ref (i);
+}
+
+/* Get a reference to a particular element of the wide int as a
+ constant unsigned quantity. Does not check I against len as during
+ construction we might want to set len after creating the value. */
+
+const unsigned HOST_WIDE_INT&
+wide_int::uelt_ref (unsigned int i) const
+{
+ /* We check maximal size, not len. */
+ gcc_assert (i < MAX_BITSIZE_MODE_ANY_INT / HOST_BITS_PER_WIDE_INT);
+
+ return *(const unsigned HOST_WIDE_INT *)&val[i];
+}
+
+/* Get a particular element of the wide int. */
+
+HOST_WIDE_INT
+wide_int::elt (unsigned int i) const
+{
+ return i >= len ? sign_mask () : val[i];
+}
+
+/* Get the precision of the mode in THIS. */
+int
+wide_int::precision () const
+{
+ return GET_MODE_PRECISION (mode);
+}
+
+
+
+/* Sign extend SRC from PREC. */
+
+HOST_WIDE_INT
+wide_int::sext (HOST_WIDE_INT src, int prec)
+{
+ if (prec == HOST_BITS_PER_WIDE_INT)
+ return src;
+ else
+ {
+ int shift = HOST_BITS_PER_WIDE_INT - (prec & (HOST_BITS_PER_WIDE_INT - 1));
+ return (src << shift) >> shift;
+ }
+}
+
+/* Zero extend SRC from PREC. */
+
+HOST_WIDE_INT
+wide_int::zext (HOST_WIDE_INT src, int prec)
+{
+ if (prec == HOST_BITS_PER_WIDE_INT)
+ return src;
+ else
+ return src & (((HOST_WIDE_INT)1
+ << (prec & (HOST_BITS_PER_WIDE_INT - 1))) - 1);
+}
+
+bool
+wide_int::minus_one_p () const
+{
+ return len == 1 && val[0] == (HOST_WIDE_INT)-1;
+}
+
+bool
+wide_int::zero_p () const
+{
+ return len == 1 && val[0] == 0;
+}
+
+bool
+wide_int::one_p () const
+{
+ return len == 1 && val[0] == 1;
+}
+
+bool
+wide_int::neg_p () const
+{
+ return sign_mask () != 0;
+}
+
+bool
+wide_int::operator != (const wide_int &op1) const
+{
+ return !(*this == op1);
+}
+
+/* Return true if THIS is greater than OP1. Signness is indicated by
+ OP. */
+bool
+wide_int::gt_p (HOST_WIDE_INT op1, Op op) const
+{
+ if (op == SIGNED)
+ return gts_p (op1);
+ else
+ return gtu_p (op1);
+}
+
+/* Return true if THIS is greater than OP1. Signness is indicated by
+ OP. */
+bool
+wide_int::gt_p (const wide_int &op1, Op op) const
+{
+ if (op == SIGNED)
+ return op1.lts_p (*this);
+ else
+ return op1.ltu_p (*this);
+}
+
+/* Return true if THIS is signed greater than OP1. */
+bool
+wide_int::gts_p (const wide_int &op1) const
+{
+ return op1.lts_p (*this);
+}
+
+/* Return true if THIS is unsigned greater than OP1. */
+bool
+wide_int::gtu_p (const wide_int &op1) const
+{
+ return op1.ltu_p (*this);
+}
+
+/* Return true if THIS is less than OP1. Signness is indicated by
+ OP. */
+bool
+wide_int::lt_p (HOST_WIDE_INT op1, Op op) const
+{
+ if (op == SIGNED)
+ return lts_p (op1);
+ else
+ return ltu_p (op1);
+}
+
+/* Return true if THIS is less than OP1. Signness is indicated by
+ OP. */
+bool
+wide_int::lt_p (const wide_int &op1, Op op) const
+{
+ if (op == SIGNED)
+ return lts_p (op1);
+ else
+ return ltu_p (op1);
+}
+
+/* Return true if THIS fits in a HOST_WIDE_INT with no loss of
+ precision. */
+bool
+wide_int::fits_shwi_p () const
+{
+ return len == 1;
+}
+
+/* Return true if THIS fits in an unsigned HOST_WIDE_INT with no loss
+ of precision. */
+bool
+wide_int::fits_uhwi_p () const
+{
+ return len == 1
+ || (len == 2 && val[1] == (HOST_WIDE_INT)-1);
+}
+
+/* Return THIS extended to PREC. The signness of the extension is
+ specified by OP. */
+wide_int
+wide_int::ext (int prec, Op z) const
+{
+ if (z == UNSIGNED)
+ return zext (prec);
+ else
+ return zext (prec);
+}
+
+/* Signed multiply THIS and OP1. The result is the same precision as
+ the operands. OVERFLOW is set true if the result overflows. */
+wide_int
+wide_int::smul (const wide_int &x, bool *overflow) const
+{
+ return mul (x, SIGNED, overflow);
+}
+
+/* Unsigned multiply THIS and OP1. The result is the same precision
+ as the operands. OVERFLOW is set true if the result overflows. */
+wide_int
+wide_int::umul (const wide_int &x, bool *overflow) const
+{
+ return mul (x, UNSIGNED, overflow);
+}
+
+/* Signed multiply THIS and OP1. The result is twice the precision as
+ the operands. There is an issue with this function if it is called
+ on the widest mode defined on the platform, since there is no mode
+ that is twice as wide. */
+wide_int
+wide_int::smul_full (const wide_int &x) const
+{
+ return mul_full (x, SIGNED);
+}
+
+/* Unsigned multiply THIS and OP1. The result is twice the precision
+ as the operands. There is an issue with this function if it is
+ called on the widest mode defined on the platform, since there is
+ no mode that is twice as wide. */
+wide_int
+wide_int::umul_full (const wide_int &x) const
+{
+ return mul_full (x, UNSIGNED);
+}
+
+/* Signed divide with truncation of result. */
+wide_int
+wide_int::sdiv_trunc (const wide_int &divisor) const
+{
+ return div_trunc (divisor, SIGNED);
+}
+
+/* Unsigned divide with truncation of result. */
+wide_int
+wide_int::udiv_trunc (const wide_int &divisor) const
+{
+ return div_trunc (divisor, UNSIGNED);
+}
+
+/* Unsigned divide with floor truncation of result. */
+wide_int
+wide_int::udiv_floor (const wide_int &divisor) const
+{
+ bool overflow;
+
+ return div_floor (divisor, UNSIGNED, &overflow);
+}
+
+/* Signed divide with floor truncation of result. */
+wide_int
+wide_int::sdiv_floor (const wide_int &divisor) const
+{
+ bool overflow;
+
+ return div_floor (divisor, SIGNED, &overflow);
+}
+
+/* Signed divide/mod with truncation of result. */
+wide_int
+wide_int::sdivmod_trunc (const wide_int &divisor, wide_int *mod) const
+{
+ return divmod_trunc (divisor, mod, SIGNED);
+}
+
+/* Unsigned divide/mod with truncation of result. */
+wide_int
+wide_int::udivmod_trunc (const wide_int &divisor, wide_int *mod) const
+{
+ return divmod_trunc (divisor, mod, UNSIGNED);
+}
+
+/* Signed divide/mod with floor truncation of result. */
+wide_int
+wide_int::sdivmod_floor (const wide_int &divisor, wide_int *mod) const
+{
+ return divmod_floor (divisor, mod, SIGNED);
+}
+
+/* Signed mod with truncation of result. */
+wide_int
+wide_int::smod_trunc (const wide_int &divisor) const
+{
+ return mod_trunc (divisor, SIGNED);
+}
+
+/* Unsigned mod with truncation of result. */
+wide_int
+wide_int::umod_trunc (const wide_int &divisor) const
+{
+ return mod_trunc (divisor, UNSIGNED);
+}
+
+/* Unsigned mod with floor truncation of result. */
+wide_int
+wide_int::umod_floor (const wide_int &divisor) const
+{
+ bool overflow;
+
+ return mod_floor (divisor, UNSIGNED, &overflow);
+}
+
+wide_int
+wide_int::rshift (const wide_int &y, Op sgn, Op z) const
+{
+ if (sgn == UNSIGNED)
+ return rshiftu (y, z);
+ else
+ return rshifts (y, z);
+}
+
+/* Conversion to and from GMP integer representations. */
+
+void mpz_set_wide_int (mpz_t, wide_int, bool);
+wide_int mpz_get_wide_int (const_tree, mpz_t, bool);
+#endif /* GENERATOR FILE */
+
+#endif /* WIDE_INT_H */
Index: gcc/genmodes.c
===================================================================
--- gcc/genmodes.c (revision 191978)
+++ gcc/genmodes.c (working copy)
@@ -849,6 +849,38 @@ calc_wider_mode (void)
#define print_closer() puts ("};")
+/* Compute the max bitsize of some of the classes of integers. It may
+ be that there are needs for the other integer classes, and this
+ code is easy to extend. */
+static void
+emit_max_int (void)
+{
+ unsigned int max, mmax;
+ struct mode_data *i;
+ int j;
+
+ puts ("");
+ for (max = 1, i = modes[MODE_INT]; i; i = i->next)
+ if (max < i->bytesize)
+ max = i->bytesize;
+ printf ("#define MAX_BITSIZE_MODE_INT %d*BITS_PER_UNIT\n", max);
+ mmax = max;
+ for (max = 1, i = modes[MODE_PARTIAL_INT]; i; i = i->next)
+ if (max < i->bytesize)
+ max = i->bytesize;
+ printf ("#define MAX_BITSIZE_MODE_PARTIAL_INT %d*BITS_PER_UNIT\n", max);
+ if (max > mmax)
+ mmax = max;
+ printf ("#define MAX_BITSIZE_MODE_ANY_INT %d*BITS_PER_UNIT\n", mmax);
+
+ mmax = 0;
+ for (j = 0; j < MAX_MODE_CLASS; j++)
+ for (i = modes[j]; i; i = i->next)
+ if (mmax < i->bytesize)
+ mmax = i->bytesize;
+ printf ("#define MAX_BITSIZE_MODE_ANY_MODE %d*BITS_PER_UNIT\n", mmax);
+}
+
static void
emit_insn_modes_h (void)
{
@@ -913,6 +945,7 @@ enum machine_mode\n{");
#endif
printf ("#define CONST_MODE_IBIT%s\n", adj_ibit ? "" : " const");
printf ("#define CONST_MODE_FBIT%s\n", adj_fbit ? "" : " const");
+ emit_max_int ();
puts ("\
\n\
#endif /* insn-modes.h */");
Index: gcc/ira-lives.c
===================================================================
--- gcc/ira-lives.c (revision 191978)
+++ gcc/ira-lives.c (working copy)
@@ -779,22 +779,16 @@ single_reg_class (const char *constraint
break;
case 'n':
- if (CONST_INT_P (op)
- || CONST_DOUBLE_AS_INT_P (op)
- || (equiv_const != NULL_RTX
- && (CONST_INT_P (equiv_const)
- || CONST_DOUBLE_AS_INT_P (equiv_const))))
+ if (CONST_SCALAR_INT_P (op)
+ || (equiv_const != NULL_RTX && CONST_SCALAR_INT_P (equiv_const)))
return NO_REGS;
break;
case 's':
- if ((CONSTANT_P (op)
- && !CONST_INT_P (op)
- && !CONST_DOUBLE_AS_INT_P (op))
+ if ((CONSTANT_P (op) && !CONST_SCALAR_INT_P (op))
|| (equiv_const != NULL_RTX
&& CONSTANT_P (equiv_const)
- && !CONST_INT_P (equiv_const)
- && !CONST_DOUBLE_AS_INT_P (equiv_const)))
+ && !CONST_SCALAR_INT_P (equiv_const)))
return NO_REGS;
break;
Index: gcc/emit-rtl.c
===================================================================
--- gcc/emit-rtl.c (revision 191978)
+++ gcc/emit-rtl.c (working copy)
@@ -128,6 +128,9 @@ rtx cc0_rtx;
static GTY ((if_marked ("ggc_marked_p"), param_is (struct rtx_def)))
htab_t const_int_htab;
+static GTY ((if_marked ("ggc_marked_p"), param_is (struct rtx_def)))
+ htab_t const_wide_int_htab;
+
/* A hash table storing memory attribute structures. */
static GTY ((if_marked ("ggc_marked_p"), param_is (struct mem_attrs)))
htab_t mem_attrs_htab;
@@ -153,6 +156,11 @@ static void set_used_decls (tree);
static void mark_label_nuses (rtx);
static hashval_t const_int_htab_hash (const void *);
static int const_int_htab_eq (const void *, const void *);
+#if TARGET_SUPPORTS_WIDE_INT
+static hashval_t const_wide_int_htab_hash (const void *);
+static int const_wide_int_htab_eq (const void *, const void *);
+static rtx lookup_const_wide_int (rtx);
+#endif
static hashval_t const_double_htab_hash (const void *);
static int const_double_htab_eq (const void *, const void *);
static rtx lookup_const_double (rtx);
@@ -189,6 +197,43 @@ const_int_htab_eq (const void *x, const
return (INTVAL ((const_rtx) x) == *((const HOST_WIDE_INT *) y));
}
+#if TARGET_SUPPORTS_WIDE_INT
+/* Returns a hash code for X (which is a really a CONST_WIDE_INT). */
+
+static hashval_t
+const_wide_int_htab_hash (const void *x)
+{
+ int i;
+ HOST_WIDE_INT hash = 0;
+ const_rtx xr = (const_rtx) x;
+
+ for (i = 0; i < CONST_WIDE_INT_NUNITS (xr); i++)
+ hash += CONST_WIDE_INT_ELT (xr, i);
+
+ return (hashval_t) hash;
+}
+
+/* Returns nonzero if the value represented by X (which is really a
+ CONST_WIDE_INT) is the same as that given by Y (which is really a
+ CONST_WIDE_INT). */
+
+static int
+const_wide_int_htab_eq (const void *x, const void *y)
+{
+ int i;
+ const_rtx xr = (const_rtx)x;
+ const_rtx yr = (const_rtx)y;
+ if (CONST_WIDE_INT_NUNITS (xr) != CONST_WIDE_INT_NUNITS (yr))
+ return 0;
+
+ for (i = 0; i < CONST_WIDE_INT_NUNITS (xr); i++)
+ if (CONST_WIDE_INT_ELT (xr, i) != CONST_WIDE_INT_ELT (yr, i))
+ return 0;
+
+ return 1;
+}
+#endif
+
/* Returns a hash code for X (which is really a CONST_DOUBLE). */
static hashval_t
const_double_htab_hash (const void *x)
@@ -196,7 +241,7 @@ const_double_htab_hash (const void *x)
const_rtx const value = (const_rtx) x;
hashval_t h;
- if (GET_MODE (value) == VOIDmode)
+ if (TARGET_SUPPORTS_WIDE_INT == 0 && GET_MODE (value) == VOIDmode)
h = CONST_DOUBLE_LOW (value) ^ CONST_DOUBLE_HIGH (value);
else
{
@@ -216,7 +261,7 @@ const_double_htab_eq (const void *x, con
if (GET_MODE (a) != GET_MODE (b))
return 0;
- if (GET_MODE (a) == VOIDmode)
+ if (TARGET_SUPPORTS_WIDE_INT == 0 && GET_MODE (a) == VOIDmode)
return (CONST_DOUBLE_LOW (a) == CONST_DOUBLE_LOW (b)
&& CONST_DOUBLE_HIGH (a) == CONST_DOUBLE_HIGH (b));
else
@@ -482,6 +527,7 @@ const_fixed_from_fixed_value (FIXED_VALU
return lookup_const_fixed (fixed);
}
+#if TARGET_SUPPORTS_WIDE_INT == 0
/* Constructs double_int from rtx CST. */
double_int
@@ -501,17 +547,58 @@ rtx_to_double_int (const_rtx cst)
return r;
}
+#endif
+#if TARGET_SUPPORTS_WIDE_INT
+/* Determine whether WIDE_INT, already exists in the hash table. If
+ so, return its counterpart; otherwise add it to the hash table and
+ return it. */
-/* Return a CONST_DOUBLE or CONST_INT for a value specified as
- a double_int. */
-
-rtx
-immed_double_int_const (double_int i, enum machine_mode mode)
+static rtx
+lookup_const_wide_int (rtx wint)
{
- return immed_double_const (i.low, i.high, mode);
+ void **slot = htab_find_slot (const_wide_int_htab, wint, INSERT);
+ if (*slot == 0)
+ *slot = wint;
+
+ return (rtx) *slot;
+}
+#endif
+
+/* V contains a wide_int. A CONST_INT or CONST_WIDE_INT (if
+ TARGET_SUPPORTS_WIDE_INT is defined) or CONST_DOUBLE if
+ TARGET_SUPPORTS_WIDE_INT is not defined is produced based on the
+ number of HOST_WIDE_INTs that are necessary to represent the value
+ in compact form. */
+rtx
+immed_wide_int_const (const wide_int &v)
+{
+ unsigned int len = v.get_len ();
+
+ if (len < 2)
+ return gen_int_mode (v.elt (0), v.get_mode ());
+
+#if TARGET_SUPPORTS_WIDE_INT
+ {
+ rtx value = const_wide_int_alloc (len);
+ unsigned int i;
+
+ /* It is so tempting to just put the mode in here. Must control
+ myself ... */
+ PUT_MODE (value, VOIDmode);
+ HWI_PUT_NUM_ELEM (CONST_WIDE_INT_VEC (value), len);
+
+ for (i = 0; i < len; i++)
+ CONST_WIDE_INT_ELT (value, i) = v.elt (i);
+
+ return lookup_const_wide_int (value);
+ }
+#else
+ return immed_double_const (v.elt (0), v.elt (1), v.get_mode ());
+#endif
}
+#if TARGET_SUPPORTS_WIDE_INT == 0
/* Return a CONST_DOUBLE or CONST_INT for a value specified as a pair
of ints: I0 is the low-order word and I1 is the high-order word.
For values that are larger than HOST_BITS_PER_DOUBLE_INT, the
@@ -563,6 +650,7 @@ immed_double_const (HOST_WIDE_INT i0, HO
return lookup_const_double (value);
}
+#endif
rtx
gen_rtx_REG (enum machine_mode mode, unsigned int regno)
@@ -1244,7 +1332,7 @@ gen_lowpart_common (enum machine_mode mo
}
else if (GET_CODE (x) == SUBREG || REG_P (x)
|| GET_CODE (x) == CONCAT || GET_CODE (x) == CONST_VECTOR
- || CONST_DOUBLE_P (x) || CONST_INT_P (x))
+ || CONST_DOUBLE_AS_FLOAT_P (x) || CONST_SCALAR_INT_P (x))
return simplify_gen_subreg (mode, x, innermode, offset);
/* Otherwise, we can't do this. */
@@ -5575,11 +5663,15 @@ init_emit_once (void)
enum machine_mode mode;
enum machine_mode double_mode;
- /* Initialize the CONST_INT, CONST_DOUBLE, CONST_FIXED, and memory attribute
- hash tables. */
+ /* Initialize the CONST_INT, CONST_WIDE_INT, CONST_DOUBLE,
+ CONST_FIXED, and memory attribute hash tables. */
const_int_htab = htab_create_ggc (37, const_int_htab_hash,
const_int_htab_eq, NULL);
+#if TARGET_SUPPORTS_WIDE_INT
+ const_wide_int_htab = htab_create_ggc (37, const_wide_int_htab_hash,
+ const_wide_int_htab_eq, NULL);
+#endif
const_double_htab = htab_create_ggc (37, const_double_htab_hash,
const_double_htab_eq, NULL);
Index: gcc/combine.c
===================================================================
--- gcc/combine.c (revision 191978)
+++ gcc/combine.c (working copy)
@@ -2617,16 +2617,19 @@ try_combine (rtx i3, rtx i2, rtx i1, rtx
constant. */
if (i1 == 0
&& (temp = single_set (i2)) != 0
- && (CONST_INT_P (SET_SRC (temp))
- || CONST_DOUBLE_AS_INT_P (SET_SRC (temp)))
+ && CONST_SCALAR_INT_P (SET_SRC (temp))
&& GET_CODE (PATTERN (i3)) == SET
- && (CONST_INT_P (SET_SRC (PATTERN (i3)))
- || CONST_DOUBLE_AS_INT_P (SET_SRC (PATTERN (i3))))
+ && CONST_SCALAR_INT_P (SET_SRC (PATTERN (i3)))
&& reg_subword_p (SET_DEST (PATTERN (i3)), SET_DEST (temp)))
{
rtx dest = SET_DEST (PATTERN (i3));
int offset = -1;
int width = 0;
+
+ /* There are not explicit tests to make sure that this is not a
+ float, but there is code here that would not be correct if it
+ was. */
+ gcc_assert (GET_MODE_CLASS (GET_MODE (SET_SRC (temp))) != MODE_FLOAT);
if (GET_CODE (dest) == ZERO_EXTRACT)
{
@@ -2662,23 +2665,15 @@ try_combine (rtx i3, rtx i2, rtx i1, rtx
offset = -1;
}
- if (offset >= 0
- && (GET_MODE_PRECISION (GET_MODE (SET_DEST (temp)))
- <= HOST_BITS_PER_DOUBLE_INT))
+ if (offset >= 0)
{
- double_int m, o, i;
+ wide_int o;
rtx inner = SET_SRC (PATTERN (i3));
rtx outer = SET_SRC (temp);
-
- o = rtx_to_double_int (outer);
- i = rtx_to_double_int (inner);
-
- m = double_int::mask (width);
- i &= m;
- m = m.llshift (offset, HOST_BITS_PER_DOUBLE_INT);
- i = i.llshift (offset, HOST_BITS_PER_DOUBLE_INT);
- o = o.and_not (m) | i;
-
+
+ o = (wide_int::from_rtx (outer, GET_MODE (SET_DEST (temp)))
+ .insert (wide_int::from_rtx (inner, GET_MODE (dest)),
+ offset, width));
combine_merges++;
subst_insn = i3;
subst_low_luid = DF_INSN_LUID (i2);
@@ -2689,8 +2684,7 @@ try_combine (rtx i3, rtx i2, rtx i1, rtx
/* Replace the source in I2 with the new constant and make the
resulting insn the new pattern for I3. Then skip to where we
validate the pattern. Everything was set up above. */
- SUBST (SET_SRC (temp),
- immed_double_int_const (o, GET_MODE (SET_DEST (temp))));
+ SUBST (SET_SRC (temp), immed_wide_int_const (o));
newpat = PATTERN (i2);
@@ -5102,8 +5096,7 @@ subst (rtx x, rtx from, rtx to, int in_d
if (GET_CODE (new_rtx) == CLOBBER && XEXP (new_rtx, 0) == const0_rtx)
return new_rtx;
- if (GET_CODE (x) == SUBREG
- && (CONST_INT_P (new_rtx) || CONST_DOUBLE_AS_INT_P (new_rtx)))
+ if (GET_CODE (x) == SUBREG && CONST_SCALAR_INT_P (new_rtx))
{
enum machine_mode mode = GET_MODE (x);
@@ -5113,7 +5106,7 @@ subst (rtx x, rtx from, rtx to, int in_d
if (! x)
x = gen_rtx_CLOBBER (mode, const0_rtx);
}
- else if (CONST_INT_P (new_rtx)
+ else if (CONST_SCALAR_INT_P (new_rtx)
&& GET_CODE (x) == ZERO_EXTEND)
{
x = simplify_unary_operation (ZERO_EXTEND, GET_MODE (x),
@@ -7133,7 +7126,7 @@ make_extraction (enum machine_mode mode,
if (mode == tmode)
return new_rtx;
- if (CONST_INT_P (new_rtx) || CONST_DOUBLE_AS_INT_P (new_rtx))
+ if (CONST_SCALAR_INT_P (new_rtx))
return simplify_unary_operation (unsignedp ? ZERO_EXTEND : SIGN_EXTEND,
mode, new_rtx, tmode);
@@ -10672,8 +10665,7 @@ gen_lowpart_for_combine (enum machine_mo
/* We can only support MODE being wider than a word if X is a
constant integer or has a mode the same size. */
if (GET_MODE_SIZE (omode) > UNITS_PER_WORD
- && ! ((CONST_INT_P (x) || CONST_DOUBLE_AS_INT_P (x))
- || isize == osize))
+ && ! (CONST_SCALAR_INT_P (x) || isize == osize))
goto fail;
/* X might be a paradoxical (subreg (mem)). In that case, gen_lowpart
Index: gcc/print-rtl.c
===================================================================
--- gcc/print-rtl.c (revision 191978)
+++ gcc/print-rtl.c (working copy)
@@ -634,6 +634,12 @@ print_rtx (const_rtx in_rtx)
fprintf (outfile, " [%s]", s);
}
break;
+
+ case CONST_WIDE_INT:
+ if (! flag_simple)
+ fprintf (outfile, " ");
+ hwivec_output_hex (outfile, CONST_WIDE_INT_VEC (in_rtx));
+ break;
#endif
case CODE_LABEL:
Index: gcc/genpreds.c
===================================================================
--- gcc/genpreds.c (revision 191978)
+++ gcc/genpreds.c (working copy)
@@ -613,7 +613,7 @@ write_one_predicate_function (struct pre
add_mode_tests (p);
/* A normal predicate can legitimately not look at enum machine_mode
- if it accepts only CONST_INTs and/or CONST_DOUBLEs. */
+ if it accepts only CONST_INTs and/or CONST_WIDE_INT and/or CONST_DOUBLEs. */
printf ("int\n%s (rtx op, enum machine_mode mode ATTRIBUTE_UNUSED)\n{\n",
p->name);
write_predicate_stmts (p->exp);
@@ -810,8 +810,11 @@ add_constraint (const char *name, const
if (is_const_int || is_const_dbl)
{
enum rtx_code appropriate_code
+#if TARGET_SUPPORTS_WIDE_INT
+ = is_const_int ? CONST_INT : CONST_WIDE_INT;
+#else
= is_const_int ? CONST_INT : CONST_DOUBLE;
-
+#endif
/* Consider relaxing this requirement in the future. */
if (regclass
|| GET_CODE (exp) != AND
@@ -1075,12 +1078,17 @@ write_tm_constrs_h (void)
if (needs_ival)
puts (" if (CONST_INT_P (op))\n"
" ival = INTVAL (op);");
+#if TARGET_SUPPORTS_WIDE_INT
+ if (needs_lval || needs_hval)
+ error ("you can't use lval or hval");
+#else
if (needs_hval)
puts (" if (GET_CODE (op) == CONST_DOUBLE && mode == VOIDmode)"
" hval = CONST_DOUBLE_HIGH (op);");
if (needs_lval)
puts (" if (GET_CODE (op) == CONST_DOUBLE && mode == VOIDmode)"
" lval = CONST_DOUBLE_LOW (op);");
+#endif
if (needs_rval)
puts (" if (GET_CODE (op) == CONST_DOUBLE && mode != VOIDmode)"
" rval = CONST_DOUBLE_REAL_VALUE (op);");
Index: gcc/tree-ssa-address.c
===================================================================
--- gcc/tree-ssa-address.c (revision 191978)
+++ gcc/tree-ssa-address.c (working copy)
@@ -192,15 +192,16 @@ addr_for_mem_ref (struct mem_address *ad
struct mem_addr_template *templ;
if (addr->step && !integer_onep (addr->step))
- st = immed_double_int_const (tree_to_double_int (addr->step), pointer_mode);
+ st = immed_wide_int_const (wide_int::from_int_cst (addr->step));
else
st = NULL_RTX;
if (addr->offset && !integer_zerop (addr->offset))
- off = immed_double_int_const
- (tree_to_double_int (addr->offset)
- .sext (TYPE_PRECISION (TREE_TYPE (addr->offset))),
- pointer_mode);
+ {
+ wide_int dc = wide_int::from_int_cst (addr->offset);
+ dc = dc.sext (TYPE_PRECISION (TREE_TYPE (addr->offset)));
+ off = immed_wide_int_const (dc);
+ }
else
off = NULL_RTX;
Index: gcc/ggc-zone.c
===================================================================
--- gcc/ggc-zone.c (revision 191978)
+++ gcc/ggc-zone.c (working copy)
@@ -1373,6 +1373,9 @@ ggc_alloc_typed_stat (enum gt_types_enum
case gt_ggc_e_9rtvec_def:
return ggc_internal_alloc_zone_pass_stat (size, &rtl_zone);
+ case gt_ggc_e_10hwivec_def:
+ return ggc_internal_alloc_zone_pass_stat (size, &rtl_zone);
+
default:
return ggc_internal_alloc_zone_pass_stat (size, &main_zone);
}
Index: gcc/final.c
===================================================================
--- gcc/final.c (revision 191978)
+++ gcc/final.c (working copy)
@@ -3728,8 +3728,16 @@ output_addr_const (FILE *file, rtx x)
output_addr_const (file, XEXP (x, 0));
break;
+ case CONST_WIDE_INT:
+ /* This should be ok for a while. */
+ gcc_assert (CONST_WIDE_INT_NUNITS (x) == 2);
+ fprintf (file, HOST_WIDE_INT_PRINT_DOUBLE_HEX,
+ (unsigned HOST_WIDE_INT) CONST_WIDE_INT_ELT (x, 1),
+ (unsigned HOST_WIDE_INT) CONST_WIDE_INT_ELT (x, 0));
+ break;
+
case CONST_DOUBLE:
- if (GET_MODE (x) == VOIDmode)
+ if (CONST_DOUBLE_AS_INT_P (x))
{
/* We can use %d if the number is one word and positive. */
if (CONST_DOUBLE_HIGH (x))
Index: gcc/coretypes.h
===================================================================
--- gcc/coretypes.h (revision 191978)
+++ gcc/coretypes.h (working copy)
@@ -56,6 +56,9 @@ typedef const struct rtx_def *const_rtx;
struct rtvec_def;
typedef struct rtvec_def *rtvec;
typedef const struct rtvec_def *const_rtvec;
+struct hwivec_def;
+typedef struct hwivec_def *hwivec;
+typedef const struct hwivec_def *const_hwivec;
union tree_node;
typedef union tree_node *tree;
union gimple_statement_d;
Index: gcc/expr.c
===================================================================
--- gcc/expr.c (revision 191978)
+++ gcc/expr.c (working copy)
@@ -719,23 +719,23 @@ convert_modes (enum machine_mode mode, e
if (mode == oldmode)
return x;
- /* There is one case that we must handle specially: If we are converting
- a CONST_INT into a mode whose size is twice HOST_BITS_PER_WIDE_INT and
- we are to interpret the constant as unsigned, gen_lowpart will do
- the wrong if the constant appears negative. What we want to do is
- make the high-order word of the constant zero, not all ones. */
+ /* There is one case that we must handle specially: If we are
+ converting a CONST_INT into a mode whose size is larger than
+ HOST_BITS_PER_WIDE_INT and we are to interpret the constant as
+ unsigned, gen_lowpart will do the wrong if the constant appears
+ negative. What we want to do is make the high-order word of the
+ constant zero, not all ones. */
if (unsignedp && GET_MODE_CLASS (mode) == MODE_INT
- && GET_MODE_BITSIZE (mode) == HOST_BITS_PER_DOUBLE_INT
+ && GET_MODE_BITSIZE (mode) > HOST_BITS_PER_WIDE_INT
&& CONST_INT_P (x) && INTVAL (x) < 0)
{
- double_int val = double_int::from_uhwi (INTVAL (x));
-
+ HOST_WIDE_INT val = INTVAL (x);
/* We need to zero extend VAL. */
if (oldmode != VOIDmode)
- val = val.zext (GET_MODE_BITSIZE (oldmode));
+ val &= GET_MODE_PRECISION (oldmode) - 1;
- return immed_double_int_const (val, mode);
+ return immed_wide_int_const (wide_int::from_uhwi (val, mode));
}
/* We can do this with a gen_lowpart if both desired and current modes
@@ -747,7 +747,11 @@ convert_modes (enum machine_mode mode, e
&& GET_MODE_PRECISION (mode) <= HOST_BITS_PER_WIDE_INT)
|| (GET_MODE_CLASS (mode) == MODE_INT
&& GET_MODE_CLASS (oldmode) == MODE_INT
- && (CONST_DOUBLE_AS_INT_P (x)
+#if TARGET_SUPPORTS_WIDE_INT
+ && (CONST_WIDE_INT_P (x)
+#else
+ && (CONST_DOUBLE_AS_INT_P (x)
+#endif
|| (GET_MODE_PRECISION (mode) <= GET_MODE_PRECISION (oldmode)
&& ((MEM_P (x) && ! MEM_VOLATILE_P (x)
&& direct_load[(int) mode])
@@ -1752,6 +1756,7 @@ emit_group_load_1 (rtx *tmps, rtx dst, r
{
rtx first, second;
+ /* TODO: const_wide_int can have sizes other than this... */
gcc_assert (2 * len == ssize);
split_double (src, &first, &second);
if (i)
@@ -5180,10 +5185,10 @@ store_expr (tree exp, rtx target, int ca
&alt_rtl);
}
- /* If TEMP is a VOIDmode constant and the mode of the type of EXP is not
- the same as that of TARGET, adjust the constant. This is needed, for
- example, in case it is a CONST_DOUBLE and we want only a word-sized
- value. */
+ /* If TEMP is a VOIDmode constant and the mode of the type of EXP is
+ not the same as that of TARGET, adjust the constant. This is
+ needed, for example, in case it is a CONST_DOUBLE or
+ CONST_WIDE_INT and we want only a word-sized value. */
if (CONSTANT_P (temp) && GET_MODE (temp) == VOIDmode
&& TREE_CODE (exp) != ERROR_MARK
&& GET_MODE (target) != TYPE_MODE (TREE_TYPE (exp)))
@@ -7711,11 +7716,12 @@ expand_constructor (tree exp, rtx target
/* All elts simple constants => refer to a constant in memory. But
if this is a non-BLKmode mode, let it store a field at a time
- since that should make a CONST_INT or CONST_DOUBLE when we
- fold. Likewise, if we have a target we can use, it is best to
- store directly into the target unless the type is large enough
- that memcpy will be used. If we are making an initializer and
- all operands are constant, put it in memory as well.
+ since that should make a CONST_INT, CONST_WIDE_INT or
+ CONST_DOUBLE when we fold. Likewise, if we have a target we can
+ use, it is best to store directly into the target unless the type
+ is large enough that memcpy will be used. If we are making an
+ initializer and all operands are constant, put it in memory as
+ well.
FIXME: Avoid trying to fill vector constructors piece-meal.
Output them with output_constant_def below unless we're sure
@@ -8207,17 +8213,18 @@ expand_expr_real_2 (sepops ops, rtx targ
&& TREE_CONSTANT (treeop1))
{
rtx constant_part;
+ HOST_WIDE_INT wc;
+ enum machine_mode wmode = TYPE_MODE (TREE_TYPE (treeop1));
op1 = expand_expr (treeop1, subtarget, VOIDmode,
EXPAND_SUM);
- /* Use immed_double_const to ensure that the constant is
+ /* Use wide_int::from_shwi to ensure that the constant is
truncated according to the mode of OP1, then sign extended
to a HOST_WIDE_INT. Using the constant directly can result
in non-canonical RTL in a 64x32 cross compile. */
- constant_part
- = immed_double_const (TREE_INT_CST_LOW (treeop0),
- (HOST_WIDE_INT) 0,
- TYPE_MODE (TREE_TYPE (treeop1)));
+ wc = TREE_INT_CST_LOW (treeop0);
+ constant_part
+ = immed_wide_int_const (wide_int::from_shwi (wc, wmode));
op1 = plus_constant (mode, op1, INTVAL (constant_part));
if (modifier != EXPAND_SUM && modifier != EXPAND_INITIALIZER)
op1 = force_operand (op1, target);
@@ -8229,7 +8236,8 @@ expand_expr_real_2 (sepops ops, rtx targ
&& TREE_CONSTANT (treeop0))
{
rtx constant_part;
-
+ HOST_WIDE_INT wc;
+ enum machine_mode wmode = TYPE_MODE (TREE_TYPE (treeop0));
op0 = expand_expr (treeop0, subtarget, VOIDmode,
(modifier == EXPAND_INITIALIZER
? EXPAND_INITIALIZER : EXPAND_SUM));
@@ -8243,14 +8251,13 @@ expand_expr_real_2 (sepops ops, rtx targ
return simplify_gen_binary (PLUS, mode, op0, op1);
goto binop2;
}
- /* Use immed_double_const to ensure that the constant is
+ /* Use wide_int::from_shwi to ensure that the constant is
truncated according to the mode of OP1, then sign extended
to a HOST_WIDE_INT. Using the constant directly can result
in non-canonical RTL in a 64x32 cross compile. */
- constant_part
- = immed_double_const (TREE_INT_CST_LOW (treeop1),
- (HOST_WIDE_INT) 0,
- TYPE_MODE (TREE_TYPE (treeop0)));
+ wc = TREE_INT_CST_LOW (treeop1);
+ constant_part
+ = immed_wide_int_const (wide_int::from_shwi (wc, wmode));
op0 = plus_constant (mode, op0, INTVAL (constant_part));
if (modifier != EXPAND_SUM && modifier != EXPAND_INITIALIZER)
op0 = force_operand (op0, target);
@@ -8752,10 +8759,13 @@ expand_expr_real_2 (sepops ops, rtx targ
for unsigned bitfield expand this as XOR with a proper constant
instead. */
if (reduce_bit_field && TYPE_UNSIGNED (type))
- temp = expand_binop (mode, xor_optab, op0,
- immed_double_int_const
- (double_int::mask (TYPE_PRECISION (type)), mode),
- target, 1, OPTAB_LIB_WIDEN);
+ {
+ wide_int mask = wide_int::mask (TYPE_PRECISION (type), false, mode);
+
+ temp = expand_binop (mode, xor_optab, op0,
+ immed_wide_int_const (mask),
+ target, 1, OPTAB_LIB_WIDEN);
+ }
else
temp = expand_unop (mode, one_cmpl_optab, op0, target, 1);
gcc_assert (temp);
@@ -9335,9 +9345,7 @@ expand_expr_real_1 (tree exp, rtx target
return decl_rtl;
case INTEGER_CST:
- temp = immed_double_const (TREE_INT_CST_LOW (exp),
- TREE_INT_CST_HIGH (exp), mode);
-
+ temp = immed_wide_int_const (wide_int::from_int_cst (exp));
return temp;
case VECTOR_CST:
@@ -9568,8 +9576,9 @@ expand_expr_real_1 (tree exp, rtx target
op0 = memory_address_addr_space (address_mode, op0, as);
if (!integer_zerop (TREE_OPERAND (exp, 1)))
{
- rtx off
- = immed_double_int_const (mem_ref_offset (exp), address_mode);
+ wide_int wi = wide_int::from_double_int
+ (address_mode, mem_ref_offset (exp));
+ rtx off = immed_wide_int_const (wi);
op0 = simplify_gen_binary (PLUS, address_mode, op0, off);
}
op0 = memory_address_addr_space (mode, op0, as);
@@ -10441,8 +10450,8 @@ reduce_to_bit_field_precision (rtx exp,
}
else if (TYPE_UNSIGNED (type))
{
- rtx mask = immed_double_int_const (double_int::mask (prec),
- GET_MODE (exp));
+ rtx mask = immed_wide_int_const
+ (wide_int::mask (prec, false, GET_MODE (exp)));
return expand_and (GET_MODE (exp), exp, mask, target);
}
else
@@ -11007,8 +11016,8 @@ const_vector_from_tree (tree exp)
RTVEC_ELT (v, i) = CONST_FIXED_FROM_FIXED_VALUE (TREE_FIXED_CST (elt),
inner);
else
- RTVEC_ELT (v, i) = immed_double_int_const (tree_to_double_int (elt),
- inner);
+ RTVEC_ELT (v, i)
+ = immed_wide_int_const (wide_int::from_int_cst (elt));
}
return gen_rtx_CONST_VECTOR (mode, v);
Index: gcc/optabs.c
===================================================================
--- gcc/optabs.c (revision 191978)
+++ gcc/optabs.c (working copy)
@@ -838,7 +838,8 @@ expand_subword_shift (enum machine_mode
if (CONSTANT_P (op1) || shift_mask >= BITS_PER_WORD)
{
carries = outof_input;
- tmp = immed_double_const (BITS_PER_WORD, 0, op1_mode);
+ tmp = immed_wide_int_const (wide_int::from_shwi (BITS_PER_WORD,
+ op1_mode));
tmp = simplify_expand_binop (op1_mode, sub_optab, tmp, op1,
0, true, methods);
}
@@ -853,13 +854,14 @@ expand_subword_shift (enum machine_mode
outof_input, const1_rtx, 0, unsignedp, methods);
if (shift_mask == BITS_PER_WORD - 1)
{
- tmp = immed_double_const (-1, -1, op1_mode);
+ tmp = immed_wide_int_const (wide_int_minus_one (op1_mode));
tmp = simplify_expand_binop (op1_mode, xor_optab, op1, tmp,
0, true, methods);
}
else
{
- tmp = immed_double_const (BITS_PER_WORD - 1, 0, op1_mode);
+ tmp = immed_wide_int_const (wide_int::from_shwi (BITS_PER_WORD - 1,
+ op1_mode));
tmp = simplify_expand_binop (op1_mode, sub_optab, tmp, op1,
0, true, methods);
}
@@ -1022,7 +1024,7 @@ expand_doubleword_shift (enum machine_mo
is true when the effective shift value is less than BITS_PER_WORD.
Set SUPERWORD_OP1 to the shift count that should be used to shift
OUTOF_INPUT into INTO_TARGET when the condition is false. */
- tmp = immed_double_const (BITS_PER_WORD, 0, op1_mode);
+ tmp = immed_wide_int_const (wide_int::from_shwi (BITS_PER_WORD, op1_mode));
if (!CONSTANT_P (op1) && shift_mask == BITS_PER_WORD - 1)
{
/* Set CMP1 to OP1 & BITS_PER_WORD. The result is zero iff OP1
@@ -2872,7 +2874,7 @@ expand_absneg_bit (enum rtx_code code, e
const struct real_format *fmt;
int bitpos, word, nwords, i;
enum machine_mode imode;
- double_int mask;
+ wide_int mask;
rtx temp, insns;
/* The format has to have a simple sign bit. */
@@ -2908,7 +2910,7 @@ expand_absneg_bit (enum rtx_code code, e
nwords = (GET_MODE_BITSIZE (mode) + BITS_PER_WORD - 1) / BITS_PER_WORD;
}
- mask = double_int_zero.set_bit (bitpos);
+ mask = wide_int::set_bit_in_zero (bitpos, imode);
if (code == ABS)
mask = ~mask;
@@ -2930,7 +2932,7 @@ expand_absneg_bit (enum rtx_code code, e
{
temp = expand_binop (imode, code == ABS ? and_optab : xor_optab,
op0_piece,
- immed_double_int_const (mask, imode),
+ immed_wide_int_const (mask),
targ_piece, 1, OPTAB_LIB_WIDEN);
if (temp != targ_piece)
emit_move_insn (targ_piece, temp);
@@ -2948,7 +2950,7 @@ expand_absneg_bit (enum rtx_code code, e
{
temp = expand_binop (imode, code == ABS ? and_optab : xor_optab,
gen_lowpart (imode, op0),
- immed_double_int_const (mask, imode),
+ immed_wide_int_const (mask),
gen_lowpart (imode, target), 1, OPTAB_LIB_WIDEN);
target = lowpart_subreg_maybe_copy (mode, temp, imode);
@@ -3547,7 +3549,7 @@ expand_copysign_absneg (enum machine_mod
}
else
{
- double_int mask;
+ wide_int mask;
if (GET_MODE_SIZE (mode) <= UNITS_PER_WORD)
{
@@ -3569,10 +3571,9 @@ expand_copysign_absneg (enum machine_mod
op1 = operand_subword_force (op1, word, mode);
}
- mask = double_int_zero.set_bit (bitpos);
-
+ mask = wide_int::set_bit_in_zero (bitpos, imode);
sign = expand_binop (imode, and_optab, op1,
- immed_double_int_const (mask, imode),
+ immed_wide_int_const (mask),
NULL_RTX, 1, OPTAB_LIB_WIDEN);
}
@@ -3616,7 +3617,7 @@ expand_copysign_bit (enum machine_mode m
int bitpos, bool op0_is_abs)
{
enum machine_mode imode;
- double_int mask;
+ wide_int mask, nmask;
int word, nwords, i;
rtx temp, insns;
@@ -3640,7 +3641,7 @@ expand_copysign_bit (enum machine_mode m
nwords = (GET_MODE_BITSIZE (mode) + BITS_PER_WORD - 1) / BITS_PER_WORD;
}
- mask = double_int_zero.set_bit (bitpos);
+ mask = wide_int::set_bit_in_zero (bitpos, imode);
if (target == 0
|| target == op0
@@ -3660,14 +3661,16 @@ expand_copysign_bit (enum machine_mode m
if (i == word)
{
if (!op0_is_abs)
- op0_piece
- = expand_binop (imode, and_optab, op0_piece,
- immed_double_int_const (~mask, imode),
- NULL_RTX, 1, OPTAB_LIB_WIDEN);
-
+ {
+ nmask = ~mask;
+ op0_piece
+ = expand_binop (imode, and_optab, op0_piece,
+ immed_wide_int_const (nmask),
+ NULL_RTX, 1, OPTAB_LIB_WIDEN);
+ }
op1 = expand_binop (imode, and_optab,
operand_subword_force (op1, i, mode),
- immed_double_int_const (mask, imode),
+ immed_wide_int_const (mask),
NULL_RTX, 1, OPTAB_LIB_WIDEN);
temp = expand_binop (imode, ior_optab, op0_piece, op1,
@@ -3687,15 +3690,17 @@ expand_copysign_bit (enum machine_mode m
else
{
op1 = expand_binop (imode, and_optab, gen_lowpart (imode, op1),
- immed_double_int_const (mask, imode),
+ immed_wide_int_const (mask),
NULL_RTX, 1, OPTAB_LIB_WIDEN);
op0 = gen_lowpart (imode, op0);
if (!op0_is_abs)
- op0 = expand_binop (imode, and_optab, op0,
- immed_double_int_const (~mask, imode),
- NULL_RTX, 1, OPTAB_LIB_WIDEN);
-
+ {
+ nmask = ~mask;
+ op0 = expand_binop (imode, and_optab, op0,
+ immed_wide_int_const (nmask),
+ NULL_RTX, 1, OPTAB_LIB_WIDEN);
+ }
temp = expand_binop (imode, ior_optab, op0, op1,
gen_lowpart (imode, target), 1, OPTAB_LIB_WIDEN);
target = lowpart_subreg_maybe_copy (mode, temp, imode);
Index: gcc/cfgexpand.c
===================================================================
--- gcc/cfgexpand.c (revision 191978)
+++ gcc/cfgexpand.c (working copy)
@@ -3633,9 +3633,8 @@ expand_debug_locations (void)
gcc_assert (mode == GET_MODE (val)
|| (GET_MODE (val) == VOIDmode
- && (CONST_INT_P (val)
+ && (CONST_SCALAR_INT_P (val)
|| GET_CODE (val) == CONST_FIXED
- || CONST_DOUBLE_AS_INT_P (val)
|| GET_CODE (val) == LABEL_REF)));
}
Index: gcc/ggc.h
===================================================================
--- gcc/ggc.h (revision 191978)
+++ gcc/ggc.h (working copy)
@@ -271,6 +271,11 @@ extern struct alloc_zone tree_id_zone;
+ ((NELT) - 1) * sizeof (rtx), \
&rtl_zone)
+#define ggc_alloc_hwivec_sized(NELT) \
+ ggc_alloc_zone_hwivec_def (sizeof (struct hwivec_def) \
+ + ((NELT) - 1) * sizeof (HOST_WIDE_INT), \
+ &rtl_zone)
+
#if defined (GGC_ZONE) && !defined (GENERATOR_FILE)
/* Allocate an object into the specified allocation zone. */
Attachment:
rtl3.clog
Description: Text document
| Index Nav: | [Date Index] [Subject Index] [Author Index] [Thread Index] | |
|---|---|---|
| Message Nav: | [Date Prev] [Date Next] | [Thread Prev] [Thread Next] |