diff options
Diffstat (limited to 'gcc/dwarf2out.c')
| -rw-r--r-- | gcc/dwarf2out.c | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/gcc/dwarf2out.c b/gcc/dwarf2out.c index 24f405e..bcfadda 100644 --- a/gcc/dwarf2out.c +++ b/gcc/dwarf2out.c @@ -14246,16 +14246,16 @@ loc_list_from_tree (tree loc, int want_address) } case INTEGER_CST: - if ((want_address || !host_integerp (loc, 0)) + if ((want_address || !tree_fits_shwi_p (loc)) && (ret = cst_pool_loc_descr (loc))) have_address = 1; else if (want_address == 2 - && host_integerp (loc, 0) + && tree_fits_shwi_p (loc) && (ret = address_of_int_loc_descriptor (int_size_in_bytes (TREE_TYPE (loc)), tree_low_cst (loc, 0)))) have_address = 1; - else if (host_integerp (loc, 0)) + else if (tree_fits_shwi_p (loc)) ret = int_loc_descriptor (tree_low_cst (loc, 0)); else { @@ -14345,7 +14345,7 @@ loc_list_from_tree (tree loc, int want_address) case POINTER_PLUS_EXPR: case PLUS_EXPR: - if (host_integerp (TREE_OPERAND (loc, 1), 0)) + if (tree_fits_shwi_p (TREE_OPERAND (loc, 1))) { list_ret = loc_list_from_tree (TREE_OPERAND (loc, 0), 0); if (list_ret == 0) @@ -15526,7 +15526,7 @@ fortran_common (tree decl, HOST_WIDE_INT *value) *value = 0; if (offset != NULL) { - if (!host_integerp (offset, 0)) + if (!tree_fits_shwi_p (offset)) return NULL_TREE; *value = tree_low_cst (offset, 0); } @@ -15694,7 +15694,7 @@ native_encode_initializer (tree init, unsigned char *array, int size) constructor_elt *ce; if (TYPE_DOMAIN (type) == NULL_TREE - || !host_integerp (TYPE_MIN_VALUE (TYPE_DOMAIN (type)), 0)) + || !tree_fits_shwi_p (TYPE_MIN_VALUE (TYPE_DOMAIN (type)))) return false; fieldsize = int_size_in_bytes (TREE_TYPE (type)); @@ -15768,7 +15768,7 @@ native_encode_initializer (tree init, unsigned char *array, int size) && ! TYPE_MAX_VALUE (TYPE_DOMAIN (TREE_TYPE (field)))) return false; else if (DECL_SIZE_UNIT (field) == NULL_TREE - || !host_integerp (DECL_SIZE_UNIT (field), 0)) + || !tree_fits_shwi_p (DECL_SIZE_UNIT (field))) return false; fieldsize = tree_low_cst (DECL_SIZE_UNIT (field), 0); pos = int_byte_position (field); @@ -16160,7 +16160,7 @@ add_bound_info (dw_die_ref subrange_die, enum dwarf_attribute bound_attr, tree b /* Use the default if possible. */ if (bound_attr == DW_AT_lower_bound - && host_integerp (bound, 0) + && tree_fits_shwi_p (bound) && (dflt = lower_bound_default ()) != -1 && tree_low_cst (bound, 0) == dflt) ; @@ -16394,7 +16394,7 @@ add_bit_offset_attribute (dw_die_ref die, tree decl) /* We can't yet handle bit-fields whose offsets are variable, so if we encounter such things, just return without generating any attribute whatsoever. Likewise for variable or too large size. */ - if (! host_integerp (bit_position (decl), 0) + if (! tree_fits_shwi_p (bit_position (decl)) || ! host_integerp (DECL_SIZE (decl), 1)) return; @@ -16505,7 +16505,7 @@ add_pure_or_virtual_attribute (dw_die_ref die, tree func_decl) { add_AT_unsigned (die, DW_AT_virtuality, DW_VIRTUALITY_virtual); - if (host_integerp (DECL_VINDEX (func_decl), 0)) + if (tree_fits_shwi_p (DECL_VINDEX (func_decl))) add_AT_loc (die, DW_AT_vtable_elem_location, new_loc_descr (DW_OP_constu, tree_low_cst (DECL_VINDEX (func_decl), 0), @@ -17055,7 +17055,7 @@ descr_info_loc (tree val, tree base_decl) case VAR_DECL: return loc_descriptor_from_tree (val, 0); case INTEGER_CST: - if (host_integerp (val, 0)) + if (tree_fits_shwi_p (val)) return int_loc_descriptor (tree_low_cst (val, 0)); break; case INDIRECT_REF: @@ -17119,7 +17119,7 @@ add_descr_info_field (dw_die_ref die, enum dwarf_attribute attr, { dw_loc_descr_ref loc; - if (host_integerp (val, 0)) + if (tree_fits_shwi_p (val)) { add_AT_unsigned (die, attr, tree_low_cst (val, 0)); return; @@ -17172,7 +17172,7 @@ gen_descr_array_type_die (tree type, struct array_descr_info *info, /* If it is the default value, omit it. */ int dflt; - if (host_integerp (info->dimen[dim].lower_bound, 0) + if (tree_fits_shwi_p (info->dimen[dim].lower_bound) && (dflt = lower_bound_default ()) != -1 && tree_low_cst (info->dimen[dim].lower_bound, 0) == dflt) ; @@ -17322,7 +17322,7 @@ gen_enumeration_type_die (tree type, dw_die_ref context_die) value = DECL_INITIAL (value); if (simple_type_size_in_bits (TREE_TYPE (value)) - <= HOST_BITS_PER_WIDE_INT || host_integerp (value, 0)) + <= HOST_BITS_PER_WIDE_INT || tree_fits_shwi_p (value)) /* DWARF2 does not provide a way of indicating whether or not enumeration constants are signed or unsigned. GDB always assumes the values are signed, so we output all @@ -23112,7 +23112,7 @@ optimize_location_into_implicit_ptr (dw_die_ref die, tree decl) we can add DW_OP_GNU_implicit_pointer. */ STRIP_NOPS (init); if (TREE_CODE (init) == POINTER_PLUS_EXPR - && host_integerp (TREE_OPERAND (init, 1), 0)) + && tree_fits_shwi_p (TREE_OPERAND (init, 1))) { offset = tree_low_cst (TREE_OPERAND (init, 1), 0); init = TREE_OPERAND (init, 0); |