ada: Reuse code in Is_Fully_Initialized_Type

gcc/ada/

	* sem_util.adb (Is_Fully_Initialized_Type): Avoid recalculating
	the underlying type twice.

diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb
index 736751f5fae582514ccb10424b886af3ed2ad8b1..821aacf1ccb5964ff19d74d6f51e951de51bd8f9 100644 (file)
--- a/gcc/ada/sem_util.adb
+++ b/gcc/ada/sem_util.adb
@@ -17333,7 +17333,7 @@ package body Sem_Util is
                   declare
                      Init : constant Entity_Id :=
                               (Find_Optional_Prim_Op
-                                 (Underlying_Type (Typ), Name_Initialize));
+                                 (Utyp, Name_Initialize));
 
                   begin
                      if Present (Init)