[pushed] ada-lang.c: Rename gnat_encoded_fixed_type_info

[pushed] ada-lang.c: Rename gnat_encoded_fixed_type_info

[Joel Brobecker]

Hello,

This commit renames gnat_encoded_fixed_type_info into
gnat_encoded_fixed_point_type_info, so as to be more consistent
with the naming used for the other associated routines (i.e.
use "fixed_point" rather than just "fixed").

gdb/ChangeLog:

        * ada-lang.c (gnat_encoded_fixed_point_type_info): Renames
        gnat_encoded_fixed_type_info.  Update all callers.

Tested on x86_64-linux, and pushed to master.

Thanks,
-- 
Joel
---
 gdb/ChangeLog  |  5 +++++
 gdb/ada-lang.c | 10 +++++-----
 2 files changed, 10 insertions(+), 5 deletions(-)

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 4654c20..5ec5d25 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,5 +1,10 @@
 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
 	line too long.
 
diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c
index e94dd8c..930a514 100644
--- a/gdb/ada-lang.c
+++ b/gdb/ada-lang.c
@@ -11120,7 +11120,7 @@ ada_evaluate_subexp (struct type *expect_type, struct expression *exp,
    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 ();
@@ -11135,7 +11135,7 @@ gnat_encoded_fixed_type_info (struct type *type)
         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;
 }
@@ -11145,7 +11145,7 @@ gnat_encoded_fixed_type_info (struct type *type)
 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.  */
@@ -11173,7 +11173,7 @@ ada_scaling_type (struct type *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;
@@ -11191,7 +11191,7 @@ gnat_encoded_fixed_point_delta (struct type *type)
 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;
-- 
2.1.4