From: Viljar Indus <indus@adacore.com>
Date: Mon, 19 Jun 2023 11:11:20 +0000 (+0300)
Subject: ada: Reuse code in Is_Fully_Initialized_Type
X-Git-Tag: basepoints/gcc-15~7781
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=db01ce5381fc38c50454b544d6692d2b7e39ac29;p=thirdparty%2Fgcc.git

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 736751f5fae5..821aacf1ccb5 100644
--- 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)