diff options
Diffstat (limited to 'gcc/ada/gcc-interface/utils.c')
| -rw-r--r-- | gcc/ada/gcc-interface/utils.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c index 9840953..39350f7 100644 --- a/gcc/ada/gcc-interface/utils.c +++ b/gcc/ada/gcc-interface/utils.c @@ -251,7 +251,7 @@ static GTY ((if_marked ("pad_type_hash_marked_p"), static tree merge_sizes (tree, tree, tree, bool, bool); static tree compute_related_constant (tree, tree); static tree split_plus (tree, tree *); -static tree float_type_for_precision (int, enum machine_mode); +static tree float_type_for_precision (int, machine_mode); static tree convert_to_fat_pointer (tree, tree); static unsigned int scale_by_factor_of (tree, unsigned int); static bool potential_alignment_gap (tree, tree, tree); @@ -1128,7 +1128,7 @@ make_type_from_size (tree type, tree size_tree, bool for_biased) may need to return the thin pointer. */ if (TYPE_FAT_POINTER_P (type) && size < POINTER_SIZE * 2) { - enum machine_mode p_mode = mode_for_size (size, MODE_INT, 0); + machine_mode p_mode = mode_for_size (size, MODE_INT, 0); if (!targetm.valid_pointer_mode (p_mode)) p_mode = ptr_mode; return @@ -3222,7 +3222,7 @@ gnat_type_for_size (unsigned precision, int unsignedp) /* Likewise for floating-point types. */ static tree -float_type_for_precision (int precision, enum machine_mode mode) +float_type_for_precision (int precision, machine_mode mode) { tree t; char type_name[20]; @@ -3248,7 +3248,7 @@ float_type_for_precision (int precision, enum machine_mode mode) an unsigned type; otherwise a signed type is returned. */ tree -gnat_type_for_mode (enum machine_mode mode, int unsignedp) +gnat_type_for_mode (machine_mode mode, int unsignedp) { if (mode == BLKmode) return NULL_TREE; @@ -3267,7 +3267,7 @@ gnat_type_for_mode (enum machine_mode mode, int unsignedp) if (VECTOR_MODE_P (mode)) { - enum machine_mode inner_mode = GET_MODE_INNER (mode); + machine_mode inner_mode = GET_MODE_INNER (mode); tree inner_type = gnat_type_for_mode (inner_mode, unsignedp); if (inner_type) return build_vector_type_for_mode (inner_type, mode); @@ -3580,7 +3580,7 @@ build_template (tree template_type, tree array_type, tree expr) static bool type_for_vector_element_p (tree type) { - enum machine_mode mode; + machine_mode mode; if (!INTEGRAL_TYPE_P (type) && !SCALAR_FLOAT_TYPE_P (type) |