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

gcc/ada/ChangeLog

+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.

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.  */
 

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)
 	{