From patchwork Mon Oct 23 17:17:38 2017 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Richard Sandiford X-Patchwork-Id: 116784 Delivered-To: patch@linaro.org Received: by 10.140.22.164 with SMTP id 33csp4883749qgn; Mon, 23 Oct 2017 10:18:25 -0700 (PDT) X-Received: by 10.98.10.133 with SMTP id 5mr13513129pfk.346.1508779105139; Mon, 23 Oct 2017 10:18:25 -0700 (PDT) ARC-Seal: i=1; a=rsa-sha256; t=1508779105; cv=none; d=google.com; s=arc-20160816; b=LvVedXU4jtH5RtwJ7A/OE61pjORa427srKEmqA74oPI1yPwDmYX9EyZyiYewjMNldb 2Dmz8zCeaIEqX2eCSFNnyUayoi3ewD2NA4Cxgq6UjIrfkZt8f4rwr6qk38Npb9V6yZxN bpDFxdSVXttkb8LjjoVJzzwKOLXgfJojoKOceBSPNdtS0s/CvCRzOcr6VP8019qt02w+ GglYmpkTCskCxUN9YA/tz5iAko4yD5d4SgyeHKhrnkFCsSmv2HlvQ2qrzMN94YltGB/I QYrh8Ecj1wH2JTGB2vOSSGNY5A3IJG17yavqX/NNrUpDrrc2RzyBi1v6S96g3mQoYgdg aMOw== ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=google.com; s=arc-20160816; h=mime-version:user-agent:message-id:in-reply-to:date:references :subject:mail-followup-to:to:from:delivered-to:sender:list-help :list-post:list-archive:list-unsubscribe:list-id:precedence :mailing-list:dkim-signature:domainkey-signature :arc-authentication-results; bh=8HFaYyCnfm5S0jfex7H5EFG8mQKIu3BaxzKR/fBaRA0=; b=kQMcRk4CqvlKwbMhqg/mgmEuParQ8o3PSHH1E19yHws3/zyBZSj8wMp8KL+YdfssBH PXnHgFynhkGif4jqQ2+u4B+XdWvq0Oqvh1lkT75ebdFrO4h4fLTZsk8NDr8mi0GU81H0 76FoQK1qF1Ok4it6ReNgIe1asMa+8O2PVWmeF/ZpF8DhzbrPDQ8DdTxROLqo2vd7KJVx YFDPWiL9a1fI6Hp4NMMkzm7RRB8spoUoOTRPHSPpktUKAmlhnEa8YOef1aa1AIRtl3L5 FglC/L5l9vIj0Odl9gbcJrpuQWlHvXz0J30gDzx0jG+T11hnig2AjA4pfgj+ADJGZsPs B7xA== ARC-Authentication-Results: i=1; mx.google.com; dkim=pass header.i=@gcc.gnu.org header.s=default header.b=SGrY93f8; spf=pass (google.com: domain of gcc-patches-return-464816-patch=linaro.org@gcc.gnu.org designates 209.132.180.131 as permitted sender) smtp.mailfrom=gcc-patches-return-464816-patch=linaro.org@gcc.gnu.org; dmarc=fail (p=NONE sp=NONE dis=NONE) header.from=linaro.org Return-Path: Received: from sourceware.org (server1.sourceware.org. [209.132.180.131]) by mx.google.com with ESMTPS id g5si5067707pgc.796.2017.10.23.10.18.24 for (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Mon, 23 Oct 2017 10:18:25 -0700 (PDT) Received-SPF: pass (google.com: domain of gcc-patches-return-464816-patch=linaro.org@gcc.gnu.org designates 209.132.180.131 as permitted sender) client-ip=209.132.180.131; Authentication-Results: mx.google.com; dkim=pass header.i=@gcc.gnu.org header.s=default header.b=SGrY93f8; spf=pass (google.com: domain of gcc-patches-return-464816-patch=linaro.org@gcc.gnu.org designates 209.132.180.131 as permitted sender) smtp.mailfrom=gcc-patches-return-464816-patch=linaro.org@gcc.gnu.org; dmarc=fail (p=NONE sp=NONE dis=NONE) header.from=linaro.org DomainKey-Signature: a=rsa-sha1; c=nofws; d=gcc.gnu.org; h=list-id :list-unsubscribe:list-archive:list-post:list-help:sender:from :to:subject:references:date:in-reply-to:message-id:mime-version :content-type; q=dns; s=default; b=joIRZNNXIqFaIsW9ib6i6zy8qPSvp +DvX0v2fF8Ye31EkowEKb0LyNapt8kYXaD3x1ibHlTJwb5ypx20ZMWh1vz3A7zVS nFcK4T6HHGU8ZLUJkaIKmx6UnuGKjzGFubVFsaTN2YR5sgQcPznDaxZN/8ORgtV0 /BQ4Hq3g5UNuQU= DKIM-Signature: v=1; a=rsa-sha1; c=relaxed; d=gcc.gnu.org; h=list-id :list-unsubscribe:list-archive:list-post:list-help:sender:from :to:subject:references:date:in-reply-to:message-id:mime-version :content-type; s=default; bh=xa6TukWbd5lRWAICk3o4FNep9fA=; b=SGr Y93f87mgBPI8q7flot9/cofj/z1W18rvA90AtPONnuXyT+/zHv0bPqaSf4T5BGCN Aqpeq8zOAsuDNE+SvYptVpqiImLTguqMgJHUw7wp/d/MaPJz2P8QOyv7Q2YYpIu9 NIaDKp2KDNeLZnde4CvsllbltUiFJyatnT2HGHU4= Received: (qmail 61558 invoked by alias); 23 Oct 2017 17:17:52 -0000 Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Unsubscribe: List-Archive: List-Post: List-Help: Sender: gcc-patches-owner@gcc.gnu.org Delivered-To: mailing list gcc-patches@gcc.gnu.org Received: (qmail 61377 invoked by uid 89); 23 Oct 2017 17:17:51 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-15.5 required=5.0 tests=AWL, BAYES_00, GIT_PATCH_1, GIT_PATCH_2, GIT_PATCH_3, KAM_ASCII_DIVIDERS, RCVD_IN_DNSWL_NONE, SPF_PASS autolearn=ham version=3.3.2 spammy=10499 X-HELO: mail-wm0-f41.google.com Received: from mail-wm0-f41.google.com (HELO mail-wm0-f41.google.com) (74.125.82.41) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Mon, 23 Oct 2017 17:17:44 +0000 Received: by mail-wm0-f41.google.com with SMTP id q132so11214408wmd.2 for ; Mon, 23 Oct 2017 10:17:43 -0700 (PDT) X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:from:to:mail-followup-to:subject:references:date :in-reply-to:message-id:user-agent:mime-version; bh=8HFaYyCnfm5S0jfex7H5EFG8mQKIu3BaxzKR/fBaRA0=; b=TLxAFXtV1d9w8lx6LLZru7T+T249Dc33WoVgaWLg2kmuqCq93imlofYGXCMeI3ZDAc KkqglvOwWijng5i5RWbonKMdGCWWSiHq8WhepxAI7luy4cLRmAq9hbO/ZTAJ7D/VOy4F tN3/9JNpsi1vExLib6PXGlYMbu5wtRgjhIJjESXo83z0DvxeAEN9Zyva8xu2G4PvRaGs oWV6AltjAzV1EjEIgUNFHoJrTJM9k+qemqH1fzn5nyWUxCswOxxdAiQJLS2w5/GZLMFy gq0bZ6W9gaHBOMzPSXdzsBYfkE6fFug88qD5lBLc4EXv/p6knxLojGi34vosIUAIWq3c ruCg== X-Gm-Message-State: AMCzsaVXZqAamMPLjItonjQ9vK6fp2pf697SmCS2Nq0ce8XJMi7EbqX3 4oP82TQdBL/6k7pY05yTXJDSlNGksWI= X-Google-Smtp-Source: ABhQp+SqoVMKiuEzLrBOEC2EOXHJ4d0DRR5aSvMHwPnBzaR/r0nnE9pkrjiymyFumrdS8X25UbP2wA== X-Received: by 10.28.6.6 with SMTP id 6mr6261876wmg.114.1508779060955; Mon, 23 Oct 2017 10:17:40 -0700 (PDT) Received: from localhost ([2.26.27.199]) by smtp.gmail.com with ESMTPSA id k130sm15219778wmg.12.2017.10.23.10.17.38 for (version=TLS1_2 cipher=ECDHE-RSA-CHACHA20-POLY1305 bits=256/256); Mon, 23 Oct 2017 10:17:40 -0700 (PDT) From: Richard Sandiford To: gcc-patches@gcc.gnu.org Mail-Followup-To: gcc-patches@gcc.gnu.org, richard.sandiford@linaro.org Subject: [040/nnn] poly_int: get_inner_reference & co. References: <871sltvm7r.fsf@linaro.org> Date: Mon, 23 Oct 2017 18:17:38 +0100 In-Reply-To: <871sltvm7r.fsf@linaro.org> (Richard Sandiford's message of "Mon, 23 Oct 2017 17:54:32 +0100") Message-ID: <873769okb1.fsf@linaro.org> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/25.2 (gnu/linux) MIME-Version: 1.0 This patch makes get_inner_reference and ptr_difference_const return the bit size and bit position as poly_int64s rather than HOST_WIDE_INTS. The non-mechanical changes were handled by previous patches. 2017-10-23 Richard Sandiford Alan Hayward David Sherwood gcc/ * tree.h (get_inner_reference): Return the bitsize and bitpos as poly_int64_pods rather than HOST_WIDE_INT. * fold-const.h (ptr_difference_const): Return the pointer difference as a poly_int64_pod rather than a HOST_WIDE_INT. * expr.c (get_inner_reference): Return the bitsize and bitpos as poly_int64_pods rather than HOST_WIDE_INT. (expand_expr_addr_expr_1, expand_expr_real_1): Track polynomial offsets and sizes. * fold-const.c (make_bit_field_ref): Take the bitpos as a poly_int64 rather than a HOST_WIDE_INT. Update call to get_inner_reference. (optimize_bit_field_compare): Update call to get_inner_reference. (decode_field_reference): Likewise. (fold_unary_loc): Track polynomial offsets and sizes. (split_address_to_core_and_offset): Return the bitpos as a poly_int64_pod rather than a HOST_WIDE_INT. (ptr_difference_const): Likewise for the pointer difference. * asan.c (instrument_derefs): Track polynomial offsets and sizes. * config/mips/mips.c (r10k_safe_mem_expr_p): Likewise. * dbxout.c (dbxout_expand_expr): Likewise. * dwarf2out.c (loc_list_for_address_of_addr_expr_of_indirect_ref) (loc_list_from_tree_1, fortran_common): Likewise. * gimple-laddress.c (pass_laddress::execute): Likewise. * gimplify.c (gimplify_scan_omp_clauses): Likewise. * simplify-rtx.c (delegitimize_mem_from_attrs): Likewise. * tree-affine.c (tree_to_aff_combination): Likewise. (get_inner_reference_aff): Likewise. * tree-data-ref.c (split_constant_offset_1): Likewise. (dr_analyze_innermost): Likewise. * tree-scalar-evolution.c (interpret_rhs_expr): Likewise. * tree-sra.c (ipa_sra_check_caller): Likewise. * tree-ssa-math-opts.c (find_bswap_or_nop_load): Likewise. * tree-vect-data-refs.c (vect_check_gather_scatter): Likewise. * ubsan.c (maybe_instrument_pointer_overflow): Likewise. (instrument_bool_enum_load, instrument_object_size): Likewise. * gimple-ssa-strength-reduction.c (slsr_process_ref): Update call to get_inner_reference. * hsa-gen.c (gen_hsa_addr): Likewise. * sanopt.c (maybe_optimize_ubsan_ptr_ifn): Likewise. * tsan.c (instrument_expr): Likewise. * match.pd: Update call to ptr_difference_const. gcc/ada/ * gcc-interface/trans.c (Attribute_to_gnu): Track polynomial offsets and sizes. * gcc-interface/utils2.c (build_unary_op): Likewise. gcc/cp/ * constexpr.c (check_automatic_or_tls): Track polynomial offsets and sizes. Index: gcc/tree.h =================================================================== --- gcc/tree.h 2017-10-23 17:18:40.711668346 +0100 +++ gcc/tree.h 2017-10-23 17:18:47.668056833 +0100 @@ -5608,19 +5608,8 @@ extern bool complete_ctor_at_level_p (co /* Given an expression EXP that is a handled_component_p, look for the ultimate containing object, which is returned and specify the access position and size. */ -extern tree get_inner_reference (tree, HOST_WIDE_INT *, HOST_WIDE_INT *, +extern tree get_inner_reference (tree, poly_int64_pod *, poly_int64_pod *, tree *, machine_mode *, int *, int *, int *); -/* Temporary. */ -inline tree -get_inner_reference (tree exp, poly_int64_pod *pbitsize, - poly_int64_pod *pbitpos, tree *poffset, - machine_mode *pmode, int *punsignedp, - int *preversep, int *pvolatilep) -{ - return get_inner_reference (exp, &pbitsize->coeffs[0], &pbitpos->coeffs[0], - poffset, pmode, punsignedp, preversep, - pvolatilep); -} extern tree build_personality_function (const char *); Index: gcc/fold-const.h =================================================================== --- gcc/fold-const.h 2017-10-23 17:11:40.244945208 +0100 +++ gcc/fold-const.h 2017-10-23 17:18:47.662057360 +0100 @@ -122,7 +122,7 @@ extern tree div_if_zero_remainder (const extern bool tree_swap_operands_p (const_tree, const_tree); extern enum tree_code swap_tree_comparison (enum tree_code); -extern bool ptr_difference_const (tree, tree, HOST_WIDE_INT *); +extern bool ptr_difference_const (tree, tree, poly_int64_pod *); extern enum tree_code invert_tree_comparison (enum tree_code, bool); extern bool tree_unary_nonzero_warnv_p (enum tree_code, tree, tree, bool *); Index: gcc/expr.c =================================================================== --- gcc/expr.c 2017-10-23 17:18:43.842393134 +0100 +++ gcc/expr.c 2017-10-23 17:18:47.661057448 +0100 @@ -7015,8 +7015,8 @@ store_field (rtx target, poly_int64 bits this case, but the address of the object can be found. */ tree -get_inner_reference (tree exp, HOST_WIDE_INT *pbitsize, - HOST_WIDE_INT *pbitpos, tree *poffset, +get_inner_reference (tree exp, poly_int64_pod *pbitsize, + poly_int64_pod *pbitpos, tree *poffset, machine_mode *pmode, int *punsignedp, int *preversep, int *pvolatilep) { @@ -7024,7 +7024,7 @@ get_inner_reference (tree exp, HOST_WIDE machine_mode mode = VOIDmode; bool blkmode_bitfield = false; tree offset = size_zero_node; - offset_int bit_offset = 0; + poly_offset_int bit_offset = 0; /* First get the mode, signedness, storage order and size. We do this from just the outermost expression. */ @@ -7089,7 +7089,7 @@ get_inner_reference (tree exp, HOST_WIDE switch (TREE_CODE (exp)) { case BIT_FIELD_REF: - bit_offset += wi::to_offset (TREE_OPERAND (exp, 2)); + bit_offset += wi::to_poly_offset (TREE_OPERAND (exp, 2)); break; case COMPONENT_REF: @@ -7104,7 +7104,7 @@ get_inner_reference (tree exp, HOST_WIDE break; offset = size_binop (PLUS_EXPR, offset, this_offset); - bit_offset += wi::to_offset (DECL_FIELD_BIT_OFFSET (field)); + bit_offset += wi::to_poly_offset (DECL_FIELD_BIT_OFFSET (field)); /* ??? Right now we don't do anything with DECL_OFFSET_ALIGN. */ } @@ -7172,44 +7172,36 @@ get_inner_reference (tree exp, HOST_WIDE /* If OFFSET is constant, see if we can return the whole thing as a constant bit position. Make sure to handle overflow during this conversion. */ - if (TREE_CODE (offset) == INTEGER_CST) + if (poly_int_tree_p (offset)) { - offset_int tem = wi::sext (wi::to_offset (offset), - TYPE_PRECISION (sizetype)); + poly_offset_int tem = wi::sext (wi::to_poly_offset (offset), + TYPE_PRECISION (sizetype)); tem <<= LOG2_BITS_PER_UNIT; tem += bit_offset; - if (wi::fits_shwi_p (tem)) - { - *pbitpos = tem.to_shwi (); - *poffset = offset = NULL_TREE; - } + if (tem.to_shwi (pbitpos)) + *poffset = offset = NULL_TREE; } /* Otherwise, split it up. */ if (offset) { /* Avoid returning a negative bitpos as this may wreak havoc later. */ - if (wi::neg_p (bit_offset) || !wi::fits_shwi_p (bit_offset)) + if (!bit_offset.to_shwi (pbitpos) || may_lt (*pbitpos, 0)) { - offset_int mask = wi::mask (LOG2_BITS_PER_UNIT, false); - offset_int tem = wi::bit_and_not (bit_offset, mask); - /* TEM is the bitpos rounded to BITS_PER_UNIT towards -Inf. - Subtract it to BIT_OFFSET and add it (scaled) to OFFSET. */ - bit_offset -= tem; - tem >>= LOG2_BITS_PER_UNIT; + *pbitpos = num_trailing_bits (bit_offset.force_shwi ()); + poly_offset_int bytes = bits_to_bytes_round_down (bit_offset); offset = size_binop (PLUS_EXPR, offset, - wide_int_to_tree (sizetype, tem)); + build_int_cst (sizetype, bytes.force_shwi ())); } - *pbitpos = bit_offset.to_shwi (); *poffset = offset; } /* We can use BLKmode for a byte-aligned BLKmode bitfield. */ if (mode == VOIDmode && blkmode_bitfield - && (*pbitpos % BITS_PER_UNIT) == 0 - && (*pbitsize % BITS_PER_UNIT) == 0) + && multiple_p (*pbitpos, BITS_PER_UNIT) + && multiple_p (*pbitsize, BITS_PER_UNIT)) *pmode = BLKmode; else *pmode = mode; @@ -7760,7 +7752,7 @@ expand_expr_addr_expr_1 (tree exp, rtx t { rtx result, subtarget; tree inner, offset; - HOST_WIDE_INT bitsize, bitpos; + poly_int64 bitsize, bitpos; int unsignedp, reversep, volatilep = 0; machine_mode mode1; @@ -7876,7 +7868,7 @@ expand_expr_addr_expr_1 (tree exp, rtx t /* We must have made progress. */ gcc_assert (inner != exp); - subtarget = offset || bitpos ? NULL_RTX : target; + subtarget = offset || maybe_nonzero (bitpos) ? NULL_RTX : target; /* For VIEW_CONVERT_EXPR, where the outer alignment is bigger than inner alignment, force the inner to be sufficiently aligned. */ if (CONSTANT_CLASS_P (inner) @@ -7911,20 +7903,19 @@ expand_expr_addr_expr_1 (tree exp, rtx t result = simplify_gen_binary (PLUS, tmode, result, tmp); else { - subtarget = bitpos ? NULL_RTX : target; + subtarget = maybe_nonzero (bitpos) ? NULL_RTX : target; result = expand_simple_binop (tmode, PLUS, result, tmp, subtarget, 1, OPTAB_LIB_WIDEN); } } - if (bitpos) + if (maybe_nonzero (bitpos)) { /* Someone beforehand should have rejected taking the address - of such an object. */ - gcc_assert ((bitpos % BITS_PER_UNIT) == 0); - + of an object that isn't byte-aligned. */ + poly_int64 bytepos = exact_div (bitpos, BITS_PER_UNIT); result = convert_memory_address_addr_space (tmode, result, as); - result = plus_constant (tmode, result, bitpos / BITS_PER_UNIT); + result = plus_constant (tmode, result, bytepos); if (modifier < EXPAND_SUM) result = force_operand (result, target); } @@ -10529,7 +10520,7 @@ expand_expr_real_1 (tree exp, rtx target normal_inner_ref: { machine_mode mode1, mode2; - HOST_WIDE_INT bitsize, bitpos; + poly_int64 bitsize, bitpos, bytepos; tree offset; int reversep, volatilep = 0, must_force_mem; tree tem @@ -10582,13 +10573,14 @@ expand_expr_real_1 (tree exp, rtx target to a larger size. */ must_force_mem = (offset || mode1 == BLKmode - || bitpos + bitsize > GET_MODE_BITSIZE (mode2)); + || may_gt (bitpos + bitsize, + GET_MODE_BITSIZE (mode2))); /* Handle CONCAT first. */ if (GET_CODE (op0) == CONCAT && !must_force_mem) { - if (bitpos == 0 - && bitsize == GET_MODE_BITSIZE (GET_MODE (op0)) + if (known_zero (bitpos) + && must_eq (bitsize, GET_MODE_BITSIZE (GET_MODE (op0))) && COMPLEX_MODE_P (mode1) && COMPLEX_MODE_P (GET_MODE (op0)) && (GET_MODE_PRECISION (GET_MODE_INNER (mode1)) @@ -10620,17 +10612,20 @@ expand_expr_real_1 (tree exp, rtx target } return op0; } - if (bitpos == 0 - && bitsize == GET_MODE_BITSIZE (GET_MODE (XEXP (op0, 0))) - && bitsize) + if (known_zero (bitpos) + && must_eq (bitsize, + GET_MODE_BITSIZE (GET_MODE (XEXP (op0, 0)))) + && maybe_nonzero (bitsize)) { op0 = XEXP (op0, 0); mode2 = GET_MODE (op0); } - else if (bitpos == GET_MODE_BITSIZE (GET_MODE (XEXP (op0, 0))) - && bitsize == GET_MODE_BITSIZE (GET_MODE (XEXP (op0, 1))) - && bitpos - && bitsize) + else if (must_eq (bitpos, + GET_MODE_BITSIZE (GET_MODE (XEXP (op0, 0)))) + && must_eq (bitsize, + GET_MODE_BITSIZE (GET_MODE (XEXP (op0, 1)))) + && maybe_nonzero (bitpos) + && maybe_nonzero (bitsize)) { op0 = XEXP (op0, 1); bitpos = 0; @@ -10685,13 +10680,14 @@ expand_expr_real_1 (tree exp, rtx target /* See the comment in expand_assignment for the rationale. */ if (mode1 != VOIDmode - && bitpos != 0 - && bitsize > 0 - && (bitpos % bitsize) == 0 - && (bitsize % GET_MODE_ALIGNMENT (mode1)) == 0 + && maybe_nonzero (bitpos) + && may_gt (bitsize, 0) + && multiple_p (bitpos, BITS_PER_UNIT, &bytepos) + && multiple_p (bitpos, bitsize) + && multiple_p (bitsize, GET_MODE_ALIGNMENT (mode1)) && MEM_ALIGN (op0) >= GET_MODE_ALIGNMENT (mode1)) { - op0 = adjust_address (op0, mode1, bitpos / BITS_PER_UNIT); + op0 = adjust_address (op0, mode1, bytepos); bitpos = 0; } @@ -10701,7 +10697,9 @@ expand_expr_real_1 (tree exp, rtx target /* If OFFSET is making OP0 more aligned than BIGGEST_ALIGNMENT, record its alignment as BIGGEST_ALIGNMENT. */ - if (MEM_P (op0) && bitpos == 0 && offset != 0 + if (MEM_P (op0) + && known_zero (bitpos) + && offset != 0 && is_aligning_offset (offset, tem)) set_mem_align (op0, BIGGEST_ALIGNMENT); @@ -10734,37 +10732,37 @@ expand_expr_real_1 (tree exp, rtx target || (volatilep && TREE_CODE (exp) == COMPONENT_REF && DECL_BIT_FIELD_TYPE (TREE_OPERAND (exp, 1)) && mode1 != BLKmode - && bitsize < GET_MODE_SIZE (mode1) * BITS_PER_UNIT) + && may_lt (bitsize, GET_MODE_SIZE (mode1) * BITS_PER_UNIT)) /* If the field isn't aligned enough to fetch as a memref, fetch it as a bit field. */ || (mode1 != BLKmode && (((MEM_P (op0) ? MEM_ALIGN (op0) < GET_MODE_ALIGNMENT (mode1) - || (bitpos % GET_MODE_ALIGNMENT (mode1) != 0) + || !multiple_p (bitpos, GET_MODE_ALIGNMENT (mode1)) : TYPE_ALIGN (TREE_TYPE (tem)) < GET_MODE_ALIGNMENT (mode) - || (bitpos % GET_MODE_ALIGNMENT (mode) != 0)) + || !multiple_p (bitpos, GET_MODE_ALIGNMENT (mode))) && modifier != EXPAND_MEMORY && ((modifier == EXPAND_CONST_ADDRESS || modifier == EXPAND_INITIALIZER) ? STRICT_ALIGNMENT : targetm.slow_unaligned_access (mode1, MEM_ALIGN (op0)))) - || (bitpos % BITS_PER_UNIT != 0))) + || !multiple_p (bitpos, BITS_PER_UNIT))) /* If the type and the field are a constant size and the size of the type isn't the same size as the bitfield, we must use bitfield operations. */ - || (bitsize >= 0 + || (known_size_p (bitsize) && TYPE_SIZE (TREE_TYPE (exp)) - && TREE_CODE (TYPE_SIZE (TREE_TYPE (exp))) == INTEGER_CST - && 0 != compare_tree_int (TYPE_SIZE (TREE_TYPE (exp)), - bitsize))) + && poly_int_tree_p (TYPE_SIZE (TREE_TYPE (exp))) + && may_ne (wi::to_poly_offset (TYPE_SIZE (TREE_TYPE (exp))), + bitsize))) { machine_mode ext_mode = mode; if (ext_mode == BLKmode && ! (target != 0 && MEM_P (op0) && MEM_P (target) - && bitpos % BITS_PER_UNIT == 0)) + && multiple_p (bitpos, BITS_PER_UNIT))) ext_mode = int_mode_for_size (bitsize, 1).else_blk (); if (ext_mode == BLKmode) @@ -10774,20 +10772,19 @@ expand_expr_real_1 (tree exp, rtx target /* ??? Unlike the similar test a few lines below, this one is very likely obsolete. */ - if (bitsize == 0) + if (known_zero (bitsize)) return target; /* In this case, BITPOS must start at a byte boundary and TARGET, if specified, must be a MEM. */ gcc_assert (MEM_P (op0) - && (!target || MEM_P (target)) - && !(bitpos % BITS_PER_UNIT)); + && (!target || MEM_P (target))); + bytepos = exact_div (bitpos, BITS_PER_UNIT); + poly_int64 bytesize = bits_to_bytes_round_up (bitsize); emit_block_move (target, - adjust_address (op0, VOIDmode, - bitpos / BITS_PER_UNIT), - GEN_INT ((bitsize + BITS_PER_UNIT - 1) - / BITS_PER_UNIT), + adjust_address (op0, VOIDmode, bytepos), + gen_int_mode (bytesize, Pmode), (modifier == EXPAND_STACK_PARM ? BLOCK_OP_CALL_PARM : BLOCK_OP_NORMAL)); @@ -10798,7 +10795,7 @@ expand_expr_real_1 (tree exp, rtx target with SHIFT_COUNT_TRUNCATED == 0 and garbage otherwise. Always return 0 for the sake of consistency, as reading a zero-sized bitfield is valid in Ada and the value is fully specified. */ - if (bitsize == 0) + if (known_zero (bitsize)) return const0_rtx; op0 = validize_mem (op0); @@ -10831,7 +10828,8 @@ expand_expr_real_1 (tree exp, rtx target { HOST_WIDE_INT size = GET_MODE_BITSIZE (op0_mode); - if (bitsize < size + gcc_checking_assert (must_le (bitsize, size)); + if (may_lt (bitsize, size) && reversep ? !BYTES_BIG_ENDIAN : BYTES_BIG_ENDIAN) op0 = expand_shift (LSHIFT_EXPR, op0_mode, op0, size - bitsize, op0, 1); @@ -10863,11 +10861,12 @@ expand_expr_real_1 (tree exp, rtx target mode1 = BLKmode; /* Get a reference to just this component. */ + bytepos = bits_to_bytes_round_down (bitpos); if (modifier == EXPAND_CONST_ADDRESS || modifier == EXPAND_SUM || modifier == EXPAND_INITIALIZER) - op0 = adjust_address_nv (op0, mode1, bitpos / BITS_PER_UNIT); + op0 = adjust_address_nv (op0, mode1, bytepos); else - op0 = adjust_address (op0, mode1, bitpos / BITS_PER_UNIT); + op0 = adjust_address (op0, mode1, bytepos); if (op0 == orig_op0) op0 = copy_rtx (op0); @@ -10950,12 +10949,12 @@ expand_expr_real_1 (tree exp, rtx target /* If we are converting to BLKmode, try to avoid an intermediate temporary by fetching an inner memory reference. */ if (mode == BLKmode - && TREE_CODE (TYPE_SIZE (type)) == INTEGER_CST + && poly_int_tree_p (TYPE_SIZE (type)) && TYPE_MODE (TREE_TYPE (treeop0)) != BLKmode && handled_component_p (treeop0)) { machine_mode mode1; - HOST_WIDE_INT bitsize, bitpos; + poly_int64 bitsize, bitpos, bytepos; tree offset; int unsignedp, reversep, volatilep = 0; tree tem @@ -10965,10 +10964,10 @@ expand_expr_real_1 (tree exp, rtx target /* ??? We should work harder and deal with non-zero offsets. */ if (!offset - && (bitpos % BITS_PER_UNIT) == 0 + && multiple_p (bitpos, BITS_PER_UNIT, &bytepos) && !reversep - && bitsize >= 0 - && compare_tree_int (TYPE_SIZE (type), bitsize) == 0) + && known_size_p (bitsize) + && must_eq (wi::to_poly_offset (TYPE_SIZE (type)), bitsize)) { /* See the normal_inner_ref case for the rationale. */ orig_op0 @@ -10990,9 +10989,9 @@ expand_expr_real_1 (tree exp, rtx target if (modifier == EXPAND_CONST_ADDRESS || modifier == EXPAND_SUM || modifier == EXPAND_INITIALIZER) - op0 = adjust_address_nv (op0, mode, bitpos / BITS_PER_UNIT); + op0 = adjust_address_nv (op0, mode, bytepos); else - op0 = adjust_address (op0, mode, bitpos / BITS_PER_UNIT); + op0 = adjust_address (op0, mode, bytepos); if (op0 == orig_op0) op0 = copy_rtx (op0); Index: gcc/fold-const.c =================================================================== --- gcc/fold-const.c 2017-10-23 17:18:44.902299961 +0100 +++ gcc/fold-const.c 2017-10-23 17:18:47.662057360 +0100 @@ -4042,7 +4042,7 @@ distribute_real_division (location_t loc static tree make_bit_field_ref (location_t loc, tree inner, tree orig_inner, tree type, - HOST_WIDE_INT bitsize, HOST_WIDE_INT bitpos, + HOST_WIDE_INT bitsize, poly_int64 bitpos, int unsignedp, int reversep) { tree result, bftype; @@ -4052,7 +4052,7 @@ make_bit_field_ref (location_t loc, tree { tree ninner = TREE_OPERAND (orig_inner, 0); machine_mode nmode; - HOST_WIDE_INT nbitsize, nbitpos; + poly_int64 nbitsize, nbitpos; tree noffset; int nunsignedp, nreversep, nvolatilep = 0; tree base = get_inner_reference (ninner, &nbitsize, &nbitpos, @@ -4060,9 +4060,7 @@ make_bit_field_ref (location_t loc, tree &nreversep, &nvolatilep); if (base == inner && noffset == NULL_TREE - && nbitsize >= bitsize - && nbitpos <= bitpos - && bitpos + bitsize <= nbitpos + nbitsize + && known_subrange_p (bitpos, bitsize, nbitpos, nbitsize) && !reversep && !nreversep && !nvolatilep) @@ -4078,7 +4076,7 @@ make_bit_field_ref (location_t loc, tree build_fold_addr_expr (inner), build_int_cst (ptr_type_node, 0)); - if (bitpos == 0 && !reversep) + if (known_zero (bitpos) && !reversep) { tree size = TYPE_SIZE (TREE_TYPE (inner)); if ((INTEGRAL_TYPE_P (TREE_TYPE (inner)) @@ -4127,7 +4125,8 @@ make_bit_field_ref (location_t loc, tree optimize_bit_field_compare (location_t loc, enum tree_code code, tree compare_type, tree lhs, tree rhs) { - HOST_WIDE_INT lbitpos, lbitsize, rbitpos, rbitsize, nbitpos, nbitsize; + poly_int64 plbitpos, plbitsize, rbitpos, rbitsize; + HOST_WIDE_INT lbitpos, lbitsize, nbitpos, nbitsize; tree type = TREE_TYPE (lhs); tree unsigned_type; int const_p = TREE_CODE (rhs) == INTEGER_CST; @@ -4141,14 +4140,20 @@ optimize_bit_field_compare (location_t l tree offset; /* Get all the information about the extractions being done. If the bit size - if the same as the size of the underlying object, we aren't doing an + is the same as the size of the underlying object, we aren't doing an extraction at all and so can do nothing. We also don't want to do anything if the inner expression is a PLACEHOLDER_EXPR since we then will no longer be able to replace it. */ - linner = get_inner_reference (lhs, &lbitsize, &lbitpos, &offset, &lmode, + linner = get_inner_reference (lhs, &plbitsize, &plbitpos, &offset, &lmode, &lunsignedp, &lreversep, &lvolatilep); - if (linner == lhs || lbitsize == GET_MODE_BITSIZE (lmode) || lbitsize < 0 - || offset != 0 || TREE_CODE (linner) == PLACEHOLDER_EXPR || lvolatilep) + if (linner == lhs + || !known_size_p (plbitsize) + || !plbitsize.is_constant (&lbitsize) + || !plbitpos.is_constant (&lbitpos) + || lbitsize == GET_MODE_BITSIZE (lmode) + || offset != 0 + || TREE_CODE (linner) == PLACEHOLDER_EXPR + || lvolatilep) return 0; if (const_p) @@ -4161,9 +4166,14 @@ optimize_bit_field_compare (location_t l = get_inner_reference (rhs, &rbitsize, &rbitpos, &offset, &rmode, &runsignedp, &rreversep, &rvolatilep); - if (rinner == rhs || lbitpos != rbitpos || lbitsize != rbitsize - || lunsignedp != runsignedp || lreversep != rreversep || offset != 0 - || TREE_CODE (rinner) == PLACEHOLDER_EXPR || rvolatilep) + if (rinner == rhs + || may_ne (lbitpos, rbitpos) + || may_ne (lbitsize, rbitsize) + || lunsignedp != runsignedp + || lreversep != rreversep + || offset != 0 + || TREE_CODE (rinner) == PLACEHOLDER_EXPR + || rvolatilep) return 0; } @@ -4172,7 +4182,6 @@ optimize_bit_field_compare (location_t l poly_uint64 bitend = 0; if (TREE_CODE (lhs) == COMPONENT_REF) { - poly_int64 plbitpos; get_bit_range (&bitstart, &bitend, lhs, &plbitpos, &offset); if (!plbitpos.is_constant (&lbitpos) || offset != NULL_TREE) return 0; @@ -4340,10 +4349,14 @@ decode_field_reference (location_t loc, return 0; } - inner = get_inner_reference (exp, pbitsize, pbitpos, &offset, pmode, - punsignedp, preversep, pvolatilep); + poly_int64 poly_bitsize, poly_bitpos; + inner = get_inner_reference (exp, &poly_bitsize, &poly_bitpos, &offset, + pmode, punsignedp, preversep, pvolatilep); if ((inner == exp && and_mask == 0) - || *pbitsize < 0 || offset != 0 + || !poly_bitsize.is_constant (pbitsize) + || !poly_bitpos.is_constant (pbitpos) + || *pbitsize < 0 + || offset != 0 || TREE_CODE (inner) == PLACEHOLDER_EXPR /* Reject out-of-bound accesses (PR79731). */ || (! AGGREGATE_TYPE_P (TREE_TYPE (inner)) @@ -7915,7 +7928,7 @@ fold_unary_loc (location_t loc, enum tre && POINTER_TYPE_P (type) && handled_component_p (TREE_OPERAND (op0, 0))) { - HOST_WIDE_INT bitsize, bitpos; + poly_int64 bitsize, bitpos; tree offset; machine_mode mode; int unsignedp, reversep, volatilep; @@ -7926,7 +7939,8 @@ fold_unary_loc (location_t loc, enum tre /* If the reference was to a (constant) zero offset, we can use the address of the base if it has the same base type as the result type and the pointer type is unqualified. */ - if (! offset && bitpos == 0 + if (!offset + && known_zero (bitpos) && (TYPE_MAIN_VARIANT (TREE_TYPE (type)) == TYPE_MAIN_VARIANT (TREE_TYPE (base))) && TYPE_QUALS (type) == TYPE_UNQUALIFIED) @@ -14450,12 +14464,12 @@ round_down_loc (location_t loc, tree val static tree split_address_to_core_and_offset (tree exp, - HOST_WIDE_INT *pbitpos, tree *poffset) + poly_int64_pod *pbitpos, tree *poffset) { tree core; machine_mode mode; int unsignedp, reversep, volatilep; - HOST_WIDE_INT bitsize; + poly_int64 bitsize; location_t loc = EXPR_LOCATION (exp); if (TREE_CODE (exp) == ADDR_EXPR) @@ -14471,16 +14485,14 @@ split_address_to_core_and_offset (tree e STRIP_NOPS (core); *pbitpos = 0; *poffset = TREE_OPERAND (exp, 1); - if (TREE_CODE (*poffset) == INTEGER_CST) + if (poly_int_tree_p (*poffset)) { - offset_int tem = wi::sext (wi::to_offset (*poffset), - TYPE_PRECISION (TREE_TYPE (*poffset))); + poly_offset_int tem + = wi::sext (wi::to_poly_offset (*poffset), + TYPE_PRECISION (TREE_TYPE (*poffset))); tem <<= LOG2_BITS_PER_UNIT; - if (wi::fits_shwi_p (tem)) - { - *pbitpos = tem.to_shwi (); - *poffset = NULL_TREE; - } + if (tem.to_shwi (pbitpos)) + *poffset = NULL_TREE; } } else @@ -14497,17 +14509,18 @@ split_address_to_core_and_offset (tree e otherwise. If they do, E1 - E2 is stored in *DIFF. */ bool -ptr_difference_const (tree e1, tree e2, HOST_WIDE_INT *diff) +ptr_difference_const (tree e1, tree e2, poly_int64_pod *diff) { tree core1, core2; - HOST_WIDE_INT bitpos1, bitpos2; + poly_int64 bitpos1, bitpos2; tree toffset1, toffset2, tdiff, type; core1 = split_address_to_core_and_offset (e1, &bitpos1, &toffset1); core2 = split_address_to_core_and_offset (e2, &bitpos2, &toffset2); - if (bitpos1 % BITS_PER_UNIT != 0 - || bitpos2 % BITS_PER_UNIT != 0 + poly_int64 bytepos1, bytepos2; + if (!multiple_p (bitpos1, BITS_PER_UNIT, &bytepos1) + || !multiple_p (bitpos2, BITS_PER_UNIT, &bytepos2) || !operand_equal_p (core1, core2, 0)) return false; @@ -14532,7 +14545,7 @@ ptr_difference_const (tree e1, tree e2, else *diff = 0; - *diff += (bitpos1 - bitpos2) / BITS_PER_UNIT; + *diff += bytepos1 - bytepos2; return true; } Index: gcc/asan.c =================================================================== --- gcc/asan.c 2017-10-23 17:11:40.240937549 +0100 +++ gcc/asan.c 2017-10-23 17:18:47.654058063 +0100 @@ -2068,7 +2068,7 @@ instrument_derefs (gimple_stmt_iterator if (size_in_bytes <= 0) return; - HOST_WIDE_INT bitsize, bitpos; + poly_int64 bitsize, bitpos; tree offset; machine_mode mode; int unsignedp, reversep, volatilep = 0; @@ -2086,19 +2086,19 @@ instrument_derefs (gimple_stmt_iterator return; } - if (bitpos % BITS_PER_UNIT - || bitsize != size_in_bytes * BITS_PER_UNIT) + if (!multiple_p (bitpos, BITS_PER_UNIT) + || may_ne (bitsize, size_in_bytes * BITS_PER_UNIT)) return; if (VAR_P (inner) && DECL_HARD_REGISTER (inner)) return; + poly_int64 decl_size; if (VAR_P (inner) && offset == NULL_TREE - && bitpos >= 0 && DECL_SIZE (inner) - && tree_fits_shwi_p (DECL_SIZE (inner)) - && bitpos + bitsize <= tree_to_shwi (DECL_SIZE (inner))) + && poly_int_tree_p (DECL_SIZE (inner), &decl_size) + && known_subrange_p (bitpos, bitsize, 0, decl_size)) { if (DECL_THREAD_LOCAL_P (inner)) return; Index: gcc/config/mips/mips.c =================================================================== --- gcc/config/mips/mips.c 2017-10-23 17:11:40.283017967 +0100 +++ gcc/config/mips/mips.c 2017-10-23 17:18:47.656057887 +0100 @@ -17613,7 +17613,7 @@ r10k_safe_address_p (rtx x, rtx_insn *in static bool r10k_safe_mem_expr_p (tree expr, unsigned HOST_WIDE_INT offset) { - HOST_WIDE_INT bitoffset, bitsize; + poly_int64 bitoffset, bitsize; tree inner, var_offset; machine_mode mode; int unsigned_p, reverse_p, volatile_p; Index: gcc/dbxout.c =================================================================== --- gcc/dbxout.c 2017-10-23 17:11:39.968416747 +0100 +++ gcc/dbxout.c 2017-10-23 17:18:47.657057799 +0100 @@ -2469,7 +2469,7 @@ dbxout_expand_expr (tree expr) case BIT_FIELD_REF: { machine_mode mode; - HOST_WIDE_INT bitsize, bitpos; + poly_int64 bitsize, bitpos; tree offset, tem; int unsignedp, reversep, volatilep = 0; rtx x; @@ -2486,8 +2486,8 @@ dbxout_expand_expr (tree expr) return NULL; x = adjust_address_nv (x, mode, tree_to_shwi (offset)); } - if (bitpos != 0) - x = adjust_address_nv (x, mode, bitpos / BITS_PER_UNIT); + if (maybe_nonzero (bitpos)) + x = adjust_address_nv (x, mode, bits_to_bytes_round_down (bitpos)); return x; } Index: gcc/dwarf2out.c =================================================================== --- gcc/dwarf2out.c 2017-10-23 17:16:59.703267951 +0100 +++ gcc/dwarf2out.c 2017-10-23 17:18:47.659057624 +0100 @@ -16624,7 +16624,7 @@ loc_list_for_address_of_addr_expr_of_ind loc_descr_context *context) { tree obj, offset; - HOST_WIDE_INT bitsize, bitpos, bytepos; + poly_int64 bitsize, bitpos, bytepos; machine_mode mode; int unsignedp, reversep, volatilep = 0; dw_loc_list_ref list_ret = NULL, list_ret1 = NULL; @@ -16633,7 +16633,7 @@ loc_list_for_address_of_addr_expr_of_ind &bitsize, &bitpos, &offset, &mode, &unsignedp, &reversep, &volatilep); STRIP_NOPS (obj); - if (bitpos % BITS_PER_UNIT) + if (!multiple_p (bitpos, BITS_PER_UNIT, &bytepos)) { expansion_failed (loc, NULL_RTX, "bitfield access"); return 0; @@ -16644,7 +16644,7 @@ loc_list_for_address_of_addr_expr_of_ind NULL_RTX, "no indirect ref in inner refrence"); return 0; } - if (!offset && !bitpos) + if (!offset && known_zero (bitpos)) list_ret = loc_list_from_tree (TREE_OPERAND (obj, 0), toplev ? 2 : 1, context); else if (toplev @@ -16666,12 +16666,11 @@ loc_list_for_address_of_addr_expr_of_ind add_loc_descr_to_each (list_ret, new_loc_descr (DW_OP_plus, 0, 0)); } - bytepos = bitpos / BITS_PER_UNIT; - if (bytepos > 0) + HOST_WIDE_INT value; + if (bytepos.is_constant (&value) && value > 0) add_loc_descr_to_each (list_ret, - new_loc_descr (DW_OP_plus_uconst, - bytepos, 0)); - else if (bytepos < 0) + new_loc_descr (DW_OP_plus_uconst, value, 0)); + else if (maybe_nonzero (bytepos)) loc_list_plus_const (list_ret, bytepos); add_loc_descr_to_each (list_ret, new_loc_descr (DW_OP_stack_value, 0, 0)); @@ -17641,7 +17640,7 @@ loc_list_from_tree_1 (tree loc, int want case IMAGPART_EXPR: { tree obj, offset; - HOST_WIDE_INT bitsize, bitpos, bytepos; + poly_int64 bitsize, bitpos, bytepos; machine_mode mode; int unsignedp, reversep, volatilep = 0; @@ -17652,13 +17651,15 @@ loc_list_from_tree_1 (tree loc, int want list_ret = loc_list_from_tree_1 (obj, want_address == 2 - && !bitpos && !offset ? 2 : 1, + && known_zero (bitpos) + && !offset ? 2 : 1, context); /* TODO: We can extract value of the small expression via shifting even for nonzero bitpos. */ if (list_ret == 0) return 0; - if (bitpos % BITS_PER_UNIT != 0 || bitsize % BITS_PER_UNIT != 0) + if (!multiple_p (bitpos, BITS_PER_UNIT, &bytepos) + || !multiple_p (bitsize, BITS_PER_UNIT)) { expansion_failed (loc, NULL_RTX, "bitfield access"); @@ -17677,10 +17678,11 @@ loc_list_from_tree_1 (tree loc, int want add_loc_descr_to_each (list_ret, new_loc_descr (DW_OP_plus, 0, 0)); } - bytepos = bitpos / BITS_PER_UNIT; - if (bytepos > 0) - add_loc_descr_to_each (list_ret, new_loc_descr (DW_OP_plus_uconst, bytepos, 0)); - else if (bytepos < 0) + HOST_WIDE_INT value; + if (bytepos.is_constant (&value) && value > 0) + add_loc_descr_to_each (list_ret, new_loc_descr (DW_OP_plus_uconst, + value, 0)); + else if (maybe_nonzero (bytepos)) loc_list_plus_const (list_ret, bytepos); have_address = 1; @@ -19212,8 +19214,9 @@ fortran_common (tree decl, HOST_WIDE_INT { tree val_expr, cvar; machine_mode mode; - HOST_WIDE_INT bitsize, bitpos; + poly_int64 bitsize, bitpos; tree offset; + HOST_WIDE_INT cbitpos; int unsignedp, reversep, volatilep = 0; /* If the decl isn't a VAR_DECL, or if it isn't static, or if @@ -19236,7 +19239,10 @@ fortran_common (tree decl, HOST_WIDE_INT if (cvar == NULL_TREE || !VAR_P (cvar) || DECL_ARTIFICIAL (cvar) - || !TREE_PUBLIC (cvar)) + || !TREE_PUBLIC (cvar) + /* We don't expect to have to cope with variable offsets, + since at present all static data must have a constant size. */ + || !bitpos.is_constant (&cbitpos)) return NULL_TREE; *value = 0; @@ -19246,8 +19252,8 @@ fortran_common (tree decl, HOST_WIDE_INT return NULL_TREE; *value = tree_to_shwi (offset); } - if (bitpos != 0) - *value += bitpos / BITS_PER_UNIT; + if (cbitpos != 0) + *value += cbitpos / BITS_PER_UNIT; return cvar; } Index: gcc/gimple-laddress.c =================================================================== --- gcc/gimple-laddress.c 2017-10-23 17:07:40.354337067 +0100 +++ gcc/gimple-laddress.c 2017-10-23 17:18:47.662057360 +0100 @@ -100,19 +100,19 @@ pass_laddress::execute (function *fun) */ tree expr = gimple_assign_rhs1 (stmt); - HOST_WIDE_INT bitsize, bitpos; + poly_int64 bitsize, bitpos; tree base, offset; machine_mode mode; int volatilep = 0, reversep, unsignedp = 0; base = get_inner_reference (TREE_OPERAND (expr, 0), &bitsize, &bitpos, &offset, &mode, &unsignedp, &reversep, &volatilep); - gcc_assert (base != NULL_TREE && (bitpos % BITS_PER_UNIT) == 0); + gcc_assert (base != NULL_TREE); + poly_int64 bytepos = exact_div (bitpos, BITS_PER_UNIT); if (offset != NULL_TREE) { - if (bitpos != 0) - offset = size_binop (PLUS_EXPR, offset, - size_int (bitpos / BITS_PER_UNIT)); + if (maybe_nonzero (bytepos)) + offset = size_binop (PLUS_EXPR, offset, size_int (bytepos)); offset = force_gimple_operand_gsi (&gsi, offset, true, NULL, true, GSI_SAME_STMT); base = build_fold_addr_expr (base); Index: gcc/gimplify.c =================================================================== --- gcc/gimplify.c 2017-10-23 17:11:40.246949037 +0100 +++ gcc/gimplify.c 2017-10-23 17:18:47.663057272 +0100 @@ -7865,7 +7865,7 @@ gimplify_scan_omp_clauses (tree *list_p, } tree offset; - HOST_WIDE_INT bitsize, bitpos; + poly_int64 bitsize, bitpos; machine_mode mode; int unsignedp, reversep, volatilep = 0; tree base = OMP_CLAUSE_DECL (c); @@ -7886,7 +7886,7 @@ gimplify_scan_omp_clauses (tree *list_p, base = TREE_OPERAND (base, 0); gcc_assert (base == decl && (offset == NULL_TREE - || TREE_CODE (offset) == INTEGER_CST)); + || poly_int_tree_p (offset))); splay_tree_node n = splay_tree_lookup (ctx->variables, (splay_tree_key)decl); @@ -7965,13 +7965,13 @@ gimplify_scan_omp_clauses (tree *list_p, tree *sc = NULL, *scp = NULL; if (GOMP_MAP_ALWAYS_P (OMP_CLAUSE_MAP_KIND (c)) || ptr) n->value |= GOVD_SEEN; - offset_int o1, o2; + poly_offset_int o1, o2; if (offset) - o1 = wi::to_offset (offset); + o1 = wi::to_poly_offset (offset); else o1 = 0; - if (bitpos) - o1 = o1 + bitpos / BITS_PER_UNIT; + if (maybe_nonzero (bitpos)) + o1 += bits_to_bytes_round_down (bitpos); sc = &OMP_CLAUSE_CHAIN (*osc); if (*sc != c && (OMP_CLAUSE_MAP_KIND (*sc) @@ -7990,7 +7990,7 @@ gimplify_scan_omp_clauses (tree *list_p, else { tree offset2; - HOST_WIDE_INT bitsize2, bitpos2; + poly_int64 bitsize2, bitpos2; base = OMP_CLAUSE_DECL (*sc); if (TREE_CODE (base) == ARRAY_REF) { @@ -8026,7 +8026,7 @@ gimplify_scan_omp_clauses (tree *list_p, if (scp) continue; gcc_assert (offset == NULL_TREE - || TREE_CODE (offset) == INTEGER_CST); + || poly_int_tree_p (offset)); tree d1 = OMP_CLAUSE_DECL (*sc); tree d2 = OMP_CLAUSE_DECL (c); while (TREE_CODE (d1) == ARRAY_REF) @@ -8056,13 +8056,13 @@ gimplify_scan_omp_clauses (tree *list_p, break; } if (offset2) - o2 = wi::to_offset (offset2); + o2 = wi::to_poly_offset (offset2); else o2 = 0; - if (bitpos2) - o2 = o2 + bitpos2 / BITS_PER_UNIT; - if (wi::ltu_p (o1, o2) - || (wi::eq_p (o1, o2) && bitpos < bitpos2)) + o2 += bits_to_bytes_round_down (bitpos2); + if (may_lt (o1, o2) + || (must_eq (o1, 2) + && may_lt (bitpos, bitpos2))) { if (ptr) scp = sc; Index: gcc/simplify-rtx.c =================================================================== --- gcc/simplify-rtx.c 2017-10-23 17:16:50.376527466 +0100 +++ gcc/simplify-rtx.c 2017-10-23 17:18:47.665057096 +0100 @@ -308,23 +308,19 @@ delegitimize_mem_from_attrs (rtx x) case IMAGPART_EXPR: case VIEW_CONVERT_EXPR: { - HOST_WIDE_INT bitsize, bitpos; + poly_int64 bitsize, bitpos, bytepos, toffset_val = 0; tree toffset; int unsignedp, reversep, volatilep = 0; decl = get_inner_reference (decl, &bitsize, &bitpos, &toffset, &mode, &unsignedp, &reversep, &volatilep); - if (bitsize != GET_MODE_BITSIZE (mode) - || (bitpos % BITS_PER_UNIT) - || (toffset && !tree_fits_shwi_p (toffset))) + if (may_ne (bitsize, GET_MODE_BITSIZE (mode)) + || !multiple_p (bitpos, BITS_PER_UNIT, &bytepos) + || (toffset && !poly_int_tree_p (toffset, &toffset_val))) decl = NULL; else - { - offset += bitpos / BITS_PER_UNIT; - if (toffset) - offset += tree_to_shwi (toffset); - } + offset += bytepos + toffset_val; break; } } Index: gcc/tree-affine.c =================================================================== --- gcc/tree-affine.c 2017-10-23 17:18:30.290584430 +0100 +++ gcc/tree-affine.c 2017-10-23 17:18:47.665057096 +0100 @@ -267,7 +267,7 @@ tree_to_aff_combination (tree expr, tree aff_tree tmp; enum tree_code code; tree cst, core, toffset; - HOST_WIDE_INT bitpos, bitsize; + poly_int64 bitpos, bitsize, bytepos; machine_mode mode; int unsignedp, reversep, volatilep; @@ -324,12 +324,13 @@ tree_to_aff_combination (tree expr, tree core = get_inner_reference (TREE_OPERAND (expr, 0), &bitsize, &bitpos, &toffset, &mode, &unsignedp, &reversep, &volatilep); - if (bitpos % BITS_PER_UNIT != 0) + if (!multiple_p (bitpos, BITS_PER_UNIT, &bytepos)) break; - aff_combination_const (comb, type, bitpos / BITS_PER_UNIT); + aff_combination_const (comb, type, bytepos); if (TREE_CODE (core) == MEM_REF) { - aff_combination_add_cst (comb, wi::to_widest (TREE_OPERAND (core, 1))); + tree mem_offset = TREE_OPERAND (core, 1); + aff_combination_add_cst (comb, wi::to_poly_widest (mem_offset)); core = TREE_OPERAND (core, 0); } else @@ -929,7 +930,7 @@ debug_aff (aff_tree *val) tree get_inner_reference_aff (tree ref, aff_tree *addr, poly_widest_int *size) { - HOST_WIDE_INT bitsize, bitpos; + poly_int64 bitsize, bitpos; tree toff; machine_mode mode; int uns, rev, vol; @@ -948,10 +949,10 @@ get_inner_reference_aff (tree ref, aff_t aff_combination_add (addr, &tmp); } - aff_combination_const (&tmp, sizetype, bitpos / BITS_PER_UNIT); + aff_combination_const (&tmp, sizetype, bits_to_bytes_round_down (bitpos)); aff_combination_add (addr, &tmp); - *size = (bitsize + BITS_PER_UNIT - 1) / BITS_PER_UNIT; + *size = bits_to_bytes_round_up (bitsize); return base; } Index: gcc/tree-data-ref.c =================================================================== --- gcc/tree-data-ref.c 2017-10-23 17:18:30.290584430 +0100 +++ gcc/tree-data-ref.c 2017-10-23 17:18:47.666057008 +0100 @@ -627,7 +627,7 @@ split_constant_offset_1 (tree type, tree case ADDR_EXPR: { tree base, poffset; - HOST_WIDE_INT pbitsize, pbitpos; + poly_int64 pbitsize, pbitpos, pbytepos; machine_mode pmode; int punsignedp, preversep, pvolatilep; @@ -636,10 +636,10 @@ split_constant_offset_1 (tree type, tree = get_inner_reference (op0, &pbitsize, &pbitpos, &poffset, &pmode, &punsignedp, &preversep, &pvolatilep); - if (pbitpos % BITS_PER_UNIT != 0) + if (!multiple_p (pbitpos, BITS_PER_UNIT, &pbytepos)) return false; base = build_fold_addr_expr (base); - off0 = ssize_int (pbitpos / BITS_PER_UNIT); + off0 = ssize_int (pbytepos); if (poffset) { @@ -789,7 +789,7 @@ canonicalize_base_object_address (tree a dr_analyze_innermost (innermost_loop_behavior *drb, tree ref, struct loop *loop) { - HOST_WIDE_INT pbitsize, pbitpos; + poly_int64 pbitsize, pbitpos; tree base, poffset; machine_mode pmode; int punsignedp, preversep, pvolatilep; @@ -804,7 +804,8 @@ dr_analyze_innermost (innermost_loop_beh &punsignedp, &preversep, &pvolatilep); gcc_assert (base != NULL_TREE); - if (pbitpos % BITS_PER_UNIT != 0) + poly_int64 pbytepos; + if (!multiple_p (pbitpos, BITS_PER_UNIT, &pbytepos)) { if (dump_file && (dump_flags & TDF_DETAILS)) fprintf (dump_file, "failed: bit offset alignment.\n"); @@ -885,7 +886,7 @@ dr_analyze_innermost (innermost_loop_beh } } - init = ssize_int (pbitpos / BITS_PER_UNIT); + init = ssize_int (pbytepos); /* Subtract any constant component from the base and add it to INIT instead. Adjust the misalignment to reflect the amount we subtracted. */ Index: gcc/tree-scalar-evolution.c =================================================================== --- gcc/tree-scalar-evolution.c 2017-10-23 17:07:40.354337067 +0100 +++ gcc/tree-scalar-evolution.c 2017-10-23 17:18:47.666057008 +0100 @@ -1731,7 +1731,7 @@ interpret_rhs_expr (struct loop *loop, g || handled_component_p (TREE_OPERAND (rhs1, 0))) { machine_mode mode; - HOST_WIDE_INT bitsize, bitpos; + poly_int64 bitsize, bitpos; int unsignedp, reversep; int volatilep = 0; tree base, offset; @@ -1770,11 +1770,9 @@ interpret_rhs_expr (struct loop *loop, g res = chrec_fold_plus (type, res, chrec2); } - if (bitpos != 0) + if (maybe_nonzero (bitpos)) { - gcc_assert ((bitpos % BITS_PER_UNIT) == 0); - - unitpos = size_int (bitpos / BITS_PER_UNIT); + unitpos = size_int (exact_div (bitpos, BITS_PER_UNIT)); chrec3 = analyze_scalar_evolution (loop, unitpos); chrec3 = chrec_convert (TREE_TYPE (unitpos), chrec3, at_stmt); chrec3 = instantiate_parameters (loop, chrec3); Index: gcc/tree-sra.c =================================================================== --- gcc/tree-sra.c 2017-10-23 17:17:01.433034358 +0100 +++ gcc/tree-sra.c 2017-10-23 17:18:47.667056920 +0100 @@ -5389,12 +5389,12 @@ ipa_sra_check_caller (struct cgraph_node continue; tree offset; - HOST_WIDE_INT bitsize, bitpos; + poly_int64 bitsize, bitpos; machine_mode mode; int unsignedp, reversep, volatilep = 0; get_inner_reference (arg, &bitsize, &bitpos, &offset, &mode, &unsignedp, &reversep, &volatilep); - if (bitpos % BITS_PER_UNIT) + if (!multiple_p (bitpos, BITS_PER_UNIT)) { iscc->bad_arg_alignment = true; return true; Index: gcc/tree-ssa-math-opts.c =================================================================== --- gcc/tree-ssa-math-opts.c 2017-10-23 17:17:04.541614564 +0100 +++ gcc/tree-ssa-math-opts.c 2017-10-23 17:18:47.667056920 +0100 @@ -2105,7 +2105,7 @@ find_bswap_or_nop_load (gimple *stmt, tr { /* Leaf node is an array or component ref. Memorize its base and offset from base to compare to other such leaf node. */ - HOST_WIDE_INT bitsize, bitpos; + poly_int64 bitsize, bitpos, bytepos; machine_mode mode; int unsignedp, reversep, volatilep; tree offset, base_addr; @@ -2153,9 +2153,9 @@ find_bswap_or_nop_load (gimple *stmt, tr bitpos += bit_offset.to_shwi (); } - if (bitpos % BITS_PER_UNIT) + if (!multiple_p (bitpos, BITS_PER_UNIT, &bytepos)) return false; - if (bitsize % BITS_PER_UNIT) + if (!multiple_p (bitsize, BITS_PER_UNIT)) return false; if (reversep) return false; @@ -2164,7 +2164,7 @@ find_bswap_or_nop_load (gimple *stmt, tr return false; n->base_addr = base_addr; n->offset = offset; - n->bytepos = bitpos / BITS_PER_UNIT; + n->bytepos = bytepos; n->alias_set = reference_alias_ptr_type (ref); n->vuse = gimple_vuse (stmt); return true; Index: gcc/tree-vect-data-refs.c =================================================================== --- gcc/tree-vect-data-refs.c 2017-10-23 17:11:40.250956696 +0100 +++ gcc/tree-vect-data-refs.c 2017-10-23 17:18:47.668056833 +0100 @@ -3215,7 +3215,8 @@ vect_prune_runtime_alias_test_list (loop vect_check_gather_scatter (gimple *stmt, loop_vec_info loop_vinfo, gather_scatter_info *info) { - HOST_WIDE_INT scale = 1, pbitpos, pbitsize; + HOST_WIDE_INT scale = 1; + poly_int64 pbitpos, pbitsize; struct loop *loop = LOOP_VINFO_LOOP (loop_vinfo); stmt_vec_info stmt_info = vinfo_for_stmt (stmt); struct data_reference *dr = STMT_VINFO_DATA_REF (stmt_info); @@ -3256,7 +3257,8 @@ vect_check_gather_scatter (gimple *stmt, that can be gimplified before the loop. */ base = get_inner_reference (base, &pbitsize, &pbitpos, &off, &pmode, &punsignedp, &reversep, &pvolatilep); - gcc_assert (base && (pbitpos % BITS_PER_UNIT) == 0 && !reversep); + gcc_assert (base && !reversep); + poly_int64 pbytepos = exact_div (pbitpos, BITS_PER_UNIT); if (TREE_CODE (base) == MEM_REF) { @@ -3289,14 +3291,14 @@ vect_check_gather_scatter (gimple *stmt, if (!integer_zerop (off)) return false; off = base; - base = size_int (pbitpos / BITS_PER_UNIT); + base = size_int (pbytepos); } /* Otherwise put base + constant offset into the loop invariant BASE and continue with OFF. */ else { base = fold_convert (sizetype, base); - base = size_binop (PLUS_EXPR, base, size_int (pbitpos / BITS_PER_UNIT)); + base = size_binop (PLUS_EXPR, base, size_int (pbytepos)); } /* OFF at this point may be either a SSA_NAME or some tree expression Index: gcc/ubsan.c =================================================================== --- gcc/ubsan.c 2017-10-23 17:07:40.354337067 +0100 +++ gcc/ubsan.c 2017-10-23 17:18:47.669056745 +0100 @@ -1429,7 +1429,7 @@ maybe_instrument_pointer_overflow (gimpl if (!handled_component_p (t) && TREE_CODE (t) != MEM_REF) return; - HOST_WIDE_INT bitsize, bitpos, bytepos; + poly_int64 bitsize, bitpos, bytepos; tree offset; machine_mode mode; int volatilep = 0, reversep, unsignedp = 0; @@ -1447,14 +1447,14 @@ maybe_instrument_pointer_overflow (gimpl /* If BASE is a fixed size automatic variable or global variable defined in the current TU and bitpos fits, don't instrument anything. */ + poly_int64 base_size; if (offset == NULL_TREE - && bitpos > 0 + && maybe_nonzero (bitpos) && (VAR_P (base) || TREE_CODE (base) == PARM_DECL || TREE_CODE (base) == RESULT_DECL) - && DECL_SIZE (base) - && TREE_CODE (DECL_SIZE (base)) == INTEGER_CST - && compare_tree_int (DECL_SIZE (base), bitpos) >= 0 + && poly_int_tree_p (DECL_SIZE (base), &base_size) + && must_ge (base_size, bitpos) && (!is_global_var (base) || decl_binds_to_current_def_p (base))) return; } @@ -1475,8 +1475,8 @@ maybe_instrument_pointer_overflow (gimpl if (!POINTER_TYPE_P (TREE_TYPE (base)) && !DECL_P (base)) return; - bytepos = bitpos / BITS_PER_UNIT; - if (offset == NULL_TREE && bytepos == 0 && moff == NULL_TREE) + bytepos = bits_to_bytes_round_down (bitpos); + if (offset == NULL_TREE && known_zero (bytepos) && moff == NULL_TREE) return; tree base_addr = base; @@ -1484,7 +1484,7 @@ maybe_instrument_pointer_overflow (gimpl base_addr = build1 (ADDR_EXPR, build_pointer_type (TREE_TYPE (base)), base); t = offset; - if (bytepos) + if (maybe_nonzero (bytepos)) { if (t) t = fold_build2 (PLUS_EXPR, TREE_TYPE (t), t, @@ -1667,7 +1667,7 @@ instrument_bool_enum_load (gimple_stmt_i return; int modebitsize = GET_MODE_BITSIZE (SCALAR_INT_TYPE_MODE (type)); - HOST_WIDE_INT bitsize, bitpos; + poly_int64 bitsize, bitpos; tree offset; machine_mode mode; int volatilep = 0, reversep, unsignedp = 0; @@ -1676,8 +1676,8 @@ instrument_bool_enum_load (gimple_stmt_i tree utype = build_nonstandard_integer_type (modebitsize, 1); if ((VAR_P (base) && DECL_HARD_REGISTER (base)) - || (bitpos % modebitsize) != 0 - || bitsize != modebitsize + || !multiple_p (bitpos, modebitsize) + || may_ne (bitsize, modebitsize) || GET_MODE_BITSIZE (SCALAR_INT_TYPE_MODE (utype)) != modebitsize || TREE_CODE (gimple_assign_lhs (stmt)) != SSA_NAME) return; @@ -2086,15 +2086,15 @@ instrument_object_size (gimple_stmt_iter if (size_in_bytes <= 0) return; - HOST_WIDE_INT bitsize, bitpos; + poly_int64 bitsize, bitpos; tree offset; machine_mode mode; int volatilep = 0, reversep, unsignedp = 0; tree inner = get_inner_reference (t, &bitsize, &bitpos, &offset, &mode, &unsignedp, &reversep, &volatilep); - if (bitpos % BITS_PER_UNIT != 0 - || bitsize != size_in_bytes * BITS_PER_UNIT) + if (!multiple_p (bitpos, BITS_PER_UNIT) + || may_ne (bitsize, size_in_bytes * BITS_PER_UNIT)) return; bool decl_p = DECL_P (inner); Index: gcc/gimple-ssa-strength-reduction.c =================================================================== --- gcc/gimple-ssa-strength-reduction.c 2017-10-23 17:11:40.244945208 +0100 +++ gcc/gimple-ssa-strength-reduction.c 2017-10-23 17:18:47.663057272 +0100 @@ -1031,7 +1031,7 @@ restructure_reference (tree *pbase, tree slsr_process_ref (gimple *gs) { tree ref_expr, base, offset, type; - HOST_WIDE_INT bitsize, bitpos; + poly_int64 bitsize, bitpos; machine_mode mode; int unsignedp, reversep, volatilep; slsr_cand_t c; @@ -1049,9 +1049,10 @@ slsr_process_ref (gimple *gs) base = get_inner_reference (ref_expr, &bitsize, &bitpos, &offset, &mode, &unsignedp, &reversep, &volatilep); - if (reversep) + HOST_WIDE_INT cbitpos; + if (reversep || !bitpos.is_constant (&cbitpos)) return; - widest_int index = bitpos; + widest_int index = cbitpos; if (!restructure_reference (&base, &offset, &index, &type)) return; Index: gcc/hsa-gen.c =================================================================== --- gcc/hsa-gen.c 2017-10-23 17:07:40.354337067 +0100 +++ gcc/hsa-gen.c 2017-10-23 17:18:47.664057184 +0100 @@ -1972,12 +1972,22 @@ gen_hsa_addr (tree ref, hsa_bb *hbb, HOS { machine_mode mode; int unsignedp, volatilep, preversep; + poly_int64 pbitsize, pbitpos; + tree new_ref; - ref = get_inner_reference (ref, &bitsize, &bitpos, &varoffset, &mode, - &unsignedp, &preversep, &volatilep); - - offset = bitpos; - offset = wi::rshift (offset, LOG2_BITS_PER_UNIT, SIGNED); + new_ref = get_inner_reference (ref, &pbitsize, &pbitpos, &varoffset, + &mode, &unsignedp, &preversep, + &volatilep); + /* When this isn't true, the switch below will report an + appropriate error. */ + if (pbitsize.is_constant () && pbitpos.is_constant ()) + { + bitsize = pbitsize.to_constant (); + bitpos = pbitpos.to_constant (); + ref = new_ref; + offset = bitpos; + offset = wi::rshift (offset, LOG2_BITS_PER_UNIT, SIGNED); + } } switch (TREE_CODE (ref)) Index: gcc/sanopt.c =================================================================== --- gcc/sanopt.c 2017-10-23 17:07:40.354337067 +0100 +++ gcc/sanopt.c 2017-10-23 17:18:47.665057096 +0100 @@ -459,7 +459,7 @@ record_ubsan_ptr_check_stmt (sanopt_ctx static bool maybe_optimize_ubsan_ptr_ifn (sanopt_ctx *ctx, gimple *stmt) { - HOST_WIDE_INT bitsize, bitpos; + poly_int64 bitsize, pbitpos; machine_mode mode; int volatilep = 0, reversep, unsignedp = 0; tree offset; @@ -483,9 +483,12 @@ maybe_optimize_ubsan_ptr_ifn (sanopt_ctx { base = TREE_OPERAND (base, 0); - base = get_inner_reference (base, &bitsize, &bitpos, &offset, &mode, + HOST_WIDE_INT bitpos; + base = get_inner_reference (base, &bitsize, &pbitpos, &offset, &mode, &unsignedp, &reversep, &volatilep); - if (offset == NULL_TREE && DECL_P (base)) + if (offset == NULL_TREE + && DECL_P (base) + && pbitpos.is_constant (&bitpos)) { gcc_assert (!DECL_REGISTER (base)); offset_int expr_offset = bitpos / BITS_PER_UNIT; Index: gcc/tsan.c =================================================================== --- gcc/tsan.c 2017-10-23 17:07:40.354337067 +0100 +++ gcc/tsan.c 2017-10-23 17:18:47.669056745 +0100 @@ -110,12 +110,12 @@ instrument_expr (gimple_stmt_iterator gs if (size <= 0) return false; - HOST_WIDE_INT bitsize, bitpos; + poly_int64 unused_bitsize, unused_bitpos; tree offset; machine_mode mode; int unsignedp, reversep, volatilep = 0; - base = get_inner_reference (expr, &bitsize, &bitpos, &offset, &mode, - &unsignedp, &reversep, &volatilep); + base = get_inner_reference (expr, &unused_bitsize, &unused_bitpos, &offset, + &mode, &unsignedp, &reversep, &volatilep); /* No need to instrument accesses to decls that don't escape, they can't escape to other threads then. */ @@ -142,6 +142,7 @@ instrument_expr (gimple_stmt_iterator gs && DECL_BIT_FIELD_TYPE (TREE_OPERAND (expr, 1))) || TREE_CODE (expr) == BIT_FIELD_REF) { + HOST_WIDE_INT bitpos, bitsize; base = TREE_OPERAND (expr, 0); if (TREE_CODE (expr) == COMPONENT_REF) { Index: gcc/match.pd =================================================================== --- gcc/match.pd 2017-10-23 17:17:01.431034628 +0100 +++ gcc/match.pd 2017-10-23 17:18:47.664057184 +0100 @@ -1454,13 +1454,13 @@ DEFINE_INT_AND_FLOAT_ROUND_FN (RINT) (simplify (minus (convert ADDR_EXPR@0) (convert @1)) (if (tree_nop_conversion_p (type, TREE_TYPE (@0))) - (with { HOST_WIDE_INT diff; } + (with { poly_int64 diff; } (if (ptr_difference_const (@0, @1, &diff)) { build_int_cst_type (type, diff); })))) (simplify (minus (convert @0) (convert ADDR_EXPR@1)) (if (tree_nop_conversion_p (type, TREE_TYPE (@0))) - (with { HOST_WIDE_INT diff; } + (with { poly_int64 diff; } (if (ptr_difference_const (@0, @1, &diff)) { build_int_cst_type (type, diff); })))) Index: gcc/ada/gcc-interface/trans.c =================================================================== --- gcc/ada/gcc-interface/trans.c 2017-10-23 17:07:40.354337067 +0100 +++ gcc/ada/gcc-interface/trans.c 2017-10-23 17:18:47.653058151 +0100 @@ -2186,8 +2186,8 @@ Attribute_to_gnu (Node_Id gnat_node, tre case Attr_Last_Bit: case Attr_Bit: { - HOST_WIDE_INT bitsize; - HOST_WIDE_INT bitpos; + poly_int64 bitsize; + poly_int64 bitpos; tree gnu_offset; tree gnu_field_bitpos; tree gnu_field_offset; @@ -2254,11 +2254,11 @@ Attribute_to_gnu (Node_Id gnat_node, tre case Attr_First_Bit: case Attr_Bit: - gnu_result = size_int (bitpos % BITS_PER_UNIT); + gnu_result = size_int (num_trailing_bits (bitpos)); break; case Attr_Last_Bit: - gnu_result = bitsize_int (bitpos % BITS_PER_UNIT); + gnu_result = bitsize_int (num_trailing_bits (bitpos)); gnu_result = size_binop (PLUS_EXPR, gnu_result, TYPE_SIZE (TREE_TYPE (gnu_prefix))); /* ??? Avoid a large unsigned result that will overflow when Index: gcc/ada/gcc-interface/utils2.c =================================================================== --- gcc/ada/gcc-interface/utils2.c 2017-10-23 17:07:40.354337067 +0100 +++ gcc/ada/gcc-interface/utils2.c 2017-10-23 17:18:47.654058063 +0100 @@ -1439,8 +1439,8 @@ build_unary_op (enum tree_code op_code, the offset to the field. Otherwise, do this the normal way. */ if (op_code == ATTR_ADDR_EXPR) { - HOST_WIDE_INT bitsize; - HOST_WIDE_INT bitpos; + poly_int64 bitsize; + poly_int64 bitpos; tree offset, inner; machine_mode mode; int unsignedp, reversep, volatilep; @@ -1460,8 +1460,9 @@ build_unary_op (enum tree_code op_code, if (!offset) offset = size_zero_node; - offset = size_binop (PLUS_EXPR, offset, - size_int (bitpos / BITS_PER_UNIT)); + offset + = size_binop (PLUS_EXPR, offset, + size_int (bits_to_bytes_round_down (bitpos))); /* Take the address of INNER, convert it to a pointer to our type and add the offset. */ Index: gcc/cp/constexpr.c =================================================================== --- gcc/cp/constexpr.c 2017-10-23 17:07:40.354337067 +0100 +++ gcc/cp/constexpr.c 2017-10-23 17:18:47.657057799 +0100 @@ -5037,7 +5037,7 @@ enum { ck_ok, ck_bad, ck_unknown }; check_automatic_or_tls (tree ref) { machine_mode mode; - HOST_WIDE_INT bitsize, bitpos; + poly_int64 bitsize, bitpos; tree offset; int volatilep = 0, unsignedp = 0; tree decl = get_inner_reference (ref, &bitsize, &bitpos, &offset,