1 files changed, 2 insertions, 4 deletions
diff --git a/gcc/ada/gcc-interface/decl.c b/gcc/ada/gcc-interface/decl.c
index 0873bae..7c3f7e5 100644
--- a/gcc/ada/gcc-interface/decl.c
+++ b/gcc/ada/gcc-interface/decl.c
@@ -8861,10 +8861,8 @@ create_concat_name (Entity_Id gnat_entity, const char *suffix)
   if (suffix)
     {
       String_Template temp = {1, (int) strlen (suffix)};
-      DECLARE_STRING_POINTER (sp);
-      sp.Bounds = &temp;
-      sp.Array = suffix;
-      Get_External_Name_With_Suffix (gnat_entity, sp);
+      Fat_Pointer fp = {suffix, &temp};
+      Get_External_Name_With_Suffix (gnat_entity, fp);
     }
   else
     Get_External_Name (gnat_entity, 0);