diff options
| author | Viljar Indus <indus@adacore.com> | 2023-06-19 14:11:20 +0300 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2023-07-06 13:36:09 +0200 |
| commit | db01ce5381fc38c50454b544d6692d2b7e39ac29 (patch) | |
| tree | cb319eeb6a45e0e498b90f6ca1da5e9e88df4e74 | |
| parent | 957b48650c8ad893b2b4995b4dcb0b560a0aad3f (diff) | |
| download | gcc-db01ce5381fc38c50454b544d6692d2b7e39ac29.zip gcc-db01ce5381fc38c50454b544d6692d2b7e39ac29.tar.gz gcc-db01ce5381fc38c50454b544d6692d2b7e39ac29.tar.bz2 | |
ada: Reuse code in Is_Fully_Initialized_Type
gcc/ada/
* sem_util.adb (Is_Fully_Initialized_Type): Avoid recalculating
the underlying type twice.
| -rw-r--r-- | gcc/ada/sem_util.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/sem_util.adb b/gcc/ada/sem_util.adb index 736751f..821aacf 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) |