misc.c (gnat_tree_size): Move around.

	* gcc-interface/misc.c (gnat_tree_size): Move around.

	* gcc-interface/utils.c (max_size): Deal with SSA names.

From-SVN: r253852

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 7d50dbba1eca9c57fcafb8b3024f4496e41611bd..2139cbf4d86e237c6869c74807472c34956cd39d 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,9 @@
+2017-10-18  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * gcc-interface/misc.c (gnat_tree_size): Move around.
+
+       * gcc-interface/utils.c (max_size): Deal with SSA names.
+
 2017-10-17  Jakub Jelinek  <jakub@redhat.com>
 
        * gcc-interface/misc.c (gnat_tree_size): New function.

diff --git a/gcc/ada/gcc-interface/misc.c b/gcc/ada/gcc-interface/misc.c
index 5083c71db77a4706441db3fc655dc2f0e8c92f01..7bdb3803c13dcf49bed99608127086f75f2905df 100644 (file)
--- a/gcc/ada/gcc-interface/misc.c
+++ b/gcc/ada/gcc-interface/misc.c
@@ -343,23 +343,6 @@ internal_error_function (diagnostic_context *context, const char *msgid,
   Compiler_Abort (sp, sp_loc, true);
 }
 
-/* lang_hooks.tree_size: Determine the size of a tree with code C,
-   which is a language-specific tree code in category tcc_constant,
-   tcc_exceptional or tcc_type.  The default expects never to be called.  */
-
-static size_t
-gnat_tree_size (enum tree_code code)
-{
-  gcc_checking_assert (code >= NUM_TREE_CODES);
-  switch (code)
-    {
-    case UNCONSTRAINED_ARRAY_TYPE:
-      return sizeof (tree_type_non_common);
-    default:
-      gcc_unreachable ();
-    }
-}
-
 /* Perform all the initialization steps that are language-specific.  */
 
 static bool
@@ -1387,6 +1370,23 @@ gnat_init_ts (void)
   MARK_TS_TYPED (EXIT_STMT);
 }
 
+/* Return the size of a tree with CODE, which is a language-specific tree code
+   in category tcc_constant, tcc_exceptional or tcc_type.  The default expects
+   never to be called.  */
+
+static size_t
+gnat_tree_size (enum tree_code code)
+{
+  gcc_checking_assert (code >= NUM_TREE_CODES);
+  switch (code)
+    {
+    case UNCONSTRAINED_ARRAY_TYPE:
+      return sizeof (tree_type_non_common);
+    default:
+      gcc_unreachable ();
+    }
+}
+
 /* Return the lang specific structure attached to NODE.  Allocate it (cleared)
    if needed.  */
 

diff --git a/gcc/ada/gcc-interface/utils.c b/gcc/ada/gcc-interface/utils.c
index 04199769ea34dd119ea1d55f6eba85c0c1c8e1ac..99453821e419eac433298f940a2b46ed94d309b6 100644 (file)
--- a/gcc/ada/gcc-interface/utils.c
+++ b/gcc/ada/gcc-interface/utils.c
@@ -3595,6 +3595,10 @@ max_size (tree exp, bool max_p)
     case tcc_constant:
       return exp;
 
+    case tcc_exceptional:
+      gcc_assert (code == SSA_NAME);
+      return exp;
+
     case tcc_vl_exp:
       if (code == CALL_EXPR)
        {