+2020-11-01 Joel Brobecker <brobecker@adacore.com>
+
+ * ada-lang.c (gnat_encoded_fixed_point_type_info): Renames
+ gnat_encoded_fixed_type_info. Update all callers.
+
2020-11-01 Joel Brobecker <brobecker@adacore.com>
* ada-lang.c (cast_from_gnat_encoded_fixed_point_type): Split
Otherwise, return NULL. */
static const char *
-gnat_encoded_fixed_type_info (struct type *type)
+gnat_encoded_fixed_point_type_info (struct type *type)
{
const char *name = ada_type_name (type);
enum type_code code = (type == NULL) ? TYPE_CODE_UNDEF : type->code ();
return tail + 5;
}
else if (code == TYPE_CODE_RANGE && TYPE_TARGET_TYPE (type) != type)
- return gnat_encoded_fixed_type_info (TYPE_TARGET_TYPE (type));
+ return gnat_encoded_fixed_point_type_info (TYPE_TARGET_TYPE (type));
else
return NULL;
}
int
ada_is_gnat_encoded_fixed_point_type (struct type *type)
{
- return gnat_encoded_fixed_type_info (type) != NULL;
+ return gnat_encoded_fixed_point_type_info (type) != NULL;
}
/* Return non-zero iff TYPE represents a System.Address type. */
struct value *
gnat_encoded_fixed_point_delta (struct type *type)
{
- const char *encoding = gnat_encoded_fixed_type_info (type);
+ const char *encoding = gnat_encoded_fixed_point_type_info (type);
struct type *scale_type = ada_scaling_type (type);
long long num, den;
struct value *
gnat_encoded_fixed_point_scaling_factor (struct type *type)
{
- const char *encoding = gnat_encoded_fixed_type_info (type);
+ const char *encoding = gnat_encoded_fixed_point_type_info (type);
struct type *scale_type = ada_scaling_type (type);
long long num0, den0, num1, den1;