This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[PATCH] Fix PR44312
- From: Richard Guenther <rguenther at suse dot de>
- To: gcc-patches at gcc dot gnu dot org
- Date: Fri, 28 May 2010 20:47:45 +0200 (CEST)
- Subject: [PATCH] Fix PR44312
Bootstrapped and tested on x86_64-unknown-linux-gnu, applied
to trunk.
Richard.
2010-05-28 Richard Guenther <rguenther@suse.de>
PR lto/44312
* lto-streamer-in.c (unpack_ts_fixed_cst_value_fields):
Stream fixed-point constants mode.
(unpack_ts_type_value_fields): Fix width of TYPE_MODE
and TYPE_PRECISION.
* lto-streamer-out.c (pack_ts_fixed_cst_value_fields):
Stream fixed-point constants mode.
(pack_ts_function_decl_value_fields): Fix width of TYPE_MODE
and TYPE_PRECISION.
Index: gcc/lto-streamer-in.c
===================================================================
*** gcc/lto-streamer-in.c (revision 159983)
--- gcc/lto-streamer-in.c (working copy)
*************** unpack_ts_fixed_cst_value_fields (struct
*** 1637,1642 ****
--- 1637,1643 ----
fv.data.low = (HOST_WIDE_INT) bp_unpack_value (bp, HOST_BITS_PER_WIDE_INT);
fv.data.high = (HOST_WIDE_INT) bp_unpack_value (bp, HOST_BITS_PER_WIDE_INT);
+ fv.mode = (enum machine_mode) bp_unpack_value (bp, HOST_BITS_PER_INT);
TREE_FIXED_CST (expr) = fv;
}
*************** unpack_ts_type_value_fields (struct bitp
*** 1770,1777 ****
{
enum machine_mode mode;
! TYPE_PRECISION (expr) = (unsigned) bp_unpack_value (bp, 9);
! mode = (enum machine_mode) bp_unpack_value (bp, 7);
SET_TYPE_MODE (expr, mode);
TYPE_STRING_FLAG (expr) = (unsigned) bp_unpack_value (bp, 1);
TYPE_NO_FORCE_BLK (expr) = (unsigned) bp_unpack_value (bp, 1);
--- 1771,1778 ----
{
enum machine_mode mode;
! TYPE_PRECISION (expr) = (unsigned) bp_unpack_value (bp, 10);
! mode = (enum machine_mode) bp_unpack_value (bp, 8);
SET_TYPE_MODE (expr, mode);
TYPE_STRING_FLAG (expr) = (unsigned) bp_unpack_value (bp, 1);
TYPE_NO_FORCE_BLK (expr) = (unsigned) bp_unpack_value (bp, 1);
Index: gcc/lto-streamer-out.c
===================================================================
*** gcc/lto-streamer-out.c (revision 159983)
--- gcc/lto-streamer-out.c (working copy)
*************** pack_ts_fixed_cst_value_fields (struct b
*** 387,392 ****
--- 387,393 ----
struct fixed_value fv = TREE_FIXED_CST (expr);
bp_pack_value (bp, fv.data.low, HOST_BITS_PER_WIDE_INT);
bp_pack_value (bp, fv.data.high, HOST_BITS_PER_WIDE_INT);
+ bp_pack_value (bp, fv.mode, HOST_BITS_PER_INT);
}
*************** pack_ts_function_decl_value_fields (stru
*** 513,520 ****
static void
pack_ts_type_value_fields (struct bitpack_d *bp, tree expr)
{
! bp_pack_value (bp, TYPE_PRECISION (expr), 9);
! bp_pack_value (bp, TYPE_MODE (expr), 7);
bp_pack_value (bp, TYPE_STRING_FLAG (expr), 1);
bp_pack_value (bp, TYPE_NO_FORCE_BLK (expr), 1);
bp_pack_value (bp, TYPE_NEEDS_CONSTRUCTING (expr), 1);
--- 514,521 ----
static void
pack_ts_type_value_fields (struct bitpack_d *bp, tree expr)
{
! bp_pack_value (bp, TYPE_PRECISION (expr), 10);
! bp_pack_value (bp, TYPE_MODE (expr), 8);
bp_pack_value (bp, TYPE_STRING_FLAG (expr), 1);
bp_pack_value (bp, TYPE_NO_FORCE_BLK (expr), 1);
bp_pack_value (bp, TYPE_NEEDS_CONSTRUCTING (expr), 1);